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趣味 狐 学 及 编程 拓展 


数学 是 映射 科技 进步 的 宏伟 殿堂 ,趣味 数学 则 是 其 中 一 座 充 满 趣 与 美 
的 雅 室 。 

计算 机 是 现代 科技 发 展 的 里 程 碑 , 程 序 设计 则 是 一 把 开启 成 功 之 门 的 
金 钥匙 。 

2002 年 在 北京 的 国际 数学 家 大 会 (ICM2002) 期 间 ,91 岁 高 龄 的 数学 大 师 
陈省身 先生 为 少年 儿童 题词 , 写 下 了 “数学 好 玩 ”4 个 大 字 。 英 国 数学 家 罗素 说 
过 :“ 数 学 ,不 但 拥有 真理 ,而 且 也 具有 至 高 的 美 ,是 一 种 冷 而 严肃 的 美 。” 

当 你 走 进 趣味 数学 这 座 雅 室 , 你 就 会 在 亲身 体验 “数学 好 玩 ”的 同时 , 领 
悟 数学 的 “ 趣 ”, 感 受 数学 的 “ 美 ": 逻辑 美 与 形式 美 、 自 然 美 与 变幻 美 、 对 称 美 
与 非 对 称 美 、 和 谐 美 与 奇异 美 ,美不胜收 ! 让 你 在 趣 的 感悟 与 美的 陶醉 之 
下 ,萌发 深入 数学 趣 的 梦想 , 涌 动 发 据 数 学 美的 冲动 。 

趣味 数学 好 玩 , 程 序 设计 有 趣 , 这 两 个 深 受 当 代 青 少年 朋友 喜爱 和 追捧 
的 热点 的 交汇 融合 ,是 信息 时 代 的 必然 ,是 学 科 相 辅 相 成 的 典范 ,更 是 读者 
期 盼 的 水 到 渠 成 。 

处 于 信息 社会 的 今天 ,趣味 数学 须 与 时 俱 进 ,适应 时 代 潮 流 不 断 向 纵深 
发 展 , 不 断 充实 新 的 养料 注入 新 鲜血 液 , 原 地 踏步 就 会 丧失 生机 与 活力 。 
计算 机 的 广泛 普及 与 程序 设计 的 全 面 推广 ,为 趣味 数学 带 来 拓展 与 勃发 的 
春天 。 同 时 ,趣味 数学 也 为 程序 设计 应 用 提供 了 广阔 而 生动 的 舞台 。 

爱 因 斯 坦 曾 经 说 过 :“ 兴 趣 是 最 好 的 老师 , 它 可 激发 人 的 创造 热情 好奇 
心 和 求知 僻 "趣味 数学 蕴含 “ 趣 ” 与 “ 美 ", 编 程 拓展 突出 “ 广 ”与 “ 深 , 把 原 有 
趣味 数学 问题 的 趣 与 美 拓展 到 更 广阔 的 境界 与 更 深入 的 层次 ,以 培养 与 提 
升 我 们 的 创新 意识 与 开拓 能 力 。 

程序 设计 作为 开发 利器 ,对 数学 猜想 实施 编程 验证 无 可 厚 非 。 但 仅仅 
停留 在 验证 阶段 却 远 远 不 够 ,有 必要 发 挥 这 一 利器 的 潜能 ,开发 与 光大 趣味 
数学 的 趣 与 美 ,并 试图 探测 与 发 据 新 的 数学 瑰宝 。 

事实 上 ,很 多 著名 数学 经 典 都 是 由 一 些 简单 案例 经 引申 ,拓展 与 提炼 而 
成 的 。 可 以 说 ,任何 复杂 系统 都 可 以 追溯 到 一 个 简单 的 原型 ,而 许多 浅显 问 
题 都 可 以 拓展 并 融入 更 为 广阔 深奥 的 境界 。 

书 中 构造 形 趣 的 卡 普 雷 卡 数 3025 二 (30 十 25)? 引 人 注 目 ,通过 编程 从 广 
度 上 拓展 至 多 位 ,从 深度 上 拓展 至 “多 段 ? 和 与 “多 次 早 ”( 下 式 就 是 15 位 6 段 
5 次 霸 式 ) : 


| 起 二 如 学 及 编 福 扩 展 


346531411903049 一 (346 十 53 十 141 十 190 十 30 十 49)5 

如 果 说 人 工 推出 的 4 对 数字 的 挑 易 数 列 23421314 并 不 显 山 露水 ,那么 请 欣赏 n 
一 12 时 的 挑剔 数列 : 

1 2 3aAl 010 dD 7 0 I HOB TG 

数列 中 每 一 对 k(1 一 12) 数 中 间 相 隔 k 个 数 ,其 优美 而 奇特 的 精妙 配置 深 深 打动 我 
们 ,彰显 出 数学 序列 的 形式 美 与 奇异 美 。 

人 工 打 造 的 对 称 乘积 式 36X84 二 48X63 体现 出 朴素 的 对 称 美 ,如 果 因 其 数字 较 少 且 
运算 过 于 单调 而 不 够 隆重 与 精彩 ,那么 请 看 : 

4^5 一 81X72 二 3 十 906 二 609 十 3 二 27X18 一 5^4 

数 式 等 号 两 边 对 称 分 布 10 个 数字 ,对 称 嵌 入 含 乘 方 (^) 的 5 则 运算 ,等 式 左 右 两 边 从 
数字 到 运算 符 完全 对 称 , 精 妙 绝伦 ! 

以 上 密 密 数 例 ,充分 说 明 在 趣味 数学 与 时 俱 进 向 纵深 发 展 的 进程 中 ,程序 设计 拓展 不 
可 或 缺 。 

本 书 精 选 并 提出 的 趣味 数学 问题 ,包括 神奇 整数 探求 、 精 巧 数 式 发 据 、 多 彩 数 列 汇集 、 
几何 优化 展示 、 数 形 结合 欣赏 新颖 数 阵 构 建 、 智 力 游戏 揭秘 等 ,著名 经 典 与 新 疾 独 创 并 
存 ,巧妙 探求 与 拓展 编程 同 在 , 题 型 广泛 , 趣 美 并 茂 , 雅 俗 共 赏 ,深入 浅 出。 为 方便 阅读 ,把 
相关 或 相近 的 内 容 整 合 为 一 章 , 每 章 围绕 一 个 中 心 主 题 展 开 , 各 节 具 有 相对 独立 性 。 全 书 
共 10 章 , 现 把 各 章 的 内 容 简介 如 下 。 

第 1 章 为 神奇 整数 探求 。 数 学 是 从 整数 起 步 的 ,该 章 将 与 诸位 一 道 领略 数学 典 堂 上 
神奇 整数 的 风韵 有 与 本 身 构成 数字 息息相关 的 水 仙 花 数 、 兰 德尔 数 、 优 美 倍 和 数 与 倍 积 
数 、 数 字 同 奇偶 的 平方 数 与 优美 平方 数 等 ;也 有 数学 家 们 长 期 研究 过 的 勾 股 数 、 长 方 体 数 、 
六 个 正 整 数 问题 \ 完 全数 与 p- 完 全 数 ;更 有 构 形 独特 的 卡 普 雷 卡 数 、 雅 趣 守 形 数 与 精妙 的 
逐 位 整除 数 等 ,琳琅 满目 ,前 为 壮观 ;最 后 压轴 的 “六 六 大 顺 数 ”, 经 逻辑 推理 层 层 揭 开 它 的 
神秘 面纱 ,进而 发 据 其 奇妙 的 “ 插 9” 特 性 ,无 疑 是 神奇 整数 中 的 闪光 点 。 

第 2 章 为 素数 世家 风采 。 素 数 是 整数 中 探讨 难度 较 大 、 研 究 内 容 最 多 的 一 类 奇特 整 
数 ,推介 试 商 判 别 法 与 厄 拉 多 塞 得 法 是 搜索 素数 的 基础 。 素 数 世 家 中 有 颇具 结构 美的 对 
称 素数 、 素 数 变形 金刚 、 逆 序 素数 对 、 素 数 等 差 数列 等 亮丽 “新 秀 ”, 更 有 数学 家 们 提出 并 研 
究 过 的 梅森 尼 数 、 费 马 数 、 李 生 素 数 对 、 欧 拉 与 勒 让 德 素数 多 项 式 、 哥 德 巴赫 猜想 等 显赫 
“大 腕 ”。 展 现 素 集 线 的 “ 乌 兰 现象 "描绘 了 素数 集聚 的 神秘 色彩 ,两 个 有 趣 的 连续 合 数 集 
增添 了 素数 分 布 的 奇特 风韵 。 素 数 世 家 ,无 愧 于 “上 帝 用 来 描写 字 宙 的 文字 ?之 美誉 。 

第 3 章 为 数 式 精彩 纷呈 。 该 章 在 整数 素 因 数 分 解 式 的 基础 上 ,探索 涉及 分 数 的 埃及 
分 数 式 与 桥 本 分 数 式 ,探讨 涉及 整数 的 优美 和 式 、 平 方式 、 变 序数 和 式 与 变 序 数 倍 积 式 等 。 
在 探求 隐 序 四 则 运算 式 与 优美 综合 运算 式 中 ,展现 数字 与 运算 符 的 美妙 结合 。 重 点 发 据 
从 乘积 运算 、 四 则 运算 到 综合 运算 的 系列 对 称 运算 式 ,让 我 们 观察 ,欣赏 、 赞 叹 、 领 悟 数学 
式 的 对 称 美 .和 谐 美 与 奇异 美 ! 最 后 压轴 的 分 段 和 备 式 , 则 是 对 卡 普 雷 卡 数 广度 的 开拓 与 
深层 的 发 据 。 数 式 精彩 ! 精彩 纷呈 ! 

第 4 章 为 方程 经 典 汇 趣 。 该 章 汇集 韩信 点 兵 、 百 鸡 问题 及 羊 犬 鸡 免 问 题 等 古典 趣 算 ， 
并 探讨 牛顿 “ 牛 吃 草 问题 ”、.n! 结尾 多 少 个 零 等 外 国有 趣 经 典 。 集 中 探求 具有 特色 的 不 定 
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方程 .不 等 式 等 一 般 数 学 推理 较 难 处 理 的 难点 ,其 中 ,和 与 积 的 整数 部 分 展示 了 数学 探索 
与 编程 拓展 的 有 机 融合 。 通 过 猴子 分 桃 与 水 手 分 椰子 的 妙 思 巧 解 ,首次 把 这 两 个 著名 趣 
题 联系 起 来 ,并 统一 编程 拓展 。 最 后 的 亮点 无 疑 是 应 用 连 分 数 高 精度 求解 佩 尔 方程 ,摆平 
自然 界 对 人 类 智商 的 刁难 与 挑战 。 

第 5 章 为 精巧 求解 剖析 。 精 巧 求解 ,包括 高 精度 计算 ,是 最 具 吸 引力 的 热点 ,也 是 让 
人 望而却步 的 难点 。 从 互 积 和 与 嵌 套 根 式 和 的 巧 算 、 同 码 数 的 整除 与 求 和 规律 探索 ,到 建 
模 统计 与 分 类 统计 、 游 戏 中 的 素数 概率 计算 等 ,突出 一 个 “ 巧 ” 字 。 深 入 探求 最 小 0-1 串 
积 、 指 定 多 码 串 积 与 尾数 前 移 问题 ,突显 一 个 “ 精 ? 字 。 拓 展 梅 齐 里 亚 克 的 夸 码 问题 与 错位 
排列 的 伯 努 利 装 错 信封 问题 ,精巧 并 存 , 耐 人 寻味 。 际 逸 于 数学 殿堂 的 两 个 “幽灵 ”e 和 %， 
凝聚 数学 的 精华 ,彰显 编程 的 卓越 。 

第 6 章 为 多 彩 数列 欣赏 。 数 列 、 序 列 ( 包 括 数 环 ) 是 趣味 数学 的 精彩 环节 。 该 章 汇聚 
相 末 数 对 与 相亲 数 环 、 斐 波 那 契 序 列 与 卢 卡 斯 序列 、 德 布 鲁 金 环 序列 等 有 影响 的 著名 序 
列 ; 新 推 构思 独创 的 精彩 双飞 燕 、 优 美 数 序列 、 等 军 和 nn 元 组 、 指 积 序列 、 双 码 二 部 数 序 列 
与 连 写 数 序列 等 ,妙趣 横生 。 拓 展 有 着 ACM 背景 的 “2 部 数 积 ”为 枚 举 难 点 的 突破 留 下 思 
索 的 空间 。 最 后 压轴 的 “挑剔 数列 ”的 设计 与 展现 无 疑 是 数列 的 亮点 ,其 高 超 的 结构 美 与 
独特 的 奇异 美 让 人 装 叹 不 已 ! 

第 7 章 为 最 优 探索 展示 。 最 优 设计 与 最 值 探求 往往 是 实际 应 用 案例 的 目标 ,是 最 具 
挑战 思维 与 创新 精神 的 课题 。 该 章 汇聚 有 插入 运算 符 的 最 值 、 整 数 分 解 中 的 最 值 、 条 件 最 
值 与 无 理 函数 最 值 等 最 值 探求 典型 案例 ;有 探求 迷 官 最 短 通道 、 展 现 序列 子 段 与 数 阵 子 形 
之 最 的 最 优 操作 ;有 智能 甲虫 安全 点 、 构 建 最 大 容器 、 优 化 供水 网 与 创新 “铁人 三 项 "等 几 
何 最 优 设 计 ; 重 点 拓展 泊 松 分 酒 和 杜 登 尼 省 刻度 尺 等 形象 生动 的 优化 典范 。 最 优 探索 ,有 
数值 的 ,也 有 几何 的 ;有 国际 经 典 , 也 有 新 颖 独创 ,颇具 启发 性 与 示范 性 。 

第 8 章 为 数 形 结合 出 彩 。 数 在 形 中 , 数 构成 形 , 数 形 结合 ,可 使 图 增色 , 形 添 彩 。 该 章 
汇集 在 三 角形 、 五 角 星 等 几何 图 形 上 填 数 、 爱 因 斯 坦 做 过 的 填 数 趣 题 及 构建 等 边 和 积 三 角 
形 等 优美 图 案 ; 平 凡 数 字 经 精巧 构思 排列 呈现 出 各 种 生动 的 数码 金字 塔 , 空 心 萎 形 、 横 竖 
折 对 称 、 斜 折 对 称 方 阵 与 旋转 方 阵 等 ,最 生动 、 最 优雅 地 展现 数 形 结合 之 美 。 通 过 “ 数 形 结 
合 巧 求 最 值 ” 展 现 数 形 结合 在 简化 最 值 求解 上 的 应 用 ,探求 素数 和 环 与 数码 串珠 环 等 具有 
理论 意义 与 应 用 价值 的 实际 案例 , 令 人 回味 无 穷 。 

第 9 章 为 智能 游戏 探秘 。 猜 想 探索 与 游戏 揭秘 是 最 具 吸 引力 的 热点 ,也 是 检测 与 提 
高 探索 能 力 的 考点 。 该 章 汇聚 3x 十 1 猜想 、3 位 与 4 位 黑洞 数 探索 、 等 距 平方 数 及 欧 拉 做 
过 的 题 . 单 数码 方 蹇 等 数字 趣 题 ; 同 时 在 约瑟夫 出 圈 基 础 上 推出 新 颖 的 横 排 左右 报 数 出 
列 , 在 硬币 行 倒 面 基础 上 推出 有 智能 、 有 深度 的 硬币 矩阵 翻转 等 ;探讨 汉 诺 塔 游戏 、 巴 什 游 
戏 、 威 索 夫 游戏 与 移动 8 数码 游戏 等 有 难度 的 游戏 宝典 。 通 过 这 些 具有 开创 性 与 智能 性 
的 猜想 与 游戏 案例 ,激励 我 们 开拓 计算 思维 ,提升 创新 意识 。 

第 10 章 为 数 阵 天 地 大 观 。 数 阵 包括 矩阵 、 方 阵 以 及 三 角 阵 等 ,形式 广泛 ,内 容 翻新 。 
该 章 探讨 杨辉 三 角 与 莱 布 尼 茨 三 角 这 两 个 中 外 著名 的 三 角 数 阵 , 并 建立 二 者 之 间 的 内 在 
联系 。 探索 影响 深远 的 高 斯 皇后 问题 ,皇后 全 控 棋盘 、 最 长 马 步 路 径 、 马 步 遍历 与 马 步 型 
哈密 顿 圈 , 再 现 棋盘 上 的 风云 故事 及 其 恢宏 演绎 。 幻 方 是 古今 中 外 雅俗共赏 的 数学 奇 椰 ， 


1 NA 
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从 千古 洛 书 开 始 ,探讨 n 阶 幻 方 、 积 幻 方 以 及 素数 幻 方 的 巧妙 构建 ,并 首次 把 “对 角 正 交 拉 
丁 方 ? 纳 入 幻 方 范畴 ,突显 幻 方 的 博大 精深 。 

本 书 突出 以 下 特色 。 

(1) 开创 探索 趣味 数学 与 程序 设计 交汇 融合 。 

开创 趣味 数学 与 程序 设计 的 交汇 融合 ,探索 传统 文明 与 现代 科技 的 紧密 结合 。 应 用 
程序 设计 把 趣味 数学 问题 在 广度 与 深度 上 拓展 ,全 方位 提升 原 有 问题 趣 与 美的 品位 ,促进 
趣味 数学 的 深入 发 展 ,焕发 趣味 数学 的 炫丽 青春 。 

(2) 注重 趣味 性 与 吸引 力 , 精 选 趣味 数学 问题 。 

精 选 并 提出 趣味 数学 问题 注重 趣味 性 与 吸引 力 , 立 足 整数 基础 ,广泛 涉及 数 对 、 数 式 、 
数列 、 数 阵 、 数 形 与 数 游 , 既 有 引导 入 门 的 基础 题 , 也 有 复杂 高 超 的 综合 题 ; 既 有 名 扬中 外 
的 著名 经 典 , 也 有 构思 精巧 的 新 颖 独创 ,雅俗共赏 ,深入 浅 出 。 

(3) 注重 编程 算法 引导 与 设计 技巧 综合 运用 。 

拓展 程序 采用 功能 丰富 、 应 用 面 广 的 C 语言 编程 设计 。 考 虑 到 读者 程序 设计 基础 不 
一 ,算法 以 基本 枚 举 与 递 推 为 主 ,注重 编程 算法 思路 引导 ,注重 分 解 、 整 合 ,转换 、 求 精 等 技 
巧 的 综合 运用 。 程 序 给 出 完整 代码 并 详细 注释 ,有 利于 程序 的 阅读 、 修 改变 通 与 调试 。 

(4) 展示 程序 的 运行 结果 ,突显 趣 与 美的 拓展 。 

每 一 趣味 数学 问题 在 思路 开拓 与 精巧 求解 之 后 ,从 广度 与 深度 上 展开 拓展 编程 。 展 
示 程 序 运行 结果 ,突显 数学 问题 趣 与 美的 拓展 ,使 读者 通过 欣赏 与 比较 ,加 深 对 拓展 的 理 
解 , 有 利于 激励 开拓 计算 思维 、 开 启 益 知 训练、 开展 数学 娱乐 的 兴趣 。 

本 书 得 到 孙 明 保 教授 、 刘 永年 教授 、 周 持 中 教授 、 严 权 锋 教授 的 大 力 支 持 ,并 得 到 湖南 
理工 学 院 同 行 及 清华 大 学 出 版 社 编辑 们 的 热情 帮助 ,在 此 一 并 表示 感谢 ! 

本 书 适 合 大 学 、 中 学 在 校 学 生 阅 读 ,也 可 供 程 序 设计 基础 不 同 的 广大 数学 爱好 者 与 奥 
数 竞赛 参与 者 学 习 参 考 。 开 卷 有 益 , 我 相信 和 您 总 能 从 书 中 找到 自己 的 兴趣 点 而 有 所 收益 ， 
总 能 从 自己 兴趣 点 的 引申 与 拓展 中 得 到 启迪 。 

趣味 数学 与 程序 设计 的 融合 是 一 个 系统 工程 ,本 书 仅仅 为 这 一 工程 的 起 步 探索 抛 砖 
引 玉 。 因 所 涉 范围 太 广 , 书 中 疏漏 之 处 在 所 难免 , 姑 请 读者 批评 指正 。 


杨 克 昌 
2018 年 10 月 于 岳阳 南湖 
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神奇 整数 探求 


人 类 最 先 接触 到 的 数 就 是 从 玫 自 己 手 指 计 数 开 始 的 正 整 数 。 

我 国 古人 认为 ,世间 万 物 均 由 天 地 交感 而 成 ,形成 了 “道生 一 ,一 生 二 ,二 生 三 ,三 生 天 
地 ,天 地 生 阴 阳 , 阴 阳 生 万 物 ” 的 进化 观 。 

一 去 二 三 里 , 烟 村 四 五 家 。 亭 台 六 七 座 , 八 九 十 枝 花 。 这 首 宋代 《山村 咏 怀 》 诗 , 短 短 
20 个 字 中 巧妙 而 优雅 地 能 入 10 个 数字 , 脸 炙 人 口 ,赏心悦目 。 

在 数 千年 使 用 正 整数 的 过 程 中 ,我 们 的 先 人 从 不 同 的 角度 发 掘 出 整数 的 许多 优美 特 
性 ,发 现 了 许多 神奇 有 趣 的 整数 。 有 与 本 身 构成 数字 息息相关 的 水 仙 花 数 . 兰 德尔 数 、 优 
美 倍 和 数 与 倍 积 数 ; 有 数学 家 研究 过 的 勾 股 数 长方体 数 、 完 全 数 与 p- 完 全 数 ;有 形 趣 独特 
的 卡 普 雷 卡 数 、 守 形 数 与 精妙 的 逐 位 整除 数 :等 等 。 其 中 ,六 六 大 顺 数 "及 其 奇妙 的 “ 捅 
9 "特性 ,无疑 是 神奇 整数 中 的 亮点 。 

本 章 就 从 探求 这 些 整数 开始 ,与 诸位 一 道 领略 数学 殿堂 之 上 神奇 整数 的 风采 。 


1.1 水 仙 花 与 兰 德尔 数 


兰 德尔 (Randle) 数 又 称 自 方 守 数 ,是 一 类 涉及 自身 数字 特点 的 整数 。 
本 节 从 探求 最 简单 的 3 位 水 仙 花 数 开 始 ,进而 编程 探索 一 般 n(3 一 8) 位 兰 德尔 数 。 


1.1.1 水 仙 花 数 


一 个 3 位 整数 如 果 等 于 它 的 3 个 数字 的 立方 和 ,那么 该 3 位 数 称 为 水 仙 花 数 。 

【问题 】 有 多 少 个 水 仙 花 数 ? 试探 求 水 仙 花 数 。 

【思考 】 从 最 小 数字 开始 ,逐个 数字 实验 探求 。 

设 水 仙 花 数 为 abc(a 为 百 位 数字 .b 为 十 位 数字 ,c 为 个 位 数字 ) ,满足 

100a 十 10b 十 c 一 aa 十 bs 十 cs 〈abyc 为 整数 ,1 委 a 委 9,0 委 b 委 9,0 委 c 委 9) 

这 是 一 个 3 元 3 次 不 定 方程 , 因 涉及 3 个 立方 项 ,简单 处 理 并 不 现实 , 拟 采用 逐 位 实 
验 探求 。 

由 水 仙 花 数 的 定义 可 知 , 它 的 3 个 数字 中 至 少 有 一 个 数字 在 5 以 上 ,和 否则 其 3 个 数字 
的 立方 和 不 足 3 位 。 

先 列 出 一 个 数字 x 的 立方 x*( 见 表 1-1) 以 备 调用 。 
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表 1-1 一 个 数字 x 的 立方 


1. 试 取 最 小 数字 为 0 

日 表 1-1 可 知 ,第 2 个 数字 的 立方 不 含 数字 0, 即 第 2 个 数字 必须 大 于 0。 

(1) 第 2 个 数 试 取 1, 第 3 个 数字 为 x,x’ 十 1 的 结果 中 须 含 数字 0,1 与 x, 显然 x 不 
存在 。 

(2) 第 2 个 数 试 取 2,23 一 8, 第 3 个 数字 为 x,x’ 十 8 的 结果 中 须 含 数字 0,2 与 x。 试 
取 x 一 8,512 十 8 一 620, 含 数字 0,2 ,但 不 含 数字 8 ,也 不 符合 要 求 。 

(3) 第 2 个 数 试 取 3,3: 王 27, 第 3 个 数字 为 x, x’ 十 27 的 结果 中 须 含 数字 0,3 与 x。 
试 取 x 二 7,343 十 27 二 370, 含 有 数字 0,3 与 7, 因 而 得 到 第 1 个 解 370。 继 续 第 3 个 数字 取 
x 一 8,9 ,不 满足 要 求 。 

(4) 第 2 个 数 试 取 4,4 一 64, 第 3 个 数字 为 x,x’ 十 64 的 结果 中 须 含 数字 0,4 与 x。 
试 取 x 一 7,343 十 64 一 407, 含 数字 0,4 与 7, 因 而 得 到 第 2 个 解 407。 继 续 第 3 个 数字 x 一 
8,9 ,不 满足 要 求 。 

(5) 第 2 个 数 试 取 5,6,… ,无 满足 要 求 的 3 位 整数 。 

2. 试 取 最 小 数字 为 1 

由 表 1-1 可 知 , 第 2 个 数字 必须 大 于 1。 

(1) 第 2 个 数 试 取 2,23 一 8, 选 第 3 个 数字 为 x, x 十 9 的 结果 中 须 含 数字 1,2 与 x。 
试 取 x 一 8,512 十 9 一 521 , 含 数字 1,2, 但 不 含 数字 8, 不 符合 要 求 。 

(2) 第 2 个 数 试 取 3,3: 一 27, 第 3 个 数字 为 x,xs 十 28 的 结果 中 须 含 数字 1,3 与 x。 
试 取 x 一 5,125 十 28 王 153, 含 数字 1,3 与 5, 因 而 得 到 第 3 个 解 153。 继 续 试 取 x 一 6， 
216 十 28 王 244, 不 符合 要 求 。 继 续 试 取 x 王 7,343 十 28 王 371 , 含 数字 1,3 与 7, 因 而 得 到 第 4 
个 解 371。 

(3) 第 2 个 数 试 取 4,5,6,… ,无 满足 要 求 的 3 位 整数 。 

以 此 类 推 ,试验 最 小 数字 为 2,3,… ,无 满足 要 求 的 3 位 数 。 

综合 以 上 实验 探求 ,得 到 4 个 水 仙 花 数 : 370,407,153,371。 

以 上 探求 水 仙 花 数 的 方法 就 是 数学 实验 ,由 小 到 大 选择 各 数字 逐 位 试验 .调整 ,探求 
满足 不 定 方程 的 解 。 

顺便 指出 ,数学 实验 是 一 种 非常 重要 的 数学 方法 ,可 培养 与 加 强 探索 能 力 的 提升 。 


1.1.2 兰 德尔 数 


兰 德尔 数 : 一 个 n(n 宇 3) 位 正 整 数 如 果 等 于 它 的 n 个 数字 的 n 次 客 之 和 ,那么 该 数 称 
为 n 位 兰 德尔 数 ,又 称 自 方 宕 数 。 

当 n=3 时 称 为 水 仙 花 数 , 当 n 一 4 时 称 为 四 叶 玫 瑰 花 数 , 当 n=5 时 称 为 五 角 星 数 , 当 
n 一 6 时 称 为 六 合 数 , 当 n=7 时 称 为 北斗 七 星 数 , 当 n=8 时 称 为 八仙 数 ,等 等 。 
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试 编程 搜索 n(3 三 n 志 8) 位 兰 德尔 数 。 


1. 探求 设计 要 点 

为 求 n 次 宪 方 便 ,相关 变量 设置 为 double 型 。 

(1) 循环 枚 举 与 分 离 数字 。 

建立 n(3 一 8) 循 环 枚 举 位 数 。 

计算 最 小 的 n 位 整数 t 后 ,建立 y(t 十 1~10* t 一 1) 循 环 枚 举 n 位 整数 。 

应 用 求 余 函数 fmod(y,10) 与 取 整 函数 floor(y/10) 分 离 整数 y 的 n 个 数字 上 。 

(2) 求 和 与 检测 。 

数字 k 的 n 次 寡 即 为 pow(k,n); 通 过 s 十 二 pow(k,n); 求 得 n 个 数字 的 n 次 宕 之 


通过 y= 二 s 即 可 检测 y 是 否 为 n 位 兰 德尔 数 。 
通过 检测 后 即 可 输出 n 位 兰 德尔 数 ,并 用 变量 m 统计 其 个 数 。 


2. 兰 德尔 数 程序 设计 


// 搜 索 n(3" 8) 位 兰 德尔 数 

# include < stdio. h> 

# include < math. h> 

void main0 

{ intm,n,i; double f,k,s,t,y; 
printf(” 位 数 n n 位 兰 德尔 数 个 数 及 名 称 \n") ; 
for (n= 3;nC=8;n+ +) 
{ printf(” n=%d ",n); 


m0;t=1; 
for(i=1;i<=n-1;i++) t=t* 10; 
for (y=t+1;yC=tx 10- 1;y++) // 枚 举 n 位 整数 
{ f=y; 
for (s=0, i=1;i<=n;i++) // 循 环 分 离 y 的 n 个 数字 k 
{ k=fmod(f,10);s+=pow(k,n); 
f=floor (f/10) ; // 求 y 的 n 个 数字 的 n 次 寡 之 和 s 
} 
if(y==s) // 检 测 满足 条 件 则 统计 并 输出 
{m++; printf(" %.0f",y);} 
} 


printf(” 共 %d 个 ",m); 

if(n==3) printf(" 水 仙 花 数 \n"); 

else ifm==4) printf(" 四 叶 玫 瑰 花 数 \n"); 
else if(n==5) printf(" 五 角 星 数 \n"); 
else if(n==6) printf(" 六 合 数 \n"); 

else if(n==7) printf(" 北 斗 七 星 数 \n"); 
else printf(" 八 仙 数 \n"); 
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3. 程序 运行 示例 与 变通 


位 数 n n 位 兰 德尔 数 个 数 及 名 称 
mn=3 153 370 371 407 共 4 个 水 仙 花 数 
n=4 1634 8208 9474 共 3 个 四 叶 玫瑰 花 数 
n=5 54748 92727 93084 共 3 个 五 角 星 数 
n=6 548834 共 1 个 六 合 数 

n=7 ”1741725 4210818 9800817 9926315  ” 共 4 个 北斗 七 星 数 
n=8 24678050 24678051 88593477 共 3 个 八仙 数 


前 面 应 用 逐 位 试验 的 数学 实验 探求 3 位 水 仙 花 数 并 不 简捷 , 当 n 三 4 时 , 因 涉 及 构成 
数字 的 n 次 方 ,用 同样 的 推理 探求 n 位 兰 德尔 数 并 不 现实 。 

以 上 程序 快捷 地 求 出 了 6 种 兰 德尔 数 , 说 明了 编程 探索 与 拓展 的 优越 性 ,进一步 说 明 
在 趣味 数学 发 展 与 深入 的 进程 中 ,程序 设计 手段 不 可 或 缺 。 

变通 : 可 把 以 上 枚 举 循环 语句 for(n= 王 3;n 玫 一 8,n 十 十 ) 改 变 为 从 键盘 输入 整数 n 请 
句 , 即 可 探求 某 一 个 n(n 三 9) 位 正 整 数 的 n 位 兰 德尔 数 。 

当 n 宇 9 时 ,程序 搜索 n 位 兰 德尔 数 的 时 间 随 n 的 增加 变 得 越 来 越 长 。 


1.2 倍 和 数 与 倍 积 数 


本 节 介绍 涉及 自身 数字 构成 的 另 一 类 新 颖 整数 : 优美 倍 和 数 与 倍 积 数 。 
这 类 整数 的 “优美 "是 指 其 组 成 数字 不 重复 ,“ 和 ”是 指 组 成 该 数 的 各 数字 之 和 ,“ 积 ”是 
指 组 成 该 数 的 各 数字 之 积 。 


1.2.1 优美 倍 和 数 


定义 : 由 n 个 互 不 相同 的 数字 (可 含 数 字 0) 组 成 的 n 位 整数 x 若是 其 n 个 数字 之 和 s 

的 整数 m 倍 , 即 有 
x=mXs 

则 称 整 数 x 为 n 位 优美 倍 和 数 , 整 数 m 为 对 应 的 倍数 。 

例如 ,上 面 求 得 的 水 仙 花 数 407 的 3 个 数字 之 和 为 11,407 二 37X11,407 就 是 一 个 3 
位 优美 倍 和 数 ,37 为 相应 倍数 。 

【问题 1】 试 求 3 位 优美 倍 和 数 的 倍数 m 的 最 大 值 。 

【思考 】 以 m 的 表达 式 为 依据 ,逐个 数字 试验 探求 。 

设 3 位 优美 倍 和 数 x 的 3 个 互 不 相同 数字 为 a,b,c, 即 x 一 100a 十 10b 十 cs 一 a 十 b+ 
c; 则 


100a 十 10b 十 c _ 9(1lla 十 b) 
站 十 也 -Fe 调 十 扑 二 二 


由 表达 式 看 ,分 母 中 a,b,c 是 平等 的 ,但 分 子 就 不 一 样 了 ,相差 很 大 。 
基本 思路 : 求 取 倍数 m 最 大 时 ,通常 取 a>b>c, 当 然 以 x 能 被 s 整除 为 前 提 。 若 x 
不 能 被 s 整除 , 则 通常 在 较 小 的 数字 b,c 中 局 部 调整 。 


站 (1) 
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据 式 (1) ,要 使 m 最 大 ,在 x 能 被 s 整除 的 前 提 下 , 取 c 尽 可 能 小 ,不 妨 取 c==0, 则 


次 圭 十 10 (2) 
据 式 (2) ,对 任何 a 取 值 ,要 使 m 最 大 ,b 尽 可 能 取 最 小 ,不 妨 取 b=1, 即 有 
90a 90 天 
m 一 -2 十 10 一 100 一 -名 (3) 


据 式 (3) ,要 使 m 最 大 ,a 可 取 最 大 9, 此 时 m 一 91 。 
车 取 0 二 c 志 9, 可 知 m 过 91。 
因而 得 : 倍数 m 最 大 的 3 位 优美 倍 和 数 为 910, 其 相应 的 最 大 倍数 为 91 。 
【问题 2】 探求 3 位 优美 倍 和 数 的 倍数 m 的 最 小 值 。 
【思考 】 同样 以 m 的 表达 式 为 依据 ,逐个 数字 试验 探求 。 
为 求 取 倍 数 m 的 最 小 值 ,通常 取 a 二 b 二 c, 同 样 以 x 能 被 s 整除 为 前 提 。 若 x 不 能 被 
s 整除 , 则 在 数字 b,c 中 局 部 调整 。 
据 式 (1), 取 a=1, 即 有 


100 十 l0b 十 c _ 9(10 一 c) ， 
THERE © Bretr 人 


由 上 式 可 知 要 使 m 最 小 ,c 应 取 最 大 ,因而 < 从 9 开始 递减 取 值 。 


车 取 c==9, 则 m 一 志和 5 十 10, 无 论 b 取 何 值 ,m 非 整数 ,不 符合 要 求 。 


车 取 c 一 8, 则 m 一 三 十 10, 要 使 m 为 整数 , 取 b=9, 得 m 二 11; 或 取 b 二 0, 得 


m 一 12。 
因而 可 得 : a=1 时 , 取 x==198 得 m=11 为 最 小 。 
据 式 (1), 取 a 二 2, 有 


m 


200- 上 F105 二 旋 9620 一 动 ， 10 
2 十 b 十 e b 十 c 十 2 


由 上 式 可 知 要 使 m 最 小 ,ec 尽 可 能 取 最 大 ,因而 “从 9 开始 递减 取 值 。 
若 取 c=9, 则 mm 一 证 10, 要 合 m 为 整数 , 则 取 b==0, 得 m 二 19, 显 然 大 于 11。 


上 11 
若 取 c 一 8, 则 mm 一 ?这 二 10, 要 使 m 为 整数 , 则 取 b 一 2( 与 a 相同 , 舍 去 ) 或 b 一 8( 与 
c 相 同 , 舍 去 )。 
若 取 一 7, 则 四 一 全- 十 10, 要 使 m 为 整数 , 则 取 b 一 4, 得 m 一 19, 显 然 大 于 11。 


依 此 a 逐一 递增 取 值 ,得 m 均 大 于 11。 

因而 得 : 倍数 m 最 小 的 3 位 优美 倍 和 数 为 x 二 198, 其 相应 的 最 小 倍数 为 m 一 11。 

【拓展 】 探索 n 位 优美 倍 和 数 及 其 倍数 m 的 最 大 值 与 最 小 值 。 

输入 正 整 数 n(2<n<9) ,统计 mn 位 优美 倍 和 数 的 个 数 , 求 出 倍数 m 的 最 大 值 与 最 小 
值 ,并 输出 对 应 m 最 大 与 最 小 时 的 n 位 优美 倍 和 数 。 


1. 设计 要 点 
(1) 枚 举 与 分 离 数 字 。 首 先 通过 循环 求 出 n 位 没有 重复 数字 的 最 小 与 最 大 整数 a,b， 
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然后 设置 xCa 一 b) 循 环 枚 举 n 位 整数 ;然后 对 每 一 个 n 位 整数 x 应 用 整除 /与 取 余 % 操 
作 , 分 离 x 的 n 个 数字 上 ;最 后 通过 求 和 s 十 二 k; 得 到 x 的 n 个 数字 和 s。 

(2) 统计 与 判别 。 应 用 工 数组 f[kj 十 十 ;统计 数字 的 频数 ,以 便 排 除 各 数字 k 存在 
相等 的 情形 ;然后 判别 x 能 否 被 s 整除 : 若 x 能 被 s 整除 , 则 产生 一 个 n 位 优美 倍 和 数 x 
及 其 倍数 m 二 x/s, 用 变量 i 统计 优美 倍 和 数 个 数 。 

(3) 比较 求 最 值 。 通 过 比较 求 取 倍数 m 的 最 大 值 max 与 最 小 值 min, 并 分 别 记录 m 
最 大 、 最 小 时 的 x 与 s 的 值 ,为 输出 m 最 大 与 最 小 时 的 优美 倍 和 数 提供 数据 。 


2. 探求 程序 设计 


// 探 求 n 位 优美 倍 和 数 
# include < stdio.h> 
void main0 
{ int k,n,t,f[10]; 
long a, b, i,m, r, s, s1, s2, x, x1, x2, max, min; 
printf(” 请 输入 位 数 n(2<n<9): "); scanf ("%d", &n) ; 
a= 10;b= 98; i= 0;max= 0;min= 10000000; 
for (k=3;k<=n;k++) 
{a=ax 10+k- 1;b=bx 10+ 10-k;} //a,b 为 m 位 数字 不 同 的 最 小 最 大 数 
for (x=a;x<=b;x++) // 枚 举 [a,b] 中 的 每 一 个 整数 
{ 


for (k=0;k<=9;k++) f[k]=0; 

while(r> 0) // 分 解 x 的 各 数字 并 分 别 累计 
{k=r% 10;f[k]++ ;st=k;r=r/10;} 

for (t=0, k=0;k<=9;k++) 


if (fF[k]>1) {t=1;break;} // 测 试 整数 x 是否 有 重复 数字 

if (t==0 && x% s==0) 

{ it++ ;mx/s; // 统 计 n 位 优美 倍 和 数 个 数 , 求 m 
if m> max) { max=m;x2= xis2= s;} // 比 较 求 取 m 的 最 大 值 并 记录 
if(m<min) { min=m;x1=x;s1= si] // 比 较 求 取 m 的 最 小 值 并 记录 


} 

printf(”%d 位 优美 倍 和 数 共 % 1d 个 。\n",n, i); 

printf(” 倍数 m 最 大 为 %1d:% 1d=% 1dX%d\n", max, x2, max, s2) ; 

printf(” 倍数 m 最 小 为 %1d:% 1d=% 1dX%d\n",min, x1,min, s1) ; 
} 


3. 程序 运行 示例 与 变通 

请 输入 位 数 n(2<n<9): 4 

4 位 优美 倍 和 数 共 645 个 。 

倍数 m 最 大 为 760:9120= 760X 12 
倍数 m 最 小 为 61: 1098= 61X 18 


如 果 输入 n 一 3, 即 可 得 3 位 优美 倍 和 数 的 个 数 及 它们 的 倍数 的 最 大 值 与 最 小 值 。 
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当 n 比较 大 时 ,例如 n 一 8,9, 程 序 的 运行 相应 变 慢 。 建 议 通 过 输入 不 同 整数 n 值 运 
行程 序 , 具 体感 受 枚 举 时 间 的 差异 。 

变通 : 把 组 成 数字 排除 0, 保 留 n 个 数字 互 不 相同 , 即 组 成 n 位 整数 的 n 个 数字 限定 
为 互 不 相同 的 正 数 。 

在 以 上 搜索 程序 中 测试 整数 x 是 否 有 重复 数字 时 还 需 测 试 n 个 数字 是 否 含 0, 即 把 
程序 中 的 测试 条 件 进 行 以 下 改变 : f[kj 二 1 改 为 蕊 xz] 之 1 | | 蕊 0] 之 0。 这 一 变通 ,可 得 n 
位 不 含 0 的 优美 倍 和 数 的 相应 结果 。 例 如 , 当 n 一 4 时 ,程序 运行 结果 如 下 所 示 。 

请 输入 位 数 n(2<n<9): 4 

4 位 优美 倍 和 数 共 322 个 。 


倍数 m 最 大 为 534:9612= 534X 18 
倍数 m 最 小 为 71: 1278= 71X 18 


1.2.2 优美 倍 积 数 


定义 : 由 nm 个 互 不 相同 的 非 零 数字 组 成 的 n 位 整数 x 若是 其 n 个 数字 之 积 t 的 整数 
m 倍 , 即 有 


Xx 一 mXt 
则 称 整数 x 为 n 位 优美 倍 积 数 ,整数 m 为 对 应 的 倍数 。 
例如 ,3276 的 4 个 数字 之 积 为 252,3276 王 13X252,3276 就 是 一 个 4 位 优美 倍 积 数 ， 
13 为 对 应 倍数 。 
输入 正 整数 nC(2 三 n 志 9), 探求 n 位 优美 倍 积 数 的 个 数 ,及 n 位 优美 倍 积 数 的 倍数 m 
的 最 大 值 与 最 小 值 ,并 输出 倍数 m 最 大 与 最 小 时 对 应 的 n 位 优美 倍 积 数 。 
对 于 某 些 n, 若 没有 相应 的 n 位 优美 倍 积 数 , 则 予以 指出 。 


1. 编程 设计 要 点 

(1) 枚 举 与 分 离 。 首 先 求 出 n 位 没有 重复 非 零 数字 的 最 小 与 最 大 整数 a,b, 然 后 设置 
x(a~b) 循 环 枚 举 n 位 整数 ;对 每 一 个 n 位 整数 x 应 用 整除 /与 取 余 % 操 作 , 分 解 x 的 n 个 
数字 ;通过 求 积 tx 一 k; 得 到 x 的 n 个 数字 之 积 t。 

(2) 统计 与 判别 。 对 每 一 整数 应 用 {数组 f[kj 十 十 ;统计 数字 k 的 频数 ,以 排除 各 数 
字 k 存在 相等 C{[Lk] 之 1) 的 情形 ;然后 判别 x 能 否 被 整除: 若 x 能 被 t 整除, 则 产生 一 个 
n 位 优美 倍 积 数 x 及 其 倍数 m= 二 x/t, 用 变量 i 统计 优美 倍 积 数 个 数 。 

(3) 比较 求 最 值 。 通 过 比较 求 取 倍数 m 的 最 大 值 max 与 最 小 值 min, 并 分 别 记录 m 
最 大 、 最 小 时 的 x 与 t 的 值 ,为 输出 m 最 大 与 最 小 时 的 优美 倍 积 数 提供 数据 。 

2. 探求 n 位 优美 倍 积 数 程序 设计 

// 探 求 n 位 优美 倍 积 数 

# include < stdio. h> 

void main0 

{ int k,n,d,f[10]; 


long a, b, i,m, r,t,t1,t2, x, x1, x2, max, min; 


| 去 各 学 及 编 福 拓展 


printf(” 请 输入 位 数 n(2<n<9): "); scanf("%d",&n) ; 
a=1;b=9;i= 0;max= 0;min= 10000000; 
for (k=2;k<=n;k++) 


{a=ax 10+k;b=b*x 10+ 10-k;} //a,b 为 m 位 符合 要 求 的 最 小 与 最 大 数 
for (x=a;x<=b;x++) // 枚 举 [a,b] 中 的 每 一 个 整数 
{ r=x;t=1; 

for (k=0;k<=9;k++) f[k]=0; 

while(r> 0) // 分 解 x 的 各 数字 并 求 积 


{k=r%10;f[k]++ ;tx*=k;r=r/10;} 
for (d= 0, k=0;k<=9;k++) 


if (fF[k]>1 || Ff[0]>0) {d=1;break;} // 测 试 整 数 x 是 否 有 重复 数字 或 含 0 
if(d==0 && x% t==0) 
{it+t mx/t; // 统 计 n 位 优美 倍 积 数 个 数 ,计算 倍数 m 
if (m> max) {max=m;x2=x;t2=t;} // 比 较 求 取 m 的 最 大 值 并 记录 
if (mCmin) {min=m;x1=x;t1=t;} // 比 较 求 取 m 的 最 小 值 并 记录 
} 
} 
if(i>0) 


{ printf(”%d 位 优美 倍 积 数 共 % 1d 个 。\n nm 站 ); 
printf(” 倍数 m 最 大 为 %1d:% 1d=%1dX% 1d\n",max, x2,max,t2) ; 
printf(" 倍数 m 最 小 为 %1d:% 1d=%1dX% 1d\n",min, x1,min, t1) ; 
1 


else printf(” 无 %d 位 优美 倍 积 数 \n",m) ; 
| 


3. 程序 运行 示例 与 说 明 


请 输入 位 数 n(2<n<9): 5 

5 位 优美 倍 积 数 共 9 个 。 

倍数 m 最 大 为 167:64128= 167X 384 
倍数 m 最 小 为 19: 12768= 19X 672 


请 修改 程序 ,输出 指定 n 位 所 有 优美 倍 积 数 。 

这 里 引申 出 一 个 新 的 问题 : 对 于 指定 的 位 数 n, 是 否 存在 n 位 优美 倍 和 同时 倍 积 的 
整数 ? 

4. 引申 探求 n 位 优美 倍 和 积 数 

定义 : 如 果 n 位 整数 x 是 优美 信和 数 ,也 是 优美 售 积 数 , 则 称 x 为 n 位 优美 倍 和 

例如 ,3 位 整数 216, 其 数字 之 和 为 9,216 一 24X9; 同 时 其 数字 之 积 为 12,216 一 18X 
12; 可 见 216 就 是 一 个 3 位 优美 倍 和 积 数 。 

试 修改 以 上 程序 ,搜索 并 输出 指定 n 位 所 有 优美 倍 和 积 数 。 

修改 : 

(1) 增加 统计 数字 和 变量 s, 以 及 数字 和 的 倍数 j。 
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(2) 求 数字 积 时 ,同时 求 数 字 和 : tx 一 kis 十 一 k;(s 需 先 清 零 ) 

(3) 判别 数字 积 的 倍数 ,同时 判别 数字 和 的 倍数 : (x%t 二 二 0 && x%s 一 一 0) 
(4) 计算 数字 积 的 倍数 ,同时 计算 数字 和 的 倍数 : m 二 x/t;j 二 x/s; 

(5) 修改 输出 语句 ,并 删除 有 关 最 大 最 小 操作 。 

例如 ,指定 n 一 5 时 ,程序 运行 结果 如 下 所 示 。 


请 输入 位 数 n(2<n<9): 5 

1: 12768= 532X 24, 12768= 19X 672 
2: 13248= 736X 18, 13248= 69 X 192 
3: 13824= 768X 18, 13824= 72X 192 
4: 18432= 1024X 18, 18432= 96X 192 
5: 61824= 2944X 21, 61824= 161X 384 
5 位 优美 倍 和 积 数 共 5 个 。 


显然 ,以 上 输出 的 5 个 5 位 优美 信和 积 数 是 上 面 9 个 5 位 优美 倍 积 数 的 一 个 子 集 。 
其 中 ,第 2,3,4 个 优美 倍 和 积 数 都 是 由 1,2,3,4,8 通过 不 同 排列 组 成 的 5 位 数 ,以 后 将 其 
称 为 “ 变 序数 ”。 


1.3 平方 数 汇 趣 


一 个 整数 的 2 次 寡 称 为 平方 数 (又 称 完全 平方 数 ) 。 例 如 ,36 一 6 ,121 二 11? 等 都 是 平 
方 数 。 本 节 探 讨 平方 数 的 几 个 有 趣 的 问题 。 


1.3.1 “1 和 22 的 平方 数 


国外 文献 中 有 标题 "1 和 2” 的 趣 题 给 出 了 一 类 平方 数 的 独特 构成 。 本 节 在 给 出 简单 
求解 基础 上 适当 拓展 。 
【问题 】”“1 和 2” 操作 为 什么 是 平方 数 ? 
连续 写 偶数 个 1, 再 连续 写 位 数 为 其 一 半 的 2, 然 后 两 数 相 减 , 所 得 的 差 是 一 个 平 
沪 六 
例如 ,11 一 2 一 9 一 32;1111 一 22 一 1089 一 3323 
你 能 说 明 这 是 为 什么 吗 ? 
【探求 】 设 2 的 位 数 为 k(k>0) , 则 1 的 位 数 为 2k。 
同时 , 记 连 续 k 个 1 的 值 为 m, 记 连续 zk 个 1 的 值 为 c, 记 连续 k 个 2 的 值 为 b, 显 然 
b= 二 2m, 记 其 差 为 d=c 一 b。 
把 分 为 前 后 两 段 , 每 段 k 个 1, 显 然 低 段 即 为 m. 高 段 为 mX10*, 而 10* 二 9m 十 1, 有 
c 一 mX1l0k 十 m 一 m(10* 十 1) 一 mL(C9m 十 1) 十 1] 一 9m2 十 2m 
d=c—b=(9m 二 2m)—2m==9m’ = (3m)’ 
即 所 写 两 数 之 差 为 整数 3m 的 平方 ,这 里 m 为 连续 写 k 个 1 的 值 。 
例如 ,k 王 2 时 ,1111 一 22 一 (9X112 十 2X11) 一 2X11 一 9X112 一 (33)2; 
再 如 ,k= 二 3 时 ,111 111 一 222 王 (9X1112 十 2X111) 一 2X111 王 9X1112 一 (333): 。 
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【拓展 】“a 和 2a” 操 作 是 平方 数 吗 ? 
(1) 设计 要 点 。 


位 数 为 其 一 半 的 2a。 
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循环 中 根据 a 生成 b,c, 并 求 其 差 。 
连续 写 偶数 个 a: 

c 一 cx 100 十 ax 10+as; 

再 连续 写 位 数 为 其 一 半 的 2a: 

b 王 bx* 10 十 2x* ay 


“连续 写 偶数 个 1 ,再 连续 写 位 数 为 其 一 半 的 2? 拓 展 为 : 连续 写 偶数 个 a, 再 连续 写 


为 确保 2a 为 一 个 数字 ,要 求 键盘 输入 a 为 1,2,3,4。 
建立 位 数 循环 i(1 三 i 二 7), 即 最 多 生成 2*i==14 位 。 


判断 其 差 4 一 c 一 b 是 否 为 平方 数 , 若 是 , 则 输出 平方 式 。 


(2) 拓展 程序 设计 。 


// 拓 展 “a 和 2a" 的 平方 数 

# include < stdio.h> 

# include < math. h> 

voidmain0 

{ double a,b,c,d,e; int i,n=0; 
for(a=1;ak=4;at+) 
{ printf(" a=%.0of 时 :\n",a); 

for b=c=0,i=1;iK=7;i++) 


{ b=bx 10+2xa;c=c* 100+ax 10+a; 


d=c-b; e=floor (pow(d, 0.5)); 
if(d==exe) 


// 设 置 单数 码 a 循环 


// 由 a 生成 b,c 


// 检 验 是 否 是 平方 数 


{ printf("” %2d 位 %.Of: %.0f-%.0f=%.0f°2 \n",2x i,a,c,b,e); 


if(i==7) nt+; 
} 
il 
} 


printf(” 共 以 上 %d 个 a 能 构成 平方 数 。\n",n); 


} 
(3) 拓展 程序 运行 结果 。 


a=1 时 : 

2 位 1: 1 三 32 

4 位 1:11- -332 

6 位 1: 1111- 22= 3332 

8 位 1: 1111111- 2222= 3333 2 

10 位 1: 1111111111- 22222= 33333 2 

12 位 1: 111111111111- 222222= 333333 2 
14 位 1: 11111111111111- 2222222= 3333333 2 
a-2 时 : 

a-3 时 : 


sr-4 时 : 

2 位 4: 44862 

4 位 4: 4444- 88= 的 2 

6 位 4: 444444- 888= 666 2 

8 位 4: 44444444- 8888= 6666 2 

10 位 4: 4444444444- 88888= 66666 2 
全 位 4: 444444444444- 888888= 666666 2 
14 位 4: 44444444444444- 8888888= 6666666 2 
共 以 上 2 个 a 能 构成 平方 数 。 
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由 程序 运行 可 知 ,“1 和 2” 可 得 单数 码 平方 数 ,同时 “4 和 8 ”也 可 得 单数 码 平方 数 。 而 
当 a 二 2 或 3 时 ,没有 单数 码 平方 数 输出 。 
程序 只 设计 到 14 位 ,实际 上 问题 对 位 数 没 有 限制 。 


1.3.2 数字 同 奇偶 平方 数 


你 见 过 各 位 数字 都 是 偶数 的 平方 数 吗 ? 或 者 你 见 过 各 位 数字 都 是 奇数 的 平方 数 吗 ? 
给 出 以 下 5 个 数 : 
1448,56 163,127 452,15 773 579 ,242 888 426 
请 简单 判断 其 中 哪些 平方 数 错 了 ,并 说 明理 由 。 
同学 们 各 抒 己见 : 
平方 数 的 个 位 数字 不 可 能 为 2,3,7,8, 因 而 前 3 个 不 是 平方 数 。 
第 4 个 数 各 位 数字 为 奇数 ,第 5 个 数 各 位 数字 为 偶数 ,是 不 是 平方 数 ,意见 不 一 。 
那么 ,组 成 数字 同 奇偶 的 整数 可 能 是 平方 数 吗 ? 
【命题 1】 不 存在 各 位 数字 全 为 奇数 的 多 位 平方 数 。( 这 里 所 说 的 多 位 平方 数 , 是 指 
2 位 或 2 位 以 上 平方 数 。) 
【证 明 】 设 d= 二 a? ,a 为 正 整 数 ,d 为 a 的 平方 数 。 
若 a 为 偶数 , 则 d 为 偶数 ,其 个 位 数字 不 为 奇数 。 
若 a 为 奇数 ,下 面 证 明 d 的 十 位 数字 不 为 奇数 。 
不 妨 设 a=10k 二 m, 这 时 k 为 非 负 整数 ,m 为 一 位 奇数 。 则 
d= (10k+m)? = 100k’ 十 20km 十 ms? = 10(10k? 十 2km) 十 ms (1) 
车 k==0, 则 一 位 奇数 m 的 平方 m? 为 1 一 1,3: 一 9,5? 一 25,72: 一 49,9: 一 81, 其 中 ,后 3 
个 平方 数 为 2 位 数 ,其 十 位 数字 均 为 偶数 。 
若 k>0, 据 式 (1) 知 平方 数 d 的 十 位 数字 为 (10k 十 2km) 与 m? 的 十 位 数字 之 和 的 个 
位 数字 ,注意 到 (10k? 十 2km) 为 偶数 ,m? 的 十 位 数字 为 偶数 ,其 和 为 偶数 , 即 平方 数 d 的 
十 位 数字 为 偶数 。 
因而 证 得 : 一 个 平方 数 如 果 至 少 有 两 位 ,其 各 位 数字 不 可 能 全 为 奇数 。 
【命题 2】 不 存在 各 位 数字 都 是 偶数 且 其 个 位 数字 为 6 的 多 位 平方 数 。 
【证 明 】 假设 d=a? ,d 的 各 位 数字 均 为 偶数 ,其 个 位 数字 为 6。 
因为 d 的 个 位 数字 为 6, 则 a 的 个 位 数字 只 能 为 6 或 4。 
(1) 设 a 二 10k 十 6, 这 时 为 非 负 整数 , 则 
d= (10k 二 6)? = 100k’? 十 120k 十 36 == 10(10k? 十 12k 十 3) 十 6 Cy 
据 式 (2) 知 平方 数 d 的 十 位 数字 为 奇数 (10k? 十 12k 十 3) 的 个 位 数字 ,显然 为 奇数 ,与 
各 位 数字 均 为 偶数 矛盾 。 
(2) 设 a 二 10k 十 4, 这 时 为 非 负 整数 , 则 
d 一 (10k 十 4): = 100k? 十 80k 十 16 == 10(10k? 十 8k 十 1) 十 6 (3) 
据 式 (3) 知 平方 数 d 的 十 位 数字 为 奇数 (10k? 十 8k 十 1) 的 个 位 数字 ,显然 为 奇数 ,与 各 
位 数字 均 为 偶数 矛盾 。 


a 
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因而 证 得 : 一 个 多 位 平方 数 的 各 位 数字 都 是 偶数 ,其 个 位 数字 不 为 6。 

注意 到 数字 2 与 8 不 为 平方 数 的 尾数 字 , 因 而 得 : 如 果 一 个 多 位 平方 数 的 各 位 数字 
都 是 偶数 ,其 个 位 数字 只 能 为 0 与 4。 

【拓展 】 搜索 全 为 偶数 数字 组 成 且 末 位 非 0 的 n 位 平方 数 。 


(1) 编程 要 点 。 
设 d= 二 a?,d 的 各 位 数字 均 为 偶数 , 则 (10a)* 二 100d 即 为 在 d 的 尾部 添加 两 个 0, 显 然 
各 位 数字 也 符合 要 求 。 为 了 消除 这 种 衍生 状态 ,约定 整数 a 的 个 位 数字 不 为 0。 


计算 最 小 的 n 位 数 10^(n 一 1) 开 平方 取 整 数 b, 最 大 的 n 位 数 (10^n) 一 1 开平 方 取 整 
数 c, 以 b 十 1,c 作为 循环 的 初 值 与 终 值 设置 a 枚 举 循环 。 

计算 n 位 平方 数 d= 二 a x a, 通 过 求 余 (%) 与 整除 (/) 分 离 d(w 王 dd) 的 每 一 位 数字 k, 若 
其 中 某 一 个 数字 k 为 奇数 (k% 2 过 0) , 则 标注 t=1 返回 。 

车 t==0, 说 明 平 方 数 d 中 没有 奇数 数字 ,符合 全 偶数 要 求 , 则 输出 全 为 偶数 数字 的 n 
位 平方 数 d, 并 用 变量 e 统 计 个 数 。 

(2) 程序 设计 。 


// 全 为 偶数 数字 与 末 位 非 0 的 n 位 平方 数 
# include < math. h> 
# include < stdio. h> 
void main0 
{ int e,k,mni longa,b,c,d,t,w; 
printf(” 请 确定 位 数 n(n<9):"); scanf ("%d", &n) ; 
e=0;t=1; 
for (k=1;k<=n- 1;k++) t=tx 10; 
b= (long) sqrt (t) ;c= (long) sqrt (10* t—1); 
for (a=b+1;a<=ciar+) 
{ if(a% 10==0) continue; 
d=ax aiwdit=0; // 确 保 d 为 平方 数 
while (w> 0) // 分 离 d 的 n 个 数字 并 统计 频数 
{ k=w% 10;w=w/10; 
if (k% 2> 0) {t= 1;break;} 
} 
if (t==0) 
{ printf(” %2d:",++e); // 统 计 个 数 并 逐个 输出 
printf(" % 1d=% 1d`2",d,a); 
if(e%3==0) printf ("\n"); 
} 
} 
printf("\n 共 以 上 %d 个 。\n",e) ; 
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(3) 程序 运行 示例 与 说 明 。 

请 确定 位 数 n(n<9):7 
1: 2022084= 1422`2 2: 2226064= 1492`2 3: 2244004= 1498 “2 
4: 2862864= 1692°2 5: 4008004= 2002`2 6: 4088484= 2022`2 
7: 4804864= 2192`2 8: 4848804= 2202`2 9: 6240004= 2498"2 
10: 6260004= 2502`2 11: 6646084= 2578`2 12: 8020224= 2832`2 
13: 8282884= 2878`2 14: 8868484= 2978”2 

共 以 上 14 个 。 


我 们 注意 到 ,搜索 并 输出 的 7 位 平方 数 各 位 数字 全 部 为 偶数 , 且 其 个 位 数字 全 部 为 
4。 因 为 个 位 排除 了 0 ,平方 数 的 个 位 不 可 能 为 2.8, 上 面 证 明了 各 位 数字 全 部 为 偶数 的 平 
方 数 的 个 位 数 不 能 为 数字 6, 所 以 结尾 为 清一色 的 4。 


1.3.3 优美 平方 数 


称 不 含 重复 数字 的 完全 平方 数 为 优美 平方 数 。 

试 在 0,1,2,…,9 这 10 个 数字 中 指定 排除 m 个 数字 ,从 其 余 10 一 m 个 数字 选 个 ， 
组 成 没有 重复 数字 的 n 位 优美 平方 数 。 

从 键盘 输入 位 数 n 及 指定 排除 数字 个 数 mm 十 n 三 10) ,并 依次 输入 m 个 排除 数字 ， 
输出 所 有 满足 以 上 要 求 的 平方 数 (如 果 无 须 排 除数 字 , 则 输入 m=0) 。 

1. 设计 要 点 

从 键盘 输入 指定 位 数 n, 指 定 排除 数字 个 数 m, 若 mn>10 则 返回 。 

(1) 枚 举 与 分 离 。 

把 从 键盘 输入 指定 排除 的 m 个 数字 存储 到 数组 g[k](k 王 1 一 m) 。 

计算 最 小 的 n 位 数 10^(n 一 1) 开 平方 取 整 数 b, 最 大 的 n 位 数 (10^n) 一 1 开平 方 取 整 
数 c, 以 b 十 1,c 作为 循环 的 初 值 与 终 值 设置 a 枚 举 循环 。 

计算 d= 二 a* a, 显 然 d 为 n 位 平方 数 。 

通过 求 余 (%) 与 整除 (/) 分 离 d 的 每 一 位 数字 k ,并 用 fLk] 十 十 ;统计 数字 k 的 频数 。 

(2) 判别 与 输出 。 

若 {Lk] 之 1(k 王 0 一 9) ,说 明 数 字 k 重复 ,标记 t=1。 

用 变量 s 统计 fLg[Lk]](k=1 一 m) 之 和 , 若 s 之 0, 说 明 平 方 数 中 含 指定 排除 数字 。 

经 以 上 测试 , 若 t=0 且 s 二 0, 说 明 平 方 数 d 中 既 没 有 重复 数字 ,也 没有 指定 排除 数 
字 ,符合 搜索 要 求 , 则 逐个 输出 ,并 用 变量 e 统 计 个 数 。 


2. 程序 设计 


// 不 含 指定 数字 组 成 的 n 位 优美 平方 数 
# include《“math.h> 
# include < stdio.h> 


void main0 
{ int e,k,mn,s,f[10],g[10]; 
long a,b,c, d,t,t1,t2,w; 
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printf(” 请 确定 位 数 n(n<10) :"); scanf ("%d",&n); 

printf(” 请 确定 不 含 指定 数字 个 数 mr n<<10):"); scanf ("%d", &m) ; 

if n+m> 10) 

{printf(” 不 含 指定 数字 个 数 与 位 数 已 超过 101\n"); return; } 

for(k=1;kC=mikr+) 

{ printf(” 请 确定 不 含 指定 数字 第 %d 个 :",k); 
scanf("%d",&g[k]) ; 

} 

e=0;t=1; 

for (k=1;k<=n- 1;k++) t=t* 10; 

b= (long) sqrt (t) ;c= (long) sqrt (10* t—1); 


for (a=b;ak=c;at+) 


{ d=axa; wd; // 确 保 d 为 平方 数 
for (k=0;k<=9;k++) f[k]=0; 
while (w> 0) // 分 离 n 个 数字 并 统计 频数 


{ k=w% 10;f [kJ+ + ;w= w/10;} 
for (t=0, k=0;k<=9;k++) 


if (FIk]>1) t=1; //t=1, 即 平方 数 中 有 重复 数字 
for(s=0,k=1;k<=m;k++) 
s=s+f[g[k]]; //s> 0, 即 平方 数 中 含有 指定 排除 数字 
if(t==0 && s==0) 
{ printf(” %2d:",++e); // 统 计 个 数 并 逐个 输出 


printf(" % 1d=% 1d”2", d, a); 
if(e% 3==0) printf ("\n"); 
} 
} 
if(e>0) printf("\n 共 可 组 成 以 上 %d 个 %d 位 优美 平方 数 。\n",e,n); 
else printf("\n 不 存在 满足 要 求 的 平方 数 。\n"); 
} 


3. 程序 运行 示例 与 说 明 


请 确定 位 数 n(n<10) :7 

请 确定 不 含 指定 数字 个 数 mr n<<10) :3 

请 确定 不 含 指 定数 字 第 1 个 :2 

请 确定 不 含 指 定数 字 第 2 个 :3 

请 确定 不 含 指定 数字 第 3 个 :9 
1: 1048576= 1024`2 2: 1056784= 1028`2 3: 1085764= 1042°2 
4: 5740816= 2396`2 5: 5764801= 2401`2 6: 6754801= 2599 ”2 
7: 7845601= 2801°2 

共 可 组 成 以 上 7 个 7 位 优美 平方 数 。 


以 上 7 个 7 位 优美 平方 数 是 排除 数字 2,3,9 之 后 所 剩 7 个 数字 全 排列 数 的 一 个 子 集 。 
如 果 排 除 5 个 偶数 数字 ,可 验证 不 存在 5 位 或 5 位 以 下 全 由 奇数 数字 组 成 的 平方 数 。 
运行 程序 时 如 果 输 入 n= 二 10,m 二 0( 即 不 排除 任何 数字 ), 则 输出 10 个 由 数字 0 一 9 
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组 成 的 10 位 优美 平方 数 。 


请 确定 位 数 n(n<<10) :10 

请 确定 不 含 指定 数字 个 数 mrr ns10) :0 
1: 1026753849= 32043`2 2: 1042385796= 32286`2 3: 1098524736= 33144"2 
4: 1237069584= 35172`2 5: 1248703569= 35337`2 6: 1278563049= 35757`2 
7: 1285437609= 35853`2 8: 1382054976= 37176°2 

共 可 组 成 以 上 8 个 10 位 优美 平方 数 。 


运行 程序 ,如 果 输 入 n 二 9,m 二 1, 输入 排除 数字 0, 则 输出 30 个 由 数字 1 一 9 组 成 的 9 
位 优美 平方 数 。 


1.4 勾 股 数 与 长 方 体 数 


色 股 数 是 最 早 引 起 人 们 兴趣 的 数学 现象 ,在 很 远 久 的 年 代 世 界 各 地 都 先后 有 探讨 与 
研究 过 勾 股 数 的 记载 。 

长 方 体 数 是 勾 股 数 的 三 维 推广 。 本 节 在 探索 勾 股 数 设计 求解 基础 上 ,探讨 长 方 体 数 
及 其 相关 的 “六 个 正 整 数 问题 ”。 


1.4.1 勾 股 数 


【背景 〗】 勾 广 三 , 股 修 四 , 弦 隅 五 。 

埃及 最 早 发 现 3,4,5 是 一 组 勾 股 数 。 公 元 前 的 巴比伦 人 就 知道 119,120,169 是 一 个 
直角 三 角形 的 三 边 长 。 

我 国 早 期 的 ( 周 角 算 经 》 谈 到 * 勾 广 三 , 股 修 四 , 弦 隅 五 ,就 是 指 边 长 为 3,4,5 的 直角 
= 角形 , 即 3 十 42 一 5 。 

我 国 著名 数学 家 华罗庚 教授 在 他 生前 写 的 文章 中 说 :“…… 如 果 我 们 宇宙 航船 到 了 
一 个 星球 上 ,那儿 也 有 如 我 们 人 类 一 样 高 级 的 生物 存在 。 我 们 用 什么 东西 作为 我 们 之 间 
的 媒介 ? 带 幅 画 去 吧 , 那 边 风 景 特 殊 , 不 了 解 ; 带 一 段 录 
音 去 吧 , 也 不 能 沟通 。 我 看 最 好 带 两 个 图 形 去 ,一 个 
“ 数 ” ,一 个 “ 数 形 关系 ”( 勾 股 定理 )。” 

“ 数 形 关系 ” 即 勾 股 定理 , 勾 股 数 3,4,5 的 数 形 关系 
如 图 1-1 所 示 。 

古代 数学 家 刘 微 在 《4 九 章 算术 ) 中 记录 了 时 十 12: 一 
132 ,8 十 152 一 172 ,7? 十 24? 二 25? ,20 十 21? 二 29? 等 多 组 


勾 股 数 的 记载 。 
十 希腊 数学 家 毕 达 哥 拉 斯 得 到 一 个 关于 色 股 弦 数 
的 公式 , 当 为 奇数 时 ,n, 工 于 上 , 荆 开 构成 勾 股 纺 数 图 1-1 3,4,5 的 数 形 关系 
下 寺 车 (于) 4m2 二 (nm 一 1)? 二 (nm 十 1)? 
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通常 把 满足 3 元 2 次 方程 式 
嫩 直 二 2 (1) 
的 正 整数 解 x,y,z 称 为 一 组 勾 股 数 ,又 称 毕 达 哥 拉 斯 三 元 数组 。 该 方程 式 称 为 “ 商 高 方 
程 ? 或 “ 毕 达 哥 拉 斯 方程 。 
注意 到 勾 股 数 3,4,5 之 积 为 60, 考 察 其 他 勾 股 数 之 积 也 能 被 60 整除 ,猜想 勾 股 数 之 
积 是 否 都 为 60 的 倍数 ? 
【命题 1】 若 正 整数 x,y,z 是 一 组 满足 式 (1) 的 勾 股 数 , 则 其 积 xyz 必 被 60 整除 。 
【证 明 】 只 要 证 满足 式 (1) 的 x,y,z 有 一 个 是 3 的 倍数 ,有 一 个 是 4 的 倍数 ,有 一 个 
是 5 的 倍数 , 则 必 有 xyz 是 60 的 倍数 , 即 xyz==0(mod 60)。 
(1) x,y,z 中 必 有 一 个 是 3 的 倍数 。 
假设 x,y,z 都 不 是 3 的 倍数 ,注意 到 
(3k 士 1)2 一 3(3k? 士 2k) 十 1 一 1Cmod 3) 
因而 式 (1) 左 边 为 2(mod 3) ,而 (1) 右 边 为 1(mod 3) ,矛盾 。 
(2) x,y,z 中 必 有 一 个 是 4 的 倍数 。 
假设 x,y,z 都 不 是 4 的 倍数 ,注意 到 
(4k 士 1)2 一 8(2k? 士 k) 十 1 王 1Cmod 8) 
(4k 十 2)2 一 8(2k2? 十 2k) 十 4 一 4Cmod 8) 
因而 式 (1) 左 边 为 0,2,5(mod 8) ,而 式 (1) 右 边 为 1,4(mod 8) ,矛盾 。 
(3) x,y,z 中 必 有 一 个 是 5 的 倍数 。 
假设 x,y,z 都 不 是 5 的 倍数 ,注意 到 
(5k 士 1)2 一 5(5k? 士 2k) 十 1 王 1Cmod 5) 
(5k 士 2)2 一 5(5k2: 士 4k) 十 4 一 4Cmod 5) 
因而 式 (1) 左 边 为 0,2,3(mod 5) ,而 式 (1) 右 边 为 1,4(mod 5) ,矛盾 。 
综 上 即 得 满足 式 (1) 的 勾 股 数 x,y,z 之 积 xyz 必 是 60 的 倍数 ,证 毕 。 
【拓展 】 试探 求 并 输出 指定 区 间 [a,bj 内 的 所 有 勾 股 数组 。 
从 键盘 输入 整数 a,b(a 二 b) ,寻求 满足 式 (1) 的 整数 x,y,z(ax 二 yz 寺 b)。 
(1) 设计 要 点 。 
设 指定 区 间 为 [a,bj, 设 置 二 重 循 环 在 指定 区 间 内 枚 举 x,yCx<y) ,应 用 勾 股 数 的 定 
义 式 计算 d 一 xx x 十 yx* y;z 王 sqrt(d)。 
若 z 过 b 且 zxz=d, 则 输出 x,y,z 这 一 组 满足 式 (1) 的 勾 股 数 解 。 
(2) 程序 设计 。 


// 探 求 指定 区 间 内 勾 股 数组 
# include < stdio. h> 
# include < math. h> 


void main0 


{ inta,b,n; long x,y,z,d; 
printf(” 请 确定 区 间 [a,b] 的 上 下 限 a,b: "); 
scanf ("% d, % d", &a, &b) ; 
printf(” 区 间 [%d,%d] 中 的 勾 股 数组 有 : \n",a,b); 
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n=0; 
for (x=a;x<=b- 2;x++) 
for (y=x+ 1;y<=b- 1;y++) 
{ d=xx*xtyxy; z=sart(d); //z 为 x,y 的 平方 和 开平 方 
if(zx=b && zx*z==d) // 满 足 勾 股 数 条 件 时 输出 
printf(” %d: %1d’2+%1d 2=%1d2 \n",++n,x,y,2); 
} 
printf(” 共 %d 组 勾 股 数 。\n",n); 
} 


(3) 程序 运行 示例 与 变通 。 


请 确定 区 间 [a,b] 的 上 下 限 a,b: 1350, 2019 
区 间 [1350, 2019] 中 的 勾 股 数组 有 : 

1: 1357°2+ 1476`2= 2005°2 

2: 1360°2+ 1428`2= 1972°2 

3: 1380"2+ 1449°2= 2001°2 

4: 1392°2+ 1394°2= 1970`2 
共 4 组 勾 股 数 。 


由 勾 股 数 (3,4,5),(20,21,29) 构 成 的 直角 三 角形 的 两 直角 边 为 连续 整数 。 是 否 可 变 
通 以 上 程序 , 求 取 指定 区 间 内 两 直角 边 为 连续 整数 的 色 股 三 角形 ? 

变通 : 求 勾 股 数 中 y= 二 x 十 1 的 子 集 。 

删除 y 循环 ,同时 在 循环 体 中 添加 y 一 x 十 1; 给 变量 y 赋值 。 

运行 变通 程序 ,结果 如 下 所 示 。 


请 确定 区 间 [a,b] 的 上 下 限 a,b: 3, 1000 
区 间 [3, 1000] 中 的 连续 直角 边 勾 股 数组 有 : 


1: 3°2+4°2=5°2 2: 20°2+ 21°2= 29°2 
3: 119°2+ 120°2= 169"2 4: 696`2+ 697°2= 985"2 
共 4 组 勾 股 数 。 


以 上 所 得 4 组 勾 股 数 中 ,前 两 个 数 为 连续 整数 。 
【 费 马 大 定理 】 在 3 元 2 次 方程 式 (1) 的 基础 上 把 指数 拓展 至 n 三 3, 即 得 
让 十 二 六 (2 

以 上 3 元 n 次 方程 在 n 宇 3 时 不 存在 正 整数 解 。 

大 约 1637 年 左右 ,法 国 业 余数 学 家 费 马 (Fermat) 在 阅读 丢 番 图 (Diophantus)《 算 术 》 
拉丁 文 译本 时 ,在 讨论 不 定 方程 (2) 的 那 页 书 空白 处 写 道 :“ 将 一 个 立方 数 分 成 两 个 立方 
数 之 和 ,或 一 个 4 次 寡 分 成 两 个 4 次 寡 之 和 ,或 者 一 般 地 将 一 个 高 于 二 次 的 客 分 成 两 个 同 
次 震 之 和 ,这 是 不 可 能 的 。 关 于 此 .我 确信 已 发 现 了 一 种 美妙 的 证 法 ,可 惜 这 里 空白 的 地 
方太 小 , 写 不 下 。” 

费 马 当 时 是 否 真 的 想 出 了 这 一 命题 的 证 明 , 这 是 一 个 无 法 判定 的 千古 之 谜 ,也 给 后 世 
数学 家 们 留 下 了 一 道 令 人 难堪 的 “作业 ”。 

费 马 大 定理 是 史上 最 精彩 的 一 个 数学 谜 题 。 证 明 费 马 大 定理 的 过 程 是 一 部 数学 史诗 。 
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费 马 大 定理 起 源 于 300 多 年 前 ,挑战 人 类 3 个 世纪 ,多 次 震惊 全 世界 , 耗 尽 人 类 众多 
最 杰出 大 脑 的 精力 ,也 让 千 千 万 万 业余 者 痴迷 。 

费 马 大 定理 被 提出 后 ,经 历 多 人 猜想 辨证, 最终 在 1995 年 被 英国 数学 家 怀 尔 斯 
(Andrew Wiles) 彻 底 证 明 。2016 年 3 月 15 日 ,挪威 自然 科学 与 文学 院 宣布 将 2016 年 阿 
贝尔 奖 (Abel Prize) 授 予 怀 尔 斯 ,表彰 他 令 人 震惊 的 费 马 大 定理 证 明 。 

【 欧 拉 猜想 】 把 3 元 2 次 方程 式 (1) 拓 展 到 多 元 ,数学 大 师 欧 拉 曾 有 过 一 个 猜想 : 对 
于 n>2, 一 个 n 次 寡 要 表示 成 n 次 寡 之 和 ,至 少 需要 n 个 加 数 。 

对 于 欧 拉 的 这 一 猜想 ,有 人 用 计算 机 举 出 以 下 反例 : 

275 十 845 十 1105 十 1335 一 1445 (3) 
智者 千 虚 必 有 一 失 , 看 来 数学 天 才 也 有 出 错 的 时 候 。 

【问题 】 在 5 个 连续 整数 中 两 个 较 大 数 的 平方 和 等 于 其 余 3 个 数 的 平方 和 , 试 求 这 5 
个 连续 整数 。 

【思考 】 设 5 个 连续 整数 正中 的 整数 为 m, 两 个 较 大 数 即 为 m 十 1,m 十 2, 比 m 小 的 
两 个 整数 则 为 m 一 1,m 一 2, 于 是 有 方程 式 

(m—2)?+ (mm—1)?+m 一 (m 十 1)2 十 Cm 十 2)2 


化 简 得 
m2z 一 12m 一 mm 一 12) 一 0 
因而 得 m= 二 12, 即 有 连续 5 个 整数 的 平方 和 公式 
10? 十 112 十 122 一 13: 十 142 (4) 
沿 着 连续 整数 推广 到 任意 2n 十 1 个 连续 整数 ,有 以 下 命题 。 
【命题 2】 设 n 为 正 整 数 , 若 m 二 2n(n 十 1) , 则 有 


Dm = Dmt+k)’ (5) 
k=0 k=1 


式 (5) 的 文字 表述 为 : 对 于 任意 正 整数 n, 若 2n 十 1 个 连续 整数 的 正中 整数 为 m 一 
2n(n 十 1) , 则 较 大 的 n 个 整数 的 平方 和 与 较 小 的 n 十 1 个 整数 的 平方 和 相等 。 
【证 明 】〗 式 (5) 两 边 展 开 , 整 理 得 


mi Ske 0 (6) 
k=1 
式 (6) 化 简 得 
m—2n(n+l)m= mlm—2n(n+1)]=0 
立 得 
m 一 2nCn 十 1) (7) 
因而 命题 2 成 立 。 


显然 , 式 (4) 是 式 (5) 取 n=2 的 特例 。 
据 式 (5), 取 n 为 正 整数 ,可 得 相应 的 连续 2n 十 1 项 的 等 式 。 
例如 , 取 n 一 3, 得 m 一 24, 于 是 对 于 7 个 连续 整数 [21,27], 有 
21? 十 222 十 23? 十 242 一 25? 十 26? 十 272 (8) 
再 如 , 取 n 一 31, 得 m 王 1984, 于 是 对 于 63 个 连续 整数 [1953,2015], 有 


18 


第 ! 齐 计 夺 党 卸 笃 束 | 


1953? 十 19542 十 … 十 19842 一 1985? 十 1986? 十 … 十 2015? (9) 

特别 指出 , 据 式 (5), 取 n=1, 由 式 (7) 可 得 m= 二 4, 于 是 对 于 3 个 连续 整数 3,4,5, 有 式 

3 十 人 二 5, 这 就 是 前 面 论 及 的 最 早 勾 股 数组 。 因 而 可 以 说 式 (5) 从 连续 项 方面 把 这 一 勾 
股 数 组 从 3 项 扩展 到 了 2n 十 1 项 。 


1.4.2 长 方 体 数 


从 式 (1) 的 3 元 色 股 数 拓展 到 4 元 的 长 方 体 数 , 从 二 维 的 勾 股 三 角形 拓展 到 三 维 的 长 
方 体 ,是 自然 的 引申 与 拓展 。 

如 果 长 方 体 的 棱 长 x,y,z 和 长 方 体 对 角 线 长 w 都 是 正 整 数 ,那么 把 它们 叫 作 一 组 长 
方 体 数 。 显 然 , 长 方 体 数 是 匀 股 数 的 推广 。 

探求 指定 区 间 [a,b] 内 的 长 方 体 数组 , 即 正 整数 x,y,z,w 满足 


x 二 yy 十 2 二 wi (10) 
其 中 ,a 寺 x 志 yz 二 w 壹 b。 
输入 区 间 [a,bj(1 志 a 二 b 过 10 000) ,输出 区 间 内 的 长 方 体 数组 (x,y,z,w)。 
1. 设计 要 点 


如 何 求解 式 (10) 这 一 涉及 4 变量 x,y,z,w 的 2 次 不 定 方程 ? 
为 尽 可 能 减少 无 效 循环 ,根据 a 三 x 三 yz 二 w 壹 b 的 约定 ,设置 合适 的 循环 参量 。 
注意 到 x 三 b?/3, 据 x 二 yz, 设置 

x: a~sqrt(b * b/3) 

y: x~sqrt((bxb—x* x)/2) 

Zz: y~sqrt(bx*xb—x*x—y*y) 

据 以 上 x,y,z 的 取 值 直接 计算 w, 若 区 间 内 存在 整数 w 满足 x* x 十 y * y 十 z* Zz 二 w 
< w， 则 找 出 一 组 满足 条 件 式 的 整数 x,y,z,w。 

若 输入 的 区 间 [a,b] 范围 比较 小 ,可 能 不 存在 长 方 体 数 ,为 避免 此 时 输出 出 错 ,设置 
统计 解 的 变量 k。 若 k=0, 此 时 无 解 , 则 作 必 要 的 无 解说 明 。 


2. 程序 设计 


// 探 求 指定 区 间 内 的 长 方 体 数 
# include < stdio. h> 

# include < math. h> 

void main0 


{ long a,b, d,k,x,y,z,w; 

printf(” 请 输入 区 间 [a,b] 的 上 下 限 a,b: "); scanf("% 1d,% 1d",&a,&b) ; 

k=0; 

for (x=a;x<= sqrt(b* b/3) ;x++) // 设 置 枚 举 三 重 循环 

for (y=x;y<=sqrt((b* b-xxx)V2);y++) 

for(z=y;zK=sqrt(b* b-xxx-yxy);z++) 

{ d=xxxtyxytzxz; 
w= (long) sqrt (d) ; /wm 为 x,y,z 的 平方 和 开平 方 
if (w=b 8&8& wx w==d) // 满 足 条 件 时 输出 一 组 解 
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printf(” %1d: %1d,%1d,% 1d,%1d \n",++k,x,y,z,w); 
} 
if (k> 0) 
printf(” 在 指定 区 间 [%1d,%1d] 中 共有 以 上 %1d 组 长 方 体 数 。\n",a,b,k); 
else printf(” 在 指定 范围 内 没有 长 方 体 数 1\n"); 
} 


3. 程序 运行 示例 与 说 明 


请 输入 区 间 [a,b] 的 上 下 限 a,b: 1140, 2019 
1: 1141, 1148, 1156, 1989 
2: 1144, 1144, 1157, 1989 
3: 1162, 1166, 1169, 2019 
在 指定 区 间 [1140, 2019] 中 共有 以 上 3 组 长 方 体 数 。 


由 长 方 体 数 的 定义 ,可 知 长 方 体 数 中 x,y 可 能 相等 (如 第 二 组 解 ) ,同样 y,z 也 可 能 
如 果 要 求 长 方 体 数 中 的 3 边 互 不 相等 , 即 x 二 y=z, 只 需 在 设置 枚 举 循环 时 ,设置 y 循 
环 从 初 值 y 二 x 十 1 开始 ,设置 z 循环 从 初 值 z==y 十 1 开始 即 可 。 


1.4.3 6 个 正 整 数 问题 


加 德 纳 (Gardner) 是 美国 著名 的 科普 专栏 作家 ,他 在 1970 年 的 (科学 美国 人 杂志 上 
提出 一 个 一 般 问题 : 在 一 个 长 方 体 中 ,从 一 顶点 出 发 的 3 条 棱 长 .3 个 面 的 对 角 线 长 以 及 
体 对 角 线 长 这 7 条 线段 中 ,能 否 同时 出 现 6 个 正 整 数 ? 

加 德 纳 提出 的 6 个 正 整数 是 以 下 3 个 不 同 问题 的 综合 形式 。 

Q@ 体 对 角 线 长 是 无 理 数 ,其 余 6 条 线段 长 是 正 整数 。 

@ 一 条 楼 长 是 无 理 数 ,其 余 是 正 整数 。 

@ 一 个 面 的 对 角 线 长 是 无 理 数 ,其 余 是 正 整数 。 

关于 问题 DO , 早 在 1719 年 , 哈 尔 克 (P. Halcke) 已 经 发 现 , 若 长 方 体 的 棱 长 为 117,44， 
240, 则 其 面 对 角 线 的 长 度 分 别 为 267,244,125。 

问题 @ 也 是 有 解 的 。 例 如 , 取 长 方 体 的 棱 长 为 a 二 124,b 二 957,c? 二 13 852 800, 那 么 
各 个 面 对 角 线 的 长 度 是 965,3724,3843; 体 对 角 线 的 长 度 是 3845。 除 去 c 是 无 理 数 外 ,其 
余 6 个 数 都 是 正 整数 。 

数学 家 欧 拉 已 经 得 到 过 问题 四 的 一 些 解 。 

棱 长 是 (104,153,672) , 体 对 角 线 长 是 697.2 个 面 对 角 线 长 是 185 ,680; 

棱 长 是 (117,520.756) , 体 对 角 线 长 是 925,2 个 面 对 角 线 长 是 533 ,765。 

下 面 编程 探讨 在 指定 区 间 [a,b] 内 搜寻 6 个 整数 ,其 中 3 个 整数 是 长 方 体 的 长 、 宽 、 
高 , 另 3 个 整数 是 该 长 方 体 的 6 个 面 的 对 角 线 长 。 


1. 设计 要 点 
注意 到 甜 形 两 边 相 等 时 其 对 角 线 长 非 整数 , 即 得 6 个 数 中 不 可 能 有 相等 的 整数 。 
设 长 方 体 的 长 、 宽 、 高 分 别 为 整数 x,y,z(x<y<z), 相对 应 面 的 对 角 线 长 分 别 为 el ， 
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€2,e3。 
要 使 其 各 面 对 角 线 长 el ,e2,e3 都 是 整数 , 则 x,y,z 这 3 个 数 中 每 两 个 的 平方 和 都 应 
是 平方 数 册 ,d2,d3。 也 就 是 说 ,x,y,z 中 每 两 个 都 应 是 一 组 勾 股 数组 的 勾 股 数 。 
设置 x,y,z(a 志 x 二 y 二 z 寺 b) 三 重 循环 。 
注意 到 x? 过 b?/2 ,设置 
x: a~sqrt(b* b/2) 
据 x<y<z, 设 置 
y: x 十 1 一 sqrt(b* b 一 xxX) 


z: y 十 1 一 sqrt(bx b—x* x) 

计算 x,y 的 平方 和 赋 给 dl ,dl 再 开 方 取 整 赋 给 el , 即 dl 一 xx x 十 y* y,el= (long) 
(sqrt(d1)), 若 1 二 el x el, 说 明 以 x,y 为 边 长 的 面 的 对 角 线 长 el 为 整数 。 

同样 ,判别 以 x,z 为 边 长 与 以 y,z 为 边 长 的 面 的 对 角 线 长 是 否 为 整数 。 

当 这 3 个 判别 同时 满足 时 ,输出 一 组 “6 个 整数 ”的 解 。 


2. 求 长 方 体 数 6 个 整数 程序 设计 


// 探 求 长 方 体 的 6 个 整数 
# include < math. h> 
# include < stdio. h> 
void main0 
{ long a,b, x,y,z,e1,e2,e3, d1, d2,d3,n= 0; 
printf(” 请 输入 区 间 [a,b] 的 上 下 限 a,b: "); scanf("% 1d,% 1d", &a, &b) ; 
for (x= aixK sqrt (b * b/2) ;x++) // 设 三 棱 长 x<y<z, 循 环 判别 
{ for(y=x+1;y<=sqrt(bx*b-x*x);yt+) 
{ dl=xx x+yxyi el= (long)sqrt(d1) ; 
if (di==e1 x el1 8&& e1<b) 
{ for(z=yt+1;z<=sqrt(bxb-x*x);zt+) 
{ d2=xx x+zxzie2= (long)sqrt(d2); 
d3= y* yt+zx*z; e3= (long)sqrt(d3) ; 
if(d2==e2x* e2 && d3==e3* e3 8&& e2b && e3C=b) 
{ nt+;printf(” NO% 1d: ",n); // 输 出 长 方 体 三 棱 长 
printf("% 1d,% 1d,% Id\n", x, y, 2z); 
printf(” 各 面 对 角 线 长 :"); 
printf(" L(% 1d,% 1d)=% 1d", x, y, e1); // 注 明 三 面 对 角 线 长 
printf(" L(% 1d,% 1d)=% 1d", x,z,e2); 
printf(" L(% 1d,% 1d)=% ld\n", y, z, e3); 
break; 
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3. 程序 运行 示例 与 说 明 


请 输入 区 间 [a,b] 的 上 下 限 a,b: 1000, 2019 

NO1: 1008, 1100, 1155 

各 面 对 角 线 长 : L (1008, 1100)= 1492, L (1008, 1155)= 1533, L (1100, 1155)= 1595 
NO2: 1200, 1260, 1375 

各 面 对 角 线 长 : L(1200, 1260)= 1740，L(1200, 1375)= 1825, L (1260, 1375)= 1865 


以 上 输出 了 指定 区 间 内 两 组 长 方 体 数 的 6 个 整数 , 即 不 同 3 边 长 与 不 同 3 面 的 对 角 
线 长 的 整数 。 

4. 优美 长 方 体 

如 果 有 一 个 长 方 体 , 它 的 所 有 楼 长 .所 有 面 对 角 线 长 和 体 对 角 线 长 都 是 正 整数 ,就 称 
它 为 优美 长 方 体 (perfect cuboid) 。 

是 否 存在 优美 长 方 体 ? 这 是 一 个 著名 的 难题 ,至 今 还 没有 结论 。 

一 个 非常 自然 的 想法 ,是 在 以 上 ”6 个 正 整数 "设计 解答 的 基础 上 继续 探索 “7 个 正 整 
数 ”"。 现 有 的 探索 还 没有 确切 的 结果 ,无 法 断言 是 否 存 在 优美 长 方 体 。 


1.5 完全 数 与 p- 完 全 数 


完全 数 是 数学 家 们 研究 最 多 也 是 最 热 的 一 类 整数 ,其 中 是 否 存在 奇 完全 数 还 是 尚 无 
答案 . 留 有 悬念 的 问题 。 

本 节 在 探索 完全 数 的 基础 上 ,引入 因数 比 的 概念 ,进一步 引申 与 探索 因数 比 为 大 于 1 
的 正 整数 p 的 p- 完 全 数 。 


1.5.1 完全 数 


若 正 整数 n 的 所 有 小 于 mn 的 正 因数 之 和 若 等 于 n 本 身 , 则 称 数 n 为 完全 数 ,又 称 完美 
数 。 例 如 ,6 的 小 于 6 的 正 因数 为 1,2,3 ,而 6==1 十 2 十 3, 则 6 是 一 个 完全 数 。 
试探 求 指定 区 间 [x,y] 内 的 完全 数 。 


1. 设计 要 点 

对 指定 区 间 [x,yj 中 的 每 一 个 整数 a 实施 枚 举 判 别 。 根 据 完全 数 的 定义 ,为 了 判别 整 
数 a 是 不 是 完全 数 , 用 试 商 判 别 法 找 出 a 的 所 有 小 于 a 的 因数 k。 
注意 到 1 是 任何 整数 的 因数 , 先 把 因数 1 定 下 来 , 即 因数 和 s 赋 初 值 1。 

注意 到 整数 a 若 为 非 平方 数 , 它 的 大 于 1 小 于 a 的 因数 成 对 出 现 ,其 中 较 小 的 因数 要 
小 于 a 的 平方 根 sqrt(a)。 因 此 ,在 作 赋 值 b=sqrt(a) 之 后 ,因数 k 的 循环 可 设置 从 2 到 b 
来 完成 ,大 大 减少 k 循环 次 数 ,缩减 程序 的 运行 时 间 。 

若 整数 a 恰 为 整数 b 的 平方 ,此 时 b 为 a 的 一 个 因数 而 不 是 一 对 ,注意 到 因数 b 加 了 
两 次 ,应 把 多 加 一 次 的 b 从 s 中 减 去 。 

结束 循环 后 ,如 果 a 一 s, 整 数 a 即 为 完全 数 。 特 别 指出 , 若 整 数 a 为 完全 数 又 是 奇数 ， 
即 找到 了 “ 奇 完全 数 ”, 这 是 一 个 令 人 鼓舞 的 发 现 . 作 特别 说 明 。 
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则 输出 “( 已 通过 验证 。)”。 
2. 程序 设计 
// 求 指定 区 间 内 的 完全 数 
# include < stdio.h> 
# include < math. h> 


void main0 


{ int kilong a,b,s,s0,x,yi 


printf(” 请 输入 整数 x,y:"); scanf("% 1d,% 1d", &x, &y); 


printf(” 区 间 [%1d,%1d] 中 的 完全 数 有 :\n",x,y); 
for (a=x;ak=y;at+) 
{ s0= s=1;b= sqrt(a); 
for (k=2;k<=b;k++) 
if (a%k==0) s= st k+ a/k; 
if(a==bxb) s=s-b; 
if(a==s) 
{ if(a%2>0) printf(” 找到 奇 完 全 数 1"); 
printf(” % 1d=1",a); 
for (k=2;k<=a/2;k++) 
if(a%k==0) {printf ("+%d",k); s0= sO+k;} 
if(a==s0) printf(” (已 通过 验证 .) ); 
printf ("\n"); 


} 
3. 程序 运行 示例 与 说 明 


请 输入 整数 x,y:1, 1000 

区 间 [1,1000] 中 的 完全 数 有 : 

妇 1+2+3 (已 通过 验证 ,) 

28=1+2+4+7+14 (已 通过 验证 。) 

496= 1+2+4+8+16+31+62+124+248 (已 通过 验证 。) 
请 输入 整数 x, y:33000000, 34000000 

区 间 [33000000, 34000000] 中 的 完全 数 有 : 


第 ! 齐 计 告 党 趣 冬训 


为 了 检验 找到 的 完全 数 并 输出 其 各 个 因数 ,对 找到 的 完全 数 a 实施 2 一 a/2 的 逐个 检 
验 是 否 为 因数 ,输出 该 因数 并 求 和 s0。 如 果 a 二 s0, 即 应 用 另 因数 分 解法 通过 验证 无 误 ， 


// 试 商 寻 求 a 的 因数 k 
// 因 数 k 与 a/k 求 和 


// 如 果 a=b"2, 去掉 一 个 重复 


// 打 印 a 的 因数 和 式 


数 b 


// 按 另 一 种 方法 分 解 因数 并 求 和 s0 


+ 131056+ 262112+ 524224+ 1048448+ 2096896+ 4193792+ 8387584+ 16775168 


(已 通过 验证 。) 


程序 对 区 间 内 的 所 有 整数 实施 分 解 检验 ,没有 发 现 奇 完全 数 。 至 今 为 止 ,寻找 到 的 完 


全 数 都 是 偶 完全 数 。 


本 程序 应 用 两 种 不 同 的 方法 分 解 因数 求 和 验证 ,并 输出 找到 的 完全 数 的 各 个 因数 ,这 


是 程序 的 特色 。 
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是 否 存在 奇 完全 数 ,目前 既 不 能 证 明 , 也 不 能 否定 ,还 有 待 数学 家 进一步 的 研究 
探讨 。 


1.5.2 p- 完 全数 


设 正 整数 a 的 小 于 其 本 身 的 因数 之 和 为 s, 定 义 比值 
p(a) = s/a 

为 整数 a 的 因数 比 。 

事实 上 ,完全 数 是 因数 比 为 1 的 整数 。 例 如 ,p(6) 一 1,6 为 完全 数 。 

若 整数 的 因数 比 为 某 一 大 于 1 的 整数 p, 则 称 该 整数 为 p- 完 全 数 。 

例如 ,p(120) 一 2, 则 120 为 2- 完 全 数 ;p(32 760) 二 3, 则 32 760 为 3- 完 全 数 。 

试 搜索 指定 区 间 [x,y] 中 的 完全 数 与 p- 完 全 数 。 若 区 间 中 没有 完全 数 与 p- 完 全 数 ， 
探求 并 输出 区 间 中 哪 一 整数 的 因数 比 最 接近 某 一 正 整数 。 


1. 设计 要 点 

为 扩大 整数 的 范围 ,相关 变量 设置 为 double 型 。 

为 了 求 整 数 a 的 真 因数 和 s, 设 置 k(2 一 sqrt(a)) 循 环 枚 举 , 如 果 k 是 a 的 因数 , 则 ak 
也 是 a 的 因数 ,通过 迭代 s 二 s 十 k 十 a/k; 求 取 a 的 因数 和 s。 

同样 ,如 果 a 二 bxb, 显 然 k 二 b,a/k 二 b, 此 时 k= 二 a/k。 而 因数 b 只 有 一 个 ,所 以 此 时 
必须 从 和 s 中 减 去 一 个 b, 这 样 避免 重复 计算 的 处 理 是 必要 的 。 

设置 min 存储 因数 比 与 正 整数 差 值 的 最 小 值 。 通 过 计算 s,t=sy/a 及 与 正 整数 d 的 最 
小 差距 c=t 一 d(c 宇 0) :车 c=0, 此 时 的 因数 比 t 为 正 整数 ,通过 数组 p,q 存储 a 及 其 因数 
比 ; 若 ce 二 0, 说 明 其 因数 比 t 非 正 整 数 , 则 通过 与 min 比较 ,记录 其 因数 和 sl 与 因数 比 t1， 
求 取 因数 比 最 接近 的 正 整数 dl 。 


2. 程序 设计 


// 探 求 指定 区 间 内 的 完全 数 与 p- 完 全 数 
# include < stdio. h> 
# include < math. h> 
voidmain0 
{ double a,al,b,c,d,d1,k, s,s1, t,t1,x,y,p[10],q[10],min; 
int j,m=0; 
min=1.0; 
printf(” 请 输入 区 间 x,y: "); scanf("% 1f,% 1f", &x, &y) ; 
for (a=x;a =y;at+) // 枚 举 区 间 内 的 所 有 整数 a 
{ s=1;b=floor (sqrt (a)); 
for (k=2;k<=b;k+ +) // 试 商 寻求 a 的 因数 k 
if (fmod (a, k)==0) s=s+tk+a/k; // 因 数 k 与 ak 求 和 
if(a==bxb) s=s-b; // 如 果 a=b"2, 去掉 重复 因数 b 
t=s/a; d= floor (t) ;c=t-d; 
if(c==0) {m+ ;plm]=a;q[m]=t; } 
else if(c>0.5) {c=1-c;d=d+1;} //c 为 因数 比 + 最 接近 正 整 数 d 的 差 值 
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if(t>0.5 && c<min) 


{min= c;al= a;s1= s;t1=t;d1= di] // 比 较 求 因数 比 最 接近 的 整数 
| 
ifm>0) 
for (j=1;jK=m;j++) // 逐 一 输出 完全 数 与 p- 完 全 数 


printf(” p(%.0f)=%.0f ",p[j],q[j]); 


else 


printf(” %.0f 的 因数 和 为 %.0f, 因 数 比 %.4f 最 接近 正 整数 %.0f。\n",al,s1,t1,d1); 
} 


3. 程序 运行 示例 与 说 明 


请 输入 区 间 x,y: 100, 40000 
p(120)=2 p(496)=1 
p(672)=2 p(8128)=1 
p(30240)= 3 p(32760)= 3 
请 输入 区 间 x,y: 10000, 20000 
16384 的 因数 和 为 16383, 因数 比 0.9999 最 接近 正 整 数 1。 


在 区 间 [100,40 000] 中 搜索 到 p=1,2,3 的 p- 完 全 数 各 两 个 。 
在 区 间 [10 000,20 000] 中 没有 p- 完 全 数 , 则 输出 其 因数 比 最 接近 的 整数 16 384。 
程序 还 可 探求 到 因数 比 为 4 的 4- 完 全数 ,如 下 所 示 。 


请 输入 区 间 x,y: 518666803000, 518666804000 
p (518666803200)= 4 


是 否 存在 5- 完 全 数 或 6- 完 全 数 ? 笔者 猜想 存在 p- 完 全 数 的 整数 p 是 无 限 的 ,只 是 当 
p>4 时 的 p- 完 全 数 会 更 加 庞大 ,其 探求 过 程 也 更 为 复杂 。 


1.6 卡 普 雷 卡 数 


相传 在 我 国 近邻 印度 , 某 铁路 线 上 的 一 块 写 着 3025(km) 的 里 程 碑 被 雷击 而 一 分 为 
二 : 30,25。 某 天 ,数学 家 卡 普 雷 卡 (Kaprekar) 路 过 那里 ,他 发 现 3025 这 个 数 因 雷击 而 突 
显 “ 个 性 ”, 即 有 3025 一 (30 十 25)2 。 
此 后 , 卡 普 雷 卡 专门 收集 这 种 神奇 的 “ 怪 数 ”"。 现 称 这 样 具 有 “分 2 段 和 的 平方 ”特性 
的 整数 为 卡 普 雷 卡 数 。 
【问题 】 在 4 位 整数 中 寻求 与 (30 十 25) 一 3025 类 似 的 卡 普 雷 卡 数 。 
【探求 】 保留 低 2 位 为 25 ,探求 4 位 数 。 
设 x 是 2 位 整数 , 则 
(x 十 25)? 一 xl100 十 25 
整理 并 分 解 ,有 
(x— 30)(x—20)=0 
因而 得 x 二 30, x 二 20, 即 在 4 位 整数 中 除了 3025 之 外 , 卡 普 雷 卡 数 还 有 2025, 即 (20 十 
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25)? =2025。 

【拓展 】 从 4 位 拓展 到 偶数 位 。 

探索 偶数 n 位 卡 普 雷 卡 数 : 偶数 n 位 整数 分 为 前 后 两 个 n/2 位 整数 ,该 数 等 
两 个 数 和 的 平方 。 

输入 偶数 n(4 三 n 三 14) ,输出 所 有 n 位 卡 普 雷 卡 数 。 


1. 设计 要 点 
注意 到 位 数 n 可 能 超过 10 位 ,相关 变量 设置 为 双 精度 实 型 。 
(1) 设置 枚 举 循环 。 
设 n 位 平方 数 a=b* b, 求 出 b 的 最 小 值 与 最 大 值 d。 
为 缩减 循环 次 数 ,设置 b(c 一 d) 循 环 ,循环 中 a=b*b 即 为 n 位 平方 数 。 
(2) 实施 分 段 。 
设置 分 段 特征 量 w 王 10”: ,对 平方 数 a 应 用 取 整 x 二 floor(a/w) 与 求 余 y 一 fmod( 
计算 a 分 段 的 前 后 两 个 n/2 位 整数 x,y。 
(3) 分 段 和 判别 。 
如 果 后 一 段 首位 为 零 , 则 导致 整数 y 不 足 n/2 位 ,为 此 需 加 上 条 件 > 之 =w/10。 
若 满足 条 件 b=x+y 且 y>=w/10, 即 找到 mn 位 卡 普 雷 卡 数 a, 进 行 打印 输出 。 
2. 程序 设计 
// 搜 索 偶数 位 卡 普 雷 卡 数 
# include < stdio.h> 
# include < math. h> 


voidmain0 


{ double a,b,m,w,x,y; int k,n,s; long c,d; 
printf(” 请 输入 偶数 n(n<=14): "); scanf("%d",&n); 
if (n% 2> 0) 
{printf(” 请 输入 偶数 1\n"); return;} 
s=0; 
for (m= 1,k=2;k<=n;kt+) mx =10; 
for (w= 1,k=1;k<=n/2;k+ +) wx=10; 
c= (long) pow (m, 0. 5) ; 


d= (long)pow(10* m- 1, 0.5); // 求 出 枚 举 循环 的 起 点 与 终点 
for(b=c+1;bC=dib++) 
{ a=bxb; 
x= floor (a/w) ; y= fmod (a, w) ; //n 位 平方 数 a 分 为 前 后 数 x,y 
if (b==x+y 8& y>=w/10) // 分 段 和 条 件 检验 


printf("” %d:%.Of= % .0f+%.0f) “2 \n",++s,a,x,y); 
} 
if(s>0) printf(” 共有 以 上 %d 个 %d 位 卡 普 雷 卡 数 .\n", s,n); 
else printf(” 不 存在 %d 位 卡 普 雷 卡 数 . \n",m) ; 
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FF 所 分 


ayw)， 


第 ! 齐 各 夺 党 卸 笃 求 和 


3. 程序 运行 示例 与 说 明 


请 输入 偶数 n(n<=14): 14 
1:19753082469136= (1975308+ 2469136) “2 
2:24284602499481= (2428460+ 2499481) “2 
3:25725782499481= (2572578+ 2499481) “2 
4:30864202469136= (3086420+ 2469136) “2 

共有 以 上 4 个 14 位 卡 普 雷 卡 数 。 


以 上 所 得 4 个 14 位 卡 普 雷 卡 数 所 分 的 前 后 两 段 都 是 7 位 整数 。 

如 果 分 段 和 条 件 检测 中 省 略 y 二 = w/10, 则 出 现 87841600588225 一 (8784160 十 
588225)^2 ,显然 这 一 增 解 所 分 第 2 段 的 首位 是 0, 造 成 两 段位 数 之 和 不 等 于 n 位 。 

当 n==6 时 ,只 有 唯一 一 个 6 位 卡 普 雷 卡 数 : 494209 一 (494 十 209)^2 。 

当 n==8 时 ,有 60481729 王 (6048 十 1729)^2 等 4 个 8 位 卡 普 雷 卡 数 。 

对 于 位 数 n 为 奇数 ,或 分 解 为 多 段 ,或 寡 指 数 为 大 于 2 的 整数 ,是 否 存在 类 似 卡 普 雷 
卡 数 ,将 在 第 3 章 中 探讨 。 


1.7 雅 趣 守 形 数 


本 节 探 讨 守 形 数 ,其 特性 表现 在 其 平方 数 的 尾部 。 

定义 : 若 正 整数 n 是 它 平 方 数 的 尾部 , 则 称 n 为 守 形 数 ,又 称 同 构 数 。 

例如 ,6 是 其 平方 数 36 的 尾部 ,25 是 其 平方 数 625 的 尾部 ,6 与 25 都 是 守 形 数 。 

首先 利用 守 形 数 的 特性 简单 求解 3 位 守 形 数 ,在 此 基础 上 编程 拓展 求 指定 区 间 内 的 
守 形 数 ,并 进一步 探求 多 位 守 形 数 。 


1.7.1 探索 区 间 守 形 数 


先 求解 一 个 简单 的 守 形 数 问题 。 
【问题 】 共有 多 少 个 3 位 守 形 数 ? 
【思考 】 从 个 位 开始 向 高 位 逐 位 探求 。 
(1) 除了 5 与 6 外 ,1 能 否 构 成 守 形 数 的 尾部 ? 
回答 是 否定 的 。 事实 上 ,1 二 1,1 是 1 的 平方 ,而 不 是 其 平方 数 的 尾部 。 
设 2 位 整数 a 二 10k 十 1( 即 a 的 十 位 数字 是 k 之 0) ,只 要 证 a? 的 十 位 数字 不 为 k 即 可 。 
az 一 (10k 十 1): = 10(10k: 十 2k) 十 1 
可 见 ,a 的 十 位 数字 是 2k 的 个 位 数字 ,无 论 k>0 为 何 数字 ,2k 的 个 位 数字 都 不 可 能 
为 数字 k。 
(2) 任意 n 位 守 形 数 必 为 n 一 1 位 守 形 数 。 
要 求 3 位 守 形 数 ,可 先 求 出 所 有 2 位 守 形 数 。 
@ 设 a 二 10k 十 5 为 个 位 数字 为 5, 十 位 数字 为 k(k 放 0) 的 2 位 整数 , 则 
az = (10k 二 5)? == 100(k? 十 k) 十 25 
显然 a? 的 最 低 2 位 为 25, 其 十 位 数字 为 2。 
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即 要 使 a 为 守 形 数 ,只 有 =2, 即 a 一 25 这 一 个 解 。 
@@ 设 a 一 10k 十 6 为 个 位 数字 为 6, 十 位 数字 为 k(k>0) 的 2 位 整数 , 则 
az 一 (10k 十 6): = 100(k: 十 k) 十 10(2k 十 3) 十 6 
显然 a? 的 十 位 数字 为 (2k 十 3) 的 个 位 数字 , 即 (2k 十 3) %10。 
由 (2k 十 3)%10 二 k, 推 得 有 k= 二 7, 即 a 二 76 这 一 个 解 。 
(3) 在 2 位 守 形 数 基础 上 配置 首位 。 
@ 设 a=100k 十 25, 即 低 2 位 为 守 形 数 25 , 百 位 数字 为 k(k>0) 的 3 位 整数 , 则 
az = (100k 十 25)2: 一 1000(10k? 十 5k) 十 625 
显然 的 最 低 3 位 为 625, 其 百 位 数字 为 6。 
即 a 为 个 位 数字 是 5 的 3 位 守 形 数 , 百 位 数字 k= 二 6, 即 a 二 625 这 一 个 解 。 
四 设 a 王 100k 十 76 为 低 2 位 为 守 形 数 76 , 百 位 数字 为 k(k>0) 的 3 位 整数 , 则 
az 一 (100k 十 76)? 一 1000(10k? 十 15k 十 5) 十 100(2k 十 7) 十 76 
显然 a? 的 百 位 数字 为 (2k 十 7) 的 个 位 数字 , 即 (2k 十 7) %10。 
由 (2k 十 7)%10 二 k, 推 得 有 fk 二 3, 即 a 一 376 这 一 个 解 。 
(4) 综合 以 上 可 知 共 两 个 3 位 守 形 数 : 
3762: 一 141 376 
625? 一 390 625 
依 此 可 求 出 4 位 、5 位 守 形 数 。 
【拓展 】 试探 求 指定 区 间 [x,y] 内 所 有 守 形 数 。 
(1) 设计 要 点 。 
为 了 扩大 探求 范围 ,变量 类 型 设置 为 double 型 。 
对 指定 范围 [x,yj 内 的 每 一 个 整数 a( 约 定 a 之 1) , 求 出 其 平方 数 s; 计 算 a 的 位 数 k, 同 


时 计算 b= 王 10^k,a 的 平方 s 的 尾部 c= 二 fmod(s,b); 比 较 整数 a 与 其 平方 数 的 尾部 c, 若 
a 一 c 则 和 输出 守 形 数 。 
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(2) 程序 设计 。 


// 探 求 区 间 [x,y] 内 的 守 形 数 

# include < stdio. h> 

# include < math. h> 

void main0 

{ double a,b,c,k,s,x,y; int n=0; 
printf(” 请 输入 区 间 上 下 限 整数 x,y:"); 
scanf ("% If,% If", &x, &y) ; 
for (a= x;ak =y;at+) 


{ s=ax*a;b=1;k=a; // 计 算 a 的 平方 数 s 
while(k> 0) 
{b=bx 10;k= floor (k/10) ;} 
c= fmod (s, b) ; //c 为 a 的 平方 数 s 的 尾部 
if(a==c) 


printf(” %d: %.Of “2=%.Of \n",++n,a,s); 


第 ! 亨 计 夺 党 起 笃 来 和 


printf(” 区 间 [%.0f,%.0f] 中 , 共 以 上 %d 个 守 形 数 。\n ",x,y,n); 
} 


(3) 程序 运行 示例 与 说 明 。 


请 输入 区 间 上 下 限 整数 x,y:100, 1000000 
: 376°2= 141376 
2: 625°2= 390625 
3: 9376`2= 87909376 
4: 90625"2= 8212890625 
5: 109376`2= 11963109376 
6: 890625°2= 793212890625 
区 间 [100, 1000000] 中 , 共 以 上 6 个 守 形 数 。 


以 上 结果 可 见 , 没 有 5 结尾 的 4 位 守 形 数 , 也 没有 6 结尾 的 5 位 守 形 数 , 实 际 上 是 因 
为 其 最 高 位 为 0 而 没有 显示 。 

由 输出 的 第 2 个 解 与 第 4 个 解 比较 可 知 ,0625 即 为 5 结尾 的 4 位 守 形 数 , 因 其 高 位 为 
0, 自 然 不 输出 。 

同样 ,由 输出 的 第 3 个 解 与 第 5 个 解 比较 可 知 ,09376 即 为 6 结尾 的 5 位 守 形 数 , 因 其 
高 位 为 0 而 没有 输出 。 


1.7.2 展现 多 位 守 形 数 


以 上 设计 搜索 到 2 个 3 位 守 形 数 、1 个 4 位 守 形 数 、1 个 5 位 守 形 数 、2 个 6 位 守 形 数 。 
守 形 数 的 个 位 数字 为 5 或 6。 

试探 索 一 般 n 位 守 形 数 。 

1. 设计 要 点 

为 了 求 更 多 位 数 的 守 形 数 , 可 应 用 守 形 数 的 性 质 : 

一 个 m 位 守 形 数 的 尾部 k(1 三 k 夺 m 一 1) 位 数 也 是 一 个 高 位 可 能 为 0 的 守 形 数 。 
事实 上 .a 是 一 个 m 位 数 ,a 的 平方 数 的 尾部 k 位 仅 由 a 的 尾部 k 位 决定 ,而 与 a 的 其 
他 位 无 关 。 

实施 易 知 一 位 守 形 数 有 5,6, 则 二 位 守 形 数 的 个 位 数字 只 可 能 是 5,6 这 两 个 数字 。 
根据 这 一 思路 ,我 们 可 应 用 递 推 求解 。 

设置 数组 aLk] 存 储 守 形 数 的 第 k 位: 守 形 数 的 个 位 数字 a[1] 选 取 dC5 一 6),a[Lk] 
(k 二 1) 选 取 j(0 一 9)。 同 时 ,设置 b 数组 存储 计算 平方 的 中 间 值 ,设置 c 数组 存储 计算 守 
形 数 的 平方 值 , 应 用 * 竖 式 乘 模拟 ”计算 平方 数 。 

通过 比较 若 有 a[i 二 c[i] (i 二 1,2,…,k) 成 立 , 则 位 守 形 数 确立 ,继续 递 推 下 一 位 ， 
直至 n 位 确定 并 打印 输出 。 


2. 程序 设计 


// 探 求 指定 n 位 之 内 的 守 形 数 
# include < stdio. h> 


void main0 
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{ intn,d,k, j,i,t,m,w,z,u,v,a[500],b[500],c[500]; 
printf(” 请 输入 指定 位 数 n:") ;scanf ("%d", &n); 
for (d=5;d<=6;d++) 
{ printf(” %d 结 尾 的 守 形 数 :\n",d); 
for (k= 1;k<=499;k++) {a[k]=0;b[k]=0ic[k]=0;} 
a[1]=d; // 给 守 形 数 个 位 数 赋值 
for (k=2;k<=n;k++) 
{ for(j=0;j<=9;j++) 
{ aflk]=j;v=0; // 探 索 守 形 数 的 第 k 位 a(k) 选 数字 j 
for(i=1;i<=k;i++) c[i]=0; 
for (i=1;i<=k;i++) 
{ for(z=0,t=1;t<=k;t++) 
{ ua[li] * a[t]+z;z=u/10; 
b[i+ t- 1]=u% 10; // 计 算 中 间 结 果 存 于 b 数 组 


} 

for (w= 0,m i;mC =k;mt +) 

{ ucIm+b[m+w; // 计 算 平 方 存 于 ce 数组 
we u/10;c[m]= u% 10; 


|, 
for (i=1;i<=k;i++) 
if(a[li]!l=e[i]) v=1; // 出 现 不 同 数字 时 继续 ,a[k] 选 下 一 个 数字 
if (v==0) break; 
} 
if (v==0 8&& a[lk]!=0) // 输 出 k 位 守 形 数 结果 
{ printf(”%2d 位 : ",k); 
for (j=k;j>=1;j--) printf ("%d", a[j]); 
printf ("\n"); 


3. 程序 运行 示例 与 变通 


请 输入 指定 位 数 n:20 
5 结尾 的 守 形 数 : 
2 位 : 25 
3 位 : 625 
5 位 : 90625 6 结尾 的 守 形 数 : 
6 位 : 890625 2 位 : 76 
7 位 : 2890625 3 位 : 376 
8 位 : 12890625 4 位 : 9376 
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9 位 : 212890625 6 位 : 109376 
10 位 : 8212890625 7 位 : 7109376 
11 位 : 18212890625 8 位 : 87109376 
12 位 : 918212890625 9 位 : 787109376 
13 位 : 9918212890625 10 位 : 1787109376 
14 位: 59918212890625 11 位 : 81787109376 
15 位 : 259918212890625 14 位: 40081787109376 
16 位 : 6259918212890625 15 位 : 740081787109376 
17 位 : 56259918212890625 16 位 : 3740081787109376 
18 位 : 256259918212890625 17 位 : 43740081787109376 
198 位 : 2256259918212890625 18 位 : 743740081787109376 
20 位 : 92256259918212890625 19 位 : 7743740081787109376 


注意 到 以 上 结果 中 *5 结尾 的 守 形 数 " 中 没有 4 位 守 形 数 ,“6 结尾 的 守 形 数 ” 中 没有 
5,12,13 与 20 位 守 形 数 ,只 是 其 最 高 位 为 0 而 已 (由 其 高 一 位 结果 可 看 出 ) 。 

变通 : 试 把守 形 数 的 尾数 从 5,6 扩展 到 0 一 9, 即 改变 尾数 d 循环 ,由 for(d=5;d 一 一 
6;d 十 十 ) 变 为 for(d 二 0;d 二 二 9;d 十 十 )。 变 通 后 运行 程序 ,可 知 除 5,6 结尾 外 ,其 他 数字 
结尾 没有 守 形 数 。 


1.8 逐 位 整除 数 


逐 位 整除 数 是 一 类 精妙 有 趣 的 整数 。 
定义 n 位 逐 位 整除 数 : 从 高 位 开始 ,高 1 位 能 被 1 整除 (显然 ) ,高 2 位 能 被 2 整除 ,高 
3 位 能 被 3 整除 ,……: ,以 此 类 推 , 直 至 整个 n 位 数 能 被 n 整除 。 
例如 ,102456 就 是 一 个 6 位 逐 位 整除 数 , 因 102456 能 被 6 整除 ,高 5 位 即 10245 能 被 
5 整除 ,高 4 位 即 1024 能 被 4 整除 ,高 3 位 即 102 能 被 3 整除 ,高 2 位 即 10 能 被 2 整除 。 
【问题 1】 以 6 位 逐 位 整除 数 102456 为 前 级 的 12 位 逐 位 整除 数 有 多 少 个 ? 
【思考 】 从 第 7 位 开始 ,向 高 位 逐 位 续 位 。 
所 谓 逐 位 续 位 ,就 是 根据 “ 逐 位 整除 ”的 定义 依次 确定 第 7 位 数字 ,再 确定 第 8,9,… 
位 ,直到 第 12 位 止 。 
由 1024560%7 一 5( 即 1024560 除 7 余 5), 第 7 位 可 取 2 或 9, 可 确保 7 位 数 被 7 整除 。 
(1) 第 7 位 数字 取 2 续 位 。 
由 10245620%8 二 4, 第 8 位 只 能 取 4, 才 能 确保 8 位 数 被 8 整除 ; 
由 102456240%9 二 6, 第 9 位 只 能 取 3, 才 能 确保 9 位 数 被 9 整除 。 
要 确保 10 位 数 被 10 整除 ,第 10 位 数字 只 能 取 0; 
由 10245624300%11 王 10, 第 11 位 只 能 取 1, 才 能 确保 11 位 数 被 11 整除 ; 
由 102456243010%12 王 10, 第 12 位 只 能 取 2, 才 能 确保 12 位 数 被 12 整除 。 
由 此 ,确定 第 7 位 数字 取 2 时 ,可 得 12 位 逐 位 整除 数 102456243012 。 
( 


2) 第 7 位 数字 取 9 续 位 。 
HH 10245690%8 二 2, 第 8 位 只 能 取 6, 才 能 确保 8 位 数 被 8 整除 ; 
102456960%9 二 6, 第 9 位 只 能 取 3, 才 能 确保 9 位 数 被 9 整除 。 


31 


| 入 二 如 学 及 编 福 扩 庆 


要 确保 10 位 数 被 10 整除 ,第 10 位 数字 只 能 取 0; 
由 10245696300%11 一 4, 第 11 位 只 能 取 7, 才 能 确保 11 位 数 被 11 整除 ; 

由 102456963070%12 二 10, 第 12 位 只 能 取 2, 才 能 确保 12 位 数 被 12 整除 。 

由 此 ,确定 第 7 位 数字 取 9 时 ,可 得 12 位 逐 位 整除 数 102456963072。 

(3) 综 上 得 到 ,以 102456 为 前 缀 的 12 位 逐 位 整除 数 有 两 个 ,102456243012， 
102456963072。 

【问题 2】 前 级 为 102456 的 逐 位 整除 数 最 多 有 多 少 位 ? 

【探求 】 以 前 面 两 个 12 位 逐 位 整除 数 为 基础 ,从 第 13 位 开始 ,向 高 位 逐 位 续 位 。 

前 级 为 102456 的 12 位 逐 位 整除 数 有 以 上 两 个 ,从 这 两 个 数 出 发 逐 位 续 位 ,探求 能 最 
多 续 到 哪 一 位 。 
(1) 从 102456243012 开始 续 位 。 
由 1024562430120%13 一 8, 第 13 位 只 能 取 5, 即 1024562430125 为 13 位 逐 位 整 
除数 ; 
由 10245624301250%14 一 2, 第 14 位 取 0 一 9 ,都 不 能 被 14 整除 。 
从 102456243012 开始 续 位 ,最 多 为 13 位 , 即 1024562430125 。 
(2) 从 102456963072 开始 续 位 。 
由 1024569630720% 13 王 12, 第 13 位 只 能 取 1, 即 1024569630721 为 13 位 逐 位 整 


由 10245696307210%14 二 0, 第 14 位 只 能 取 0, 即 10245696307210 为 14 位 逐 位 整 


由 102456963072100%15 二 10, 第 15 位 只 能 取 5, 即 102456963072105 为 15 位 逐 位 
整除 数 ; 

由 1024569630721050%16 王 10, 第 16 位 只 能 取 6, 即 1024569630721056 为 16 位 逐 
位 整除 数 ， 

由 10245696307210560%17==7, 第 17 取 0 一 9 ,都 不 能 被 17 整除 ,到 上 面 16 位 止步 。 

从 102456963072 开始 续 位 ,最 多 为 16 位 , 即 1024569630721056 。 

(3) 综 上 可 得 ,前 组 为 102456 的 逐 位 整除 数 最 多 为 16 位 , 即 1024569630721056 。 

通过 以 上 求解 ,以 102456 为 前 级 的 12 位 逐 位 整除 数 有 两 个 ,不 带 任何 前 缀 的 12 位 
逐 位 整除 数 有 多 少 个 ? 

同时 ,以 102456 为 前 组 的 逐 位 整除 数 最 多 达 16 位 ,不 带 任何 前 级 的 逐 位 整除 数 最 多 
有 多 少 位 ? 

这 些 ,应 用 程序 设计 解决 是 适宜 的 。 

【拓展 】 存在 n 位 逐 位 整除 数 的 整数 n 是 否 有 最 大 值 ? 

对 于 指定 的 正 整数 n, 搜 索 共 有 多 少 个 不 同 的 n 位 逐 位 整除 数 。 在 此 基础 上 探索 , 存 
在 n 位 逐 位 整除 数 的 整数 n 是 否 有 最 大 值 。 

试探 索 指 定 的 n 位 逐 位 整除 数 , 且 限 制 指定 的 第 e 位 只 能 取 指 定数 字 f, 输 出 所 有 满 
足 限 位 要 求 的 n 位 逐 位 整除 数 。 
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1. 弟 推 设计 要 点 
根据 逐 位 整除 数 的 递 推 特性 ,也 可 以 应 用 递 推 设计 求解 逐 位 整除 数 。 
注意 到 逐 位 整除 数 的 构造 特点 : n 位 逐 位 整除 数 的 高 n 一 1 位 是 一 个 n 一 1 位 逐 位 整 
除数 。 因 而 可 在 每 一 个 n 一 1 位 逐 位 整除 数 后 加 一 个 数字 j(0 一 9) ,得 到 一 个 n 位 数 。 测 
试 该 n 位 数 如 果 能 被 n 整除 , 则 得 到 一 个 n 位 逐 位 整除 数 。 
递 推 基础 为 n==1 位 ,显然 有 g 一 9 个 一 位 数 j(1~9)。 
注意 到 逐 位 整除 数 的 位 数 可 能 比较 大 ,为 了 弟 推 方便 ,设置 两 个 二 维 数组 : 
a(i,d) 为 k 一 1 位 的 第 i 个 逐 位 整除 数 的 从 高 位 开始 第 d(1 一 n 一 1) 位 数字 。 
bm,d) 为 递 推 得 到 位 的 第 m 个 逐 位 整除 数 的 从 高 位 开始 第 dC1 一 n) 位 数字 。 
完成 从 k 一 1 位 推出 k 位 之 后 , 需 把 m 赋值 给 g, 把 b 数 组 赋值 给 a 数组 ,为 下 一 步 递 
推 作 准 备 。 
最 后 输出 递 推 得 到 的 n 位 逐 位 整除 数 的 个 数 g 及 所 有 n 位 逐 位 整除 数 。 
如 果 e>0, 即 有 限 位 要 求 , 只 有 当 第 e 位 数字 为 数字 于 即 满足 条 件 a[ 训 Le]= 一 f 时 才 
输出 限 位 解 ,并 用 变量 s 统计 限 位 解 的 个 数 。 
当 递增 至 n 位 没有 得 到 n 位 逐 位 整除 数 时 (g 二 0) ,输出 “无 解 1" 后 结束 。 


2. 递 推 程序 设计 


// 探 求 n 位 限 位 逐 位 整除 数 

# include < stdio. h> 

voidmain0 

{ intd,e,f,g,i, j,k,m,n,s,r, a[3000] [30],b[3000] [30] ; 
printf(” 请 输入 逐 位 整除 数 的 位 数 n:"); ”scanf ("%d", &n) ; 
printf(” 限制 某 位 取 值 ,请 输入 位 数 ele<n):"); 


scanf ("% d", &e) ; // 若 无 须 限制 , 则 输入 0 
if(e> 0) 
{ printf(” 请 输入 该 位 限 取 数 字 f:"); scanf(%d",&f); } 
Eg=9;s=0; // 递 推 基 础 :1 位 时 赋 初 值 
for (j=1;j<=g;j++) a[lj] [1]=j; 
for (k=2;k<=n;k+t+) // 递 推 位 数 k 从 2 开始 递增 
{ m0; 
for(i=1;i<=g;it+) // 枚 举 g 个 k-1 位 逐 位 整除 数 
for (j=0;j<=9;j++) //k 位 数 的 个 位 数字 为 j 
{ a[i][k]=j; 
for (r=0,d=1;d<=k;d++) // 检 测 k 位 数 除 k 的 余数 r 
{r=rx* 10+a[i][d]; r=r%k; } 
if(r==0) 
1 WE 
for (d=1;d<=k;d++) 
blm] [d]=a[i] [d]; // 满 足 条 件 的 k 位 数 赋值 给 b 数 组 
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Em; // 递 推 得 g 个 k 位 逐 位 整除 数 
for(i=1;iK=g;i++) 
for (d=1;d<=k;d++) 


a[i] [d]=b[i] [d]; //g 个 b 数 组 向 a 数组 赋值 ,准备 下 步 递 推 
| 
if (g> 0) // 输 出 n 位 的 个 数 及 每 一 个 数 
{ for(i=1;i<=g;it++) 
{ if(e==0) // 无 限 位 要 求 时 输出 解 


{ printf(” %d: ",)); 
for (d=1;d<=n;d++) printf ("%d",a[i][d]); 
printf ("\n"); 
} 
else if(a[i][e]==f) // 有 限 位 要 求 时 输出 解 
{ st+;printf(” %d: ",s); 
for (d=1;d<=n;d+ +) printf ("%d",a[i] [d]); 
printf ("\n"); 


} 
if(e>0 && s>0) printf(” %d 位 限 位 逐 位 整除 数 共 以 上 %d 个 。\n",n,s); 
else if(e==0) printf(”%d 位 逐 位 整除 数 共 以 上 %d 个 。\n",n, 8g); 
else if(e>0 && s==0) printf(” 无 限制 位 数 解 1\n"); 
| 
else {printf(” 无 解 I\n") ;return;} 
} 


3. 程序 运行 示例 与 说 明 


请 输入 逐 位 整除 数 的 位 数 n:24 
限制 某 位 取 值 ,请 输入 位 数 e(e<m :6 
请 输入 该 位 限 取 数字 f:2 

1: 360852885036840078603672 

2: 402852168072900828009216 
24 位 限 位 逐 位 整除 数 共 以 上 2 个 。 


事实 上 ,不 带 限 位 条 件 的 24 位 逐 位 整除 数 有 3 个 ,而 增添 了 限 位 , 则 只 有 上 述 两 个 满 
足 限 位 “第 6 位 为 数字 2” 的 要 求 。 
也 可 以 不 带 限 位 运行 程序 ,运行 结果 如 下 所 示 。 


请 输入 逐 位 整除 数 的 位 数 n:25 

限制 某 位 取 值 ,请 输入 位 数 e(e<n) :0 
1: 3608528850368400786036725 

25 位 逐 位 整除 数 共 以 上 1 个 。 


这 就 是 不 带 限 位 搜索 25 位 的 输出 ,得 唯一 的 一 个 25 位 逐 位 整除 数 ,实际 上 就 是 在 以 
上 面 第 一 个 24 位 逐 位 整除 数 后 加 上 一 个 数字 5 而 成 ,而 其 他 24 位 逐 位 整除 数 后 加 上 任 
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意 一 个 数字 后 所 得 25 位 数 都 不 能 被 25 整除 。 

运行 程序 ,输入 n= 二 26, 显 示 “ 无 解 !”。 也 就 是 说 ,在 唯一 25 位 逐 位 整除 数 后 加 上 任 
意 一 个 数字 后 所 得 26 位 数 都 不 能 被 26 整除 ,因而 得 知 逐 位 整除 数 的 最 多 位 数 是 25。 
注意 到 本 案例 n 不 可 能 大 于 25 ,在 此 范围 内 以 上 设计 能 快速 求 得 相应 的 解 。 
变通 : 修改 程序 ,求解 n 位 逐 位 整除 数 的 个 数 fCn) 的 最 大 值 。 


1.9 神秘 的 六 六 大 顺 数 


有 一 个 非常 奇特 的 6 位 整数 m, 它 由 不 同 的 6 个 数字 组 成 ;m 的 2 信也 是 由 这 6 个 数 
字 组 成 ;m 的 3 倍 也 是 由 这 6 个 数字 组 成 ;以 至 m 的 4,5,6 倍 也 都 是 由 这 6 个 数字 组 成 。 
因而 ,这 一 奇特 整数 被 披 上 许多 神秘 的 色彩 ,说 是 某 一 寺庙 留 传 下 来 的 ,其 至 说 是 在 埃及 
金字 塔 发 现 的 。 

鉴于 这 一 整数 是 6 位 数 , 又 有 其 2 一 6 倍 整 数 由 同样 数字 组 成 的 特性 ,不 妨 称 为 “六 六 
大 顺 数 ”。 

本 节 应 用 逐 位 推理 探求 神奇 的 “六 六 大 顺 数 ”, 并 经 拓展 得 到 该 数 的 令 人 惊奇 的 “ 插 
9” 特 性 。 


1.9.1 推理 揭 开 神秘 面纱 


【问题 】 推理 探求 神秘 的 “六 六 大 顺 数 ”。 

【探求 】 应 用 “排除 法 ”推理 , 逐 位 确定 。 

显然 ,所 探求 的 6 位 数 的 6 个 数字 互 不 相同 , 且 不 可 能 有 数字 0。 

设 所 求 的 6 位 整数 m 为 abcdef( 每 一 字母 代表 一 个 非 零 数 字 ) 。 

下 面 通过 “排除 法 ”推理 , 层 层 揭 开 其 神秘 的 面纱 。 

(1) 显然 首位 数字 a 二 1, 否 则 m 的 5 倍 .6 倍 超过 6 位 数 。 

(2) 试用 排除 法 确定 个 位 数字 f。 

注意 到 m 的 个 位 数字 f( 冯 1) 分 别 乘 2 一 6 的 积 的 个 位 数字 ,应 为 m 中 除 个 位 数字 
之 外 的 其 余 5 个 数字 a,b,c,d,e。 

Q@ 数字 f 不 能 为 偶数 ,和 否则 乘 2 一 6 的 积 的 个 位 数字 均 为 偶数 ,不 含 1 。 

@ f{ 隆 3, 因 3 乘 2~6 的 积 的 个 位 数字 分 别 为 6.9,2.5,8, 也 不 含 1。 

@ { 关 5, 因 5 乘 2 一 6 的 积 的 个 位 数字 出 现 0。 

@ { 关 9, 因 9 乘 2 一 6 的 积 的 个 位 数字 分 别 为 8,7,6,5,4, 也 不 含 1 。 

因而 确定 6 位 整数 m 的 个 位 数字 {==7。 

(3) 确定 组 成 m 的 6 个 数字 。 

个 位 数字 { 一 7 分 别 乘 2 一 6 的 积 , 其 个 位 数字 分 别 为 4,1,8,5,2, 因 而 这 5 个 数字 另 
加 上 个 位 数字 7 构成 m 的 6 个 数字 。 

整数 m 的 6 个 数字 从 小 到 大 排列 为 1.2.,4,5,7,8。 

m 乘 2 所 得 积 的 首 数字 即 最 高 位 数字 为 2; 

m 乘 3 所 得 积 的 首 数字 即 最 高 位 数字 为 4; 
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m 乘 4 所 得 积 的 首 数字 即 最 高 位 数字 为 5; 

m 乘 5 所 得 积 的 首 数字 即 最 高 位 数字 为 7; 

m 乘 6 所 得 积 的 首 数字 即 最 高 位 数字 为 8。 

(4) 确定 m 的 数字 分 布 。 

上 面 已 确定 m 为 1bcde7 ,其 中 数字 b,c,d,e 将 在 2,4,5,8 中 逐步 确定 。 
Q@ 首先 确定 b 一 4。 

若 b 为 5,8, 将 导致 上 mm 乘 2 积 的 首 数字 大 于 2, 矛 盾 ; 

车 b 为 2, 则 m 乘 3 积 的 首 数字 小 于 4, 导 致 予 盾 。 

因而 唯 有 b=4, 即 有 m 王 14cde7 。 

@ 其 次 确定 c 一 2。 

车 c 为 5,m 只 有 145287 与 145827 两 种 可 能 。 

因 145287X2= 二 290574, 出 现 0;145827X2 二 291654 ,出现 数字 9 , 均 导致 了 矛盾 。 
车 c 为 8,m 只 有 148257 与 148527 两 种 可 能 。 

因 148257X2 一 296514 ,出 现 数字 9;148527X2= 二 297054 ,出现 0, 均 导致 矛盾 。 
因而 唯 有 ec 一 2, 即 有 m 一 142de7 。 

@ 最 后 确定 d 一 8,e 一 5。 

由 142587X3 一 427761 ,出 现 数字 重复 导致 矛盾 。 

因而 ,神奇 6 位 数 的 神秘 面纱 揭 开 : m 一 142857。 

(5) 验证 (此 步 不 可 省 略 ) 。 

由 m 王 142857 ,验证 m 的 2 一 6 倍 均 由 组 成 m 的 6 个 数字 组 成 。 
142857X2=285714 142857X 3 二 428571 

142857X4 一 571428 142857X5=714285 

142857X6 一 857142 

验证 通过 。 太 神奇 了 ! 

更 神奇 的 是 142857X7 一 999999 。 

(6) 奇妙 的 循环 小 数 。 

分 数 1/7 一 6/7 都 是 循环 节 ( 以 [ ] 界 定 ) 为 6 位 的 循环 小 数 , 如 下 所 示 。 
1/7=0, [142857] 

2/7==0.[285714] 

3Y7=0: [42:8:5 7.1] 

4/7=0.[571428] 

5/7=0.[7142%85] 

677=0; [8:57 142] 

欣赏 以 上 6 个 分 数 的 结果 ,是 自然 ,还 是 巧合 ? 


1.9.2 奇妙 的 “ 插 9” 特 性 


编程 拓展 : 试 搜索 一 般 的 w(1 二 w 二 10) 位 整数 m, 它 由 不 同 的 w 个 数字 组 成 ,同时 整数 
m 的 k(2 一 w,k 志 6) 倍 整数 都 是 m 的 变 序数 ( 即 m 的 组 成 数字 通过 不 同 排列 所 得 整数 ) 。 
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输入 位 数 w, 搜 索 所 有 满足 以 上 倍数 特性 的 整数 m。 


1. 设计 要 点 

根据 输入 的 位 数 w, 确 定 其 倍数 的 最 大 值 p: p 一 w; 当 w>6 时 p 二 6。 

同时 ,通过 自 乘 得 最 小 的 w 位 整数 t, 建 立 m(t 一 (10t 一 1)/p) 循 环 枚 举 w 位 整数 。 

为 了 方便 判别 整数 m 的 组 成 数字 与 其 k(2 一 p) 倍 整数 n 的 组 成 数字 相同 ,设置 f,h 
两 个 数组 ,f 数组 统计 m 组 成 数字 的 频数 ,h 数组 统计 m 的 倍数 nm 组 成 数字 的 频数 ,如 果 
这 两 个 数组 出 现 某 数字 频数 不 同 或 存在 重复 数字 , 即 满足 以 下 条 件 

fj!=h[j 11 {jj]>1 G=0,1,.…,9) 

则 退出 返回 。 否 则 ,输出 满足 题 意 的 整数 m 与 其 各 倍数 n。 


2. 程序 设计 


// 搜 索 w 位 数 m 其 p 倍 整数 都 是 m 的 变 序数 
# include < stdio.h> 
void main0 
{ int b,c, j,k,p,w,f[10],h[10]; long m,n,d,t; 
printf(” 请 输入 位 数 w(1< w< 10) : ") ;scanf ("%d", &w) ; 


p=w; 

if (w> 6) p=6; // 倍 数 p 最 多 为 6 

for (t=1,k=1;k<=w 1;k++) t=t* 10; // 计 算 最 小 的 w 位 整数 t 
for (mF timk (10x* t—1)/p;mt +) // 建 立 循环 枚 举 w 位 数 
{ d=m; 


for(j=0;j<=9;j++) f[j]=0; 
for (j=1;j<=w;j++) 


{c=d% 10;f[c]++ ;d= d/10;} // 统 计 m 各 数字 的 频数 
for (k=2;k<=p;k++) 
{ n=mx*k;d=n; // 计 算 m 的 2p 倍数 n 
for (j=0;j<=9;j++) h[j]=0; 
for (j=1;j<=w;j++) 
{c=d% 10;h[cl++ ;d=d/10;} // 统 计 n 各 数字 的 频数 
for (b=0, j=0;j<=9;j++) 
if (FCI!=h[jIl| FCI> 71) // 比 较 "与 m 的 各 数字 频数 是 否 相同 


{b=1;k=p;break;} 
} 
if (b> 0) continue; 
printf(” 找到 %d 位 数 %1d, 其 2*%d 倍 分 别 为 :\n",w,m,p); 
for (j=2;j<=p;j++) // 输 出 m 的 2~p 倍数 
{ printf(” %IdX%d=%1d",m,j,j*m; 
if((j-1D%2==0) printf ("\n"); 
} 
printf ("\n"); 
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3. 程序 运行 示例 与 说 明 


请 输入 位 数 w((Kw10: 7 

找到 7 位 数 1428570, 其 2 6 倍 分 别 为 : 
1428570X 2= 2857140 ”1428570X 3= 4285710 
1428570X 4= 5714280 1428570X 5= 7142850 
1428570X 6= 8571420 

找到 7 位 数 1429857, 其 2 6 倍 分 别 为 : 
1429857X 2= 2859714 1429857X 3= 4289571 
1429857X 4= 5719428 1429857X 5= 7149285 
1429857X 6= 8579142 


若 输入 w==6, 则 输出 “六 六 大 顺 数 ”142857 及 其 2 一 6 倍 的 变 序数 式 。 
以 上 w==7 的 第 一 个 输出 结果 是 平凡 的 ,实际 上 是 “六 六 大 顺 数 ” 的 尾部 加 0。 
运行 程序 ,输入 w= 二 2~5, 没 有 相应 的 输出 ,说 明 当 w 二 6 时 ,不 存在 w 位 整数 m, 其 

k(2 一 w) 信 积 的 组 成 数字 与 m 的 组 成 数字 相同 。 

4. 发 现 “ 插 9” 特性 

以 上 运行 程序 输入 w=7 的 第 二 个 输出 结果 ,实际 上 是 在 w=6 的 结果 即 “ 六 六 大 顺 
数 ”142857 的 正中 “ 插 9” 所 得 ,这 给 出 非常 明确 的 启迪 。 

(1)“ 插 9” 特 性 与 条 件 。 

事实 上 ,9 乘 以 k(2 一 9) 所 得 积分 别 为 18,27,36.45,54,63,72,81, 这 些 积 有 个 共同 
的 规律 : 十 位 数字 与 个 位 数字 之 和 为 9。 

“ 插 9” 特 性 : 如 果 乘 积 式 中 乘 数 的 某 一 位 的 进位 数 与 相应 乘 9 的 进位 数 相同 , 则 此 处 
可 插入 9, 相 应 的 积 也 插入 9, 等 式 仍然 成 立 。 

这 里 ,能 “ 插 9” 的 条 件 为 “乘积 式 中 乘 数 的 某 一 位 的 进位 数 与 相应 乘 9 的 进位 数 相 
同 ”。 因 为 乘 9 的 十 位 数字 与 个 位 数字 之 和 为 9, 两 进位 数 相同 ,势必 乘 9 的 个 位 数字 与 原 
进位 数字 之 和 为 9( 即 为 积 的 * 插 9”) ,而 仍 保持 原 进位 数 不 变 ,不 改变 随后 的 乘积 。 

(2) 剖析 *“ 插 9 实例 。 

下 面 通过 实例 进一步 说 明 。 例 如 ,在 142857X3 二 428571 这 一 乘积 式 中 ,能 否 “ 插 
9”? 何 处 可 “ 插 9”? 

不 妨 从 个 位 开始 ,一 一 检验 实施 。 注 意 到 9X3 一 27, 进 位 数 为 2。 

@ 个 位 7X3 王 21, 进 位 数 为 2, 与 9X3 的 进位 数 相同 ,可 “ 插 9”, 得 1428597X3 一 
4285791( 此 时 9X3=27 中 的 7 与 原 进位 数 2 相 加 为 9, 进 位 数 仍 为 2) 。 

@ 低 2 位 57X3=171, 进 位 数 为 1, 与 9X3 的 进位 数 不 同 ,不 可 “ 插 9”。 

@ 低 3 位 857X3==2571, 进 位 数 为 2, 与 9X3 的 进位 数 相同 ,可 “ 插 9”, 得 1429857X 
3 一 4289571( 此 时 9X3 王 27 中 的 7 与 原 进位 数 2 相 加 为 9, 进 位 数 仍 为 2) 。 

@ 低 4 位 \ 低 5 位 乘 3 的 进位 数 非 2, 不 可 “ 插 9”。 

(3) 在 142857 的 正中 “ 插 9” 延 伸 。 

对 于 二 2 一 6,857Xk 的 进位 数 分 别 为 1,2,3,4,5; 对 应 的 9Xk 的 进位 数 分 别 为 1， 
2,3,4,5, 即 对 每 一 个 k 二 2 一 6,857 Xk 的 进位 数 与 9Xk 的 进位 数 相 同 ,因而 在 整数 
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142857 的 正中 “ 插 9” 后 ,其 k(2 一 6) 倍 积 恰 为 原 积 的 正中 * 搬 9”, 如 下 所 示 。 


142857 久 2 一 285714 1429857X2 一 2859714 
142857X 久 3 一 428571 1429857X 3 二 4289571 
142857X4=571428 一 之 1429857X4=5719428 
142857X 5 一 714285 1429857X5 一 7149285 
142857X6 王 857142 1429857X6 王 8579142 


可 见 , 拓 展 程序 输出 的 第 二 个 结果 ,实际 上 就 是 在 “六 六 大 顺 数 ”142857 的 正中 “ 插 9” 
所 得 。 

顺便 指出 ,在 142857X3 一 428571 乘积 式 中 的 “十 位 ?可 插入 9, 但 对 于 kk 一 2 一 6 中 除 
3 之 外 的 其 他 4 个 倍数 K, 不 符合 在 “十 位 ?插入 9 的 条 件 。 

(4)“ 插 9” 特 性 的 多 次 重复 。 

神奇 的 是 ,这 一 奇异 “ 插 9” 特 性 还 可 多 次 重复 , 即 在 142857 的 正中 插入 若干 9 后 ,其 
k(2 一 6) 倍 积 为 原 积 的 正中 插入 若干 9, 如 下 所 示 。 


在 142857 的 正中 插 99 在 142857 的 正中 插 若干 9 
14299857X2==28599714 1429...9857X2==2859.…9714 
14299857X 3 二 42899571 1429.…9857X 3 二 4289…9571 
14299857X4=57199428 1429…9857 关 4 一 5719…9428 
14299857X 5 二 71499285 1429…9857X5 一 7149…9285 
14299857X6 一 85799142 1429…9857X6 一 8579…9142 


这 样 一 来 , 按 上 表 可 列举 一 个 10 位 正 整数 m, 或 更 多 的 30 位 正 整数 m( 须 允许 数字 
重复 ) ,分 别 乘 以 k(2 一 6) 所 得 积 的 数字 组 成 与 m 的 数字 组 成 相同 。 
这 一 神奇 的 “ 插 9” 特 性 ,在 以 后 第 3 章 的 “逆序 倍 积 式 ”中 还 会 出 现 。 
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素数 世家 风采 


素数 是 上 帝 用 来 描写 宇宙 的 文字 (伽利略 语 ) 。 

素数 , 常 称 为 质数 ,是 不 能 被 1 与 其 本 身 以 外 的 其 他 整数 整除 的 正 整 数 。 列 举 前 10 
个 素数 为 2,3,5,7,11,13,17,19,23,29, 其 中 2 为 唯一 的 偶 素 数 。 

与 此 相对 应 ,一 个 整数 如 果 能 被 除 1 与 其 本 身 以 外 的 整数 整除 , 则 该 整数 称 为 合 数 ， 
又 称 复合 数 。 例 如 ,15 能 被 除 1 与 15 以 外 的 整数 3 整除 ,15 就 是 一 个 合 数 。 

特别 地 , 数 1 作为 正 整数 的 单位 , 既 不 属于 素数 ,也 不 属于 合 数 。 

素数 作为 一 类 特殊 的 整数 ,是 数论 中 探讨 难度 较 大 的 一 类 整数 。 素 数 有 无 限 多 个 , 构 
成 一 个 蕴含 许多 “未 知 ” 的 庞大 而 神秘 的 世家 。 

本 章 在 具体 介绍 素数 搜索 的 常用 试 商 判别 法 与 厄 拉 多 塞 筛 法 的 基础 上 ,探讨 这 一 世 
家 中 显赫 的 梅森 尼 数 、 挛 生 素 数 对 、 欧 拉 素 数 多 项 式 、 勒 让 德 素 数 多 项 式 及 哥 德 巴赫 猜想 
等 显赫 大 腕 ;同时 ,探求 构 形 独特 的 对 称 素数 、 金 蝉 素数 、 超 级 素数 、 逆 序 素数 对 与 素数 等 
差 数列 等 亮丽 新 秀 。 展 现 素 集 线 的 “ 乌 兰 现 象 " 描 绘 了 素数 集聚 的 神秘 色彩 ,两 个 有 趣 的 
连续 合 数 集 增添 了 素数 分 布 的 奇特 风韵 。 

有 关 素 数 幻 方 等 则 放 在 后 面 的 第 10 章 中 论述 。 


2.1 素数 搜索 


在 进行 素数 搜索 前 ,有 必要 清楚 素数 有 多 少 个 ,是 有 限 个 还 是 无 穷 多 个 。 

对 于 这 一 问题 ,两 千 多 年 前 的 欧 几 里 得 给 出 了 以 下 明确 的 回答 。 

【命题 】 素数 有 无 穷 多 个 。 

【证 明 】 下 面 用 反 证 法 证 明 。 

假设 素数 只 有 有 限 的 n 个 ,不 妨 设 为 pl ,pz,…,pn。 

考察 整数 p 一 plpz…ps 十 1 ,无非 以 下 两 种 可 能 。 

(1) 整数 p 是 合 数 。 

如 果 整 数 p 是 合 数 , 则 p 能 被 某 一 素数 q 整除 。 

车 素数 q 是 n 个 素数 pi ,ps，… .ps 中 的 一 个 , 则 pips…ps 能 被 q 整除 ,又 p 一 plpz… 
pa 十 1 能 被 q 整除 ,因而 1 能 被 a 整除 ,这 显然 是 不 可 能 的 。 

若 素数 q 是 n 个 素数 pi ,p;，… ,ps 以 外 的 一 个 , 则 与 假设 矛盾 。 

(2) 整数 p 是 素数 。 

显然 素数 pb 一 plpz…ps 十 1 大 于 pi ,ps，… ,ps 中 的 任何 一 个 ,是 一 个 新 的 素数 ,与 假设 
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矛盾 。 

因而 得 证 素数 有 无 穷 多 个 。 

探讨 素数 ,首先 必须 清楚 哪些 正 整 数 是 素数 ,哪些 正 整数 不 是 素数 。 

搜索 素数 的 常用 方法 有 试 商 判 别 法 与 厄 拉 多 塞 得 法 两 种 。 这 两 种 方法 各 具 特 色 ,本 
节 具 体 探讨 应 用 这 两 种 方法 搜索 素数 。 


2.1.1 试 商 判别 法 


试 商 判别 法 是 依据 素数 的 定义 来 实施 的 。 
试 应 用 试 商 判别 法 求 出 指定 n 位 所 有 素数 ,并 统计 n 位 素数 的 个 数 。 


1. 设计 要 点 

应 用 试 商 判别 法 来 判别 奇数 k( 只 有 唯一 偶 素数 2, 不 作 试 商 判别 ) 是 不 是 素数 ,只 要 
逐一 用 奇数 j( 取 3,5,…, 直 至 Vk) 去 试 商 。 

车 存在 某 个 j 能 整除 k, 说 明 k 能 被 1 与 k 本身 以 外 的 整数 j 整除 ,k 不 是 素数 。 

若 上 述 范围 内 的 所 有 奇数 j 都 不 能 整除 k, 则 k 为 素数 。 

注意 : 有 些 程序 把 试 商 奇数 j 的 取 值 上 限定 为 k/2 或 k 一 1, 这 也 是 可 行 的 ,但 并 不 是 
可 取 的 ,这 样 无 疑 会 增加 许多 试 商 的 无 效 循 环 。 

理论 上 说 ,如 果 k 存在 一 个 大 于 人 K 且 小 于 k 的 因数 , 则 必 存 在 一 个 与 之 对 应 的 小 于 
Vk 且 大 于 1 的 因数 ,因而 从 判别 功能 来 说 , 取 到 yk 已 足够 了 。 

判别 j 整除 k, 在 C 程序 中 常用 表达 式 k%j 二 = 二 0 来 实现 。 

2. 应 用 试 商 判别 法 求 n 位 素数 程序 设计 

// 试 商 判别 法 探求 指定 n 位 素数 

# include < stdio.h> 


# include < math. h> 


voidmain0 


{ long ce,j,k; int m,n,t; 
printf(” 请 指定 位 数 n(n> 1): "); scanf("%d",&n); 
for(c=1,k=1;k<=n-1;k++) 


c=cx 10; //e 为 最 小 n 位 数 
m0; 
for (k=c+ 1;k<=cx 10- 1;k+=2) // 枚 举 n 位 所 有 奇数 
{ for(t=0,j=3;j<=sqrt(k);j+=2) 
if(k% j==0) {t=1;break;} // 实 施 试 商 
if (t==0) // 标 志 量 t0 时 i 为 素数 
{ printf(” %1d"，k) ; 
if(++m% 10==0) printf ("\n"); // 输 出 并 统计 素数 的 个 数 m 


} 
} 
printf("\n 共 %d 个 %d 位 素数 。\n",mn) ; 
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3. 程序 运行 示例 与 说 明 


请 指定 位 数 n(n> 1): 4 
1009 1013 1019 1021 1031 1033 1039 1049 1051 1061 
1063 1069 1087 1091 1093 1097 1103 1109 1117 1123 


9883 9887 9901 9907 9923 9929 9931 9941 9949 9967 
9973 


共 1061 个 4 位 素数 。 


从 搜索 结果 可 以 看 出 ,最 小 的 4 位 素数 为 1009, 最 大 的 4 位 素数 为 9973, 共 有 1061 
个 4 位 素数 。 
试 商 判别 法 简单 直观 ,设计 容易 实现 ,因此 常 为 程序 设计 者 所 采用 。 


2.1.2 厄 拉 多 塞 秘 法 


搜索 素数 ,除了 试 商 判别 法 之 外 ,还 有 历史 更 为 悠久 .效率 更 高 的 厄 拉 多 塞 得 法 。 本 
节 简 单 介 绍 厄 拉 多 塞 得 法 及 其 在 搜索 素数 上 的 应 用 。 


1. 厄 拉 多 塞 得 法 简介 
求 素 数 的 筛 法 是 公元 前 3 世纪 的 厄 拉 多 塞 (Eratosthenes) 提 出 来 的 : 对 于 一 个 整数 
k, 只 要 知道 不 超过 Vk 的 所 有 素数 p, 划 去 所 有 Pp 的 倍数 2p,3p,…', 剩 下 的 整数 就 是 不 超过 
k 的 全 部 素数 。 
【问题 】 试 应 用 厄 拉 多 塞 第 法 求 区 间 [100,200] 中 的 素数 。 
【探求 】 分 以 下 4 步 求 解 。 
(1) 首先 求 出 不 超过 V200 的 所 有 奇 素数 3,5,7,11,13, 共 5 个 。 
(2) 列 出 区 间 [100,200] 中 的 所 有 奇数 , 共 50 个 。 
(3) 在 所 列 50 个 奇数 中 ,分 别 划 去 3 的 倍数 、5 的 倍数 、7 的 倍数 、11 的 倍数 与 13 的 
倍数 ( 见 图 2-1, 分 别 以 不 同 划 符 标 记 )。 
3 的 信 数 5 的 倍数 。 ”7 的 倍数 
101 103 16 107 109 M13 Ns Hf 场 
TEN 4 ias 127 31 BB 137 139 
JI Na ms WH 149 152 88 Yss 157 0 
斯 163 15 1607 WE i113 i 1 179 
1l81 J85 Yss Ng 189 191 193 J94 197 199 


图 2-1 应 用 筛 法 求 素 数 划 去 操作 图 


(4) 剩 下 没有 划 去 的 整数 即 为 素数 。 

通过 以 上 划 去 操作 实施 筛选 , 剩 下 以 下 整数 为 素数 。 
101 103 107 109 113 127 131 137 139 149 
151 157 163 167 173 179 181 191 193 197 
199 
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即 得 区 间 [100,200] 共 有 以 上 21 个 素数 。 


2. 应 用 得 法 搜索 素数 设计 要 点 

为 扩大 搜索 范围 ,相应 变量 设置 为 double 型 。 

(1) 实施 划 去 操作 。 

应 用 筛 法 求 素数 ,为 了 方便 实施 划 去 操作 ,应 设置 数组 。 

每 一 数组 元 素 对 应 一 个 待 判别 的 奇数 ,并 赋 初 值 0。 

如 果 该 奇数 为 p 的 倍数 , 则 应 划 去 ,于 是 对 应 元 素 加 一 个 划 去 标记 ,例如 给 该 元 素 赋 
一 个 负数 一 1。 最 后 ,打印 元 素 值 不 是 一 1( 即 没有 划 去 ) 的 元 素 对 应 的 奇数 即 所 求 素数 。 

在 指定 区 间 [c,d]( 约 定 ec 为 奇数 ) 上 所 有 奇数 表示 为 j= 二 c 十 2k(k 二 0,1,…,e, 这 里 
e 一 (d 一 c)/2) 。 于 是 k=(j 一 c)/2 是 奇数 j 在 数组 中 的 序号 (下 标 )。 如 果 j 为 奇数 的 倍 
数 , 则 对 应 数组 元 素 作 划 去 标记 , 即 aL(j 一 c)/2] 一 一 1。 

(2) 放宽 划 去 对 象 。 

在 实际 应 用 得 法 的 搜索 过 程 中 ,p 通常 不 一 定 取 不 超过 Vk 的 素数 ,而 是 适当 放宽 取 不 
超过 Vk 的 奇数 (从 3 开始 )。 这 样 做 尽管 多 了 一 些 重复 划 去 操作 ,但 省 去 了 求 不 超过 Vk 的 
素数 这 一 环节 ,程序 实现 要 简便 些 。 

根据 c 与 奇数 i, 确定 g 二 2 * (floor(c/(2*iD)) 十 1. 使 得 gxi 接近 区 间 下 限 c, 从 而 
使 划 去 的 gi,(g 十 2)i,… 在 [c,d] 中 ,这 样 可 减少 无 效 操作 ,提高 对 大 区 间 的 筛选 效率 。 

最 后 , 凡 数 组 元 素 a[kj 隆 一 1, 则 输出 对 应 的 奇数 j= 二 c 十 2 * k 即 为 素数 ,并 应 用 变量 n 
统计 该 区 间 的 素数 个 数 。 


3. 得法 求 素数 程序 设计 


// 应 用 筛 法 求 指定 区 间 上 的 素数 

# include < stdio. h> 

# include < math. h> 

voidmain0 

{ longn,k; double c,d,e, g, i, j,a[80000]; 
printf(” 请 输入 区 间 [c,d] 的 c,d(c> 2):"); 


scanf ("% If,% If", &c, &d) ; // 在 [c,d] 中 筛选 素数 
if (fmod(c,2)==0) ct+; 
e= (d- 0)/2;i=1; 


while(i<=pow(d, 0.5)) 
{ i=i+2;g=2x (floor(c/(2# i)))+1; 
if (gx i> d) continue; 
if ==1) 3; 
jixeg; 
while(j<=d) 
{ if(j>=c) a[long(floor((j-0)/2)]=-1; // 筛 去 标记 -1 
j=j+2x i; 


} 
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for (n=0, k=0;k<=e;k++) 
if (afk]!=-1) // 输 出 并 统计 素数 
{ printf(" %.0f",ct+2xk); 
if(++n% 4==0) printf ("\n"); 
} 
printf("\n 共 %1d 个 素数 。\n",n); 
} 


4. 程序 运行 示例 与 说 明 


请 输入 区 间 [c,d] 的 6,d (ce> 2) :1480028120, 1480028220 
1480028129 ”1480028141 1480028153 1480028159 
1480028171 1480028183 ”1480028189 ”1480028201 
1480028213 

共 9 个 素数 。 


这 9 个 连续 素数 (中 间 没 有 其 他 素数 ) 在 第 10 章 中 将 会 构建 一 个 3 阶 素数 幻 方 。 

筛 法 在 较 大 区 间 的 搜索 与 较 大 整数 的 判别 上 效率 比试 商 判别 法 更 高 一 些 , 但 设计 上 
较 难 把 握 。 

运行 程序 ,输入 区 间 [10 000,99 999] ,快捷 输出 99 991 等 共 8363 个 5 位 素数 。 


2.2 梅森 尼 数 与 费 马 数 


本 节 介 绍 两 类 构造 形式 特殊 的 素数 一 一 梅森 尼 数 与 费 马 数 , 这 两 类 数 的 特 型 2" 士 1 
引 人 注 目 。 

1. 梅森 尼 数 

定义 : 整数 M, 王 2" 一 1 称 为 第 n 个 梅森 尼 (Mersenne) 数 。 

判别 梅森 尼 数 是 否 为 素数 ,首先 有 以 下 命题 。 

【命题 1】 若 M.=2" 一 1(n 二 1) 为 素数 , 则 指数 n 为 素数 。 

【证 明 】 假设 n 不 是 素数 , 令 n=kd(1<k,1<d) ,2: 一 1 之 1, 显 然 24 一 1 能 整除 2" 一 
1, 即 2" 一 1 非 素 数 。 

由 以 上 命题 ,要 寻找 梅森 尼 数 为 素数 ,只 需 在 素数 中 寻找 指数 n。 

例如 ,Ms 一 2 一 1 一 3,M3: 一 2 一 1 一 7 都 是 素数 。 

注意 ; 以 上 命题 的 逆 命题 并 不 成 立 , 即 若 n 为 素数 ,Ms 一 2" 一 1 不 一 定 是 素数 。 例 
如 ,n 二 11 时 ,Mu 一 21 一 1] 二 2047 二 23X89,Mu 不 是 素数 。 

1722 年 , 双 目 失明 的 瑞士 数学 大 师 欧 拉 证 明了 2” 一 1 二 2 147 483 647 是 一 个 素数 ， 
堪 称 当时 世界 上 “已 知 最 大 素数 ”的 纪录 。 

【编程 探求 】 试 求 出 指数 n 二 50 的 所 有 梅森 尼 数 。 

(1) 设计 要 点 。 

设置 指数 n 循环 (2 一 50) ,循环 体 中 通过 累 乘 t 一 t* 2, 得 t 一 2"。 

根据 梅森 尼 数 的 构造 形式 ,对 m 二 {一 1 应 用 试 商 判 别 法 实施 素数 判别 。 若 m 为 素 
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数 , 即 为 所 寻求 的 梅森 尼 数 ,进行 打印 输出 。 
(2) 求 梅 森 尼 数 程序 设计 。 


// 求 梅森 尼 数 :2%n- 1 形 的 素数 
# include < stdio.h> 
# include < math. h> 
void main0 
{ double t,m; int j,x,s,n; 
s=0it=2; 
for (n=2;:n<=50;n+t +) 
{ t=t*2; mt-1;x=0; // 累 乘 量 t 为 2m 
for (j=3;j< sqrt (m+1;j+=2) // 试 商 判 别 法 判别 m 是 否 素数 
if (fmod (m, j)==0) 
{x=1;break;} 
if (x==0) // 输 出 所 求 得 的 素数 
tf 可 本 
printf(” 2°%d-1=%.0f \n nm; 
printf(” 指数 n 于 [2,50] 中 的 梅森 尼 数 共有 %d 个 素数 。", s); 
} 
(3) 程序 运行 结果 与 讨论 。 
2°2-1=3 
2°3-1=7 
2°5- 1=31 
27-1= 127 
2°13- 1= 8191 
2°17- 1= 131071 
2°19- 1= 524287 
2°31- 1= 2147483647 
指数 n 于 [2,50] 中 的 梅森 尼 数 共有 8 个 素数 。 


顺便 指出 , 若 2" 一 1 为 梅森 尼 素 数 , 则 n 必 为 素数 。 以 上 程序 的 运行 结果 也 可 以 验证 
这 一 点 。 若 需求 更 大 的 梅森 尼 素 数 ,指数 n 可 限定 为 素数 ,以 减少 搜索 量 。 

第 25 个 梅森 尼 素 数 Mz zo 和 第 26 个 梅森 尼 素数 Mzs 是 两 名 中 学 生 于 20 世纪 70 
年 代 发 现 的 。 

对 于 很 大 的 素数 n, 要 判断 2" 一 1 是 否 为 素数 ,工作 量 很 大 ,以 上 的 枚 举 难 以 胜任 , 需 
要 一 些 特殊 的 理论 和 方法 。 

1996 年 美国 数学 家 及 程序 设计 师 乔治 * 沃 特 曼 编制 了 一 个 梅森 素数 寻找 程序 ,并 把 
它 放 在 网 页 上 供 数学 家 和 数学 爱好 者 免费 使 用 ,这 就 是 著名 的 “因特网 梅森 尼 素 数 大 搜 
索 ”(GIMPS) 项 目 。 该 项 目 采 取 网 格 计算 方式 ,利用 大 量 普通 计算 机 的 闲置 时 间 来 获得 
相当 于 超级 计算 机 的 运算 能 力 。 全 球 数 万 名 志愿 者 参加 该 项 目 ,并 动用 20 多 万 台 计 算 机 
联网 进行 大 规模 的 分 布 式 计算 ,以 寻找 新 的 梅森 尼 素 数 。 
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2006 年 12 月 4 日 ,美国 中 密苏里 大 学 Curtis Cooper 和 Steven Boone 领导 的 工作 组 打破 
了 他 们 自己 的 纪录 ,发 现 了 最 新 的 第 44 个 梅森 尼 素数 ?5 裕一 1, 它 是 一 个 9 808 358 位 
数 。 当 前 ,梅森 尼 素 数 的 纪录 还 在 不 断 刷 新 。 


2. 费 马 数 
由 梅森 尼 数 M, 二 2* 一 1 的 形式 可 联想 , 形 如 2" 十 1 的 整数 是 否 存 在 有 规律 性 的 
素数 ? 

【命题 2】 若 2" 十 1 为 素数 , 则 m 二 2"。 

【证 明 】 若 指数 m 有 一 个 大 于 1 的 奇数 因子 k, 令 m 一 kd, 则 

2 十 1 一 (24) 十 1 一 (24 十 1)(2akD 一 … 十 1) 

而 1 到 2 十 1 到 2 十 1, 故 2 十 1 非 于 数 。 

由 以 上 命题 ,定义 整数 F. 一 22 十 1 称 为 费 马 数 。 前 5 个 费 马 数 如 下 所 示 。 

当 n 一 0 时 ,2? 十 1 一 3 是 素数 ， 

当 n 一 1 时 ,2? 十 1 一 5 是 素数 ; 

当 n 一 2 时 ,2? 十 1 一 17 是 素数 ; 

当 n 王 3 时 ,2” 十 1 一 257 是 素数 ; 

当 n=4 时 ,2 十 1 一 65 537 是 素数 。 

据 此 , 费 马 于 300 多 年 前 提出 一 个 猜测 : 形 如 2” 十 1 的 整数 是 素数 。 

直到 费 马 逝 世 后 , 欧 拉 于 1732 年 才 推翻 了 费 马 的 猜测 ,指出 : 当 n=5 时 ,22 十 1 一 
4 294 967 297 二 641X6 700 417, 不 是 素数 。 后 来 又 发 现 当 n= 二 6,7,… 时 ,2” 十 1 都 不 是 
素数 。 

20 世纪 90 年 代数 百名 研究 人 员 利 用 联网 的 1000 多 台 计 算 机 运行 6 个 星期 ,将 155 
位 的 Fe 分 解 为 7 位 、49 位 与 99 位 的 3 个 素数 之 积 。 此 项 成 果 曾 被 列 为 当时 的 十 大 科技 
成 果 之 一 。 

当 n 宇 5 时 ,目前 尚未 发 现形 如 2” 十 1 的 费 马 素数 。 

因此 ,有 人 推测 , 仅 存 在 有 限 个 费 马 素数 。 


2.3 ”有趣 的 对 称 素数 


对 称 素数 是 素数 集中 的 一 个 构 形 优美 的 子 集 ,展现 出 素数 对 称 美 。 

对 称 素数 : 一 个 整数 m 的 逆序 数 就 是 m 本 身 , 则 称 m 为 对 称 数 。 一 个 整数 m 如 果 
是 对 称 数 又 是 素数 , 则 称 m 为 对 称 素数 。 

例如 ,101,131,929 等 都 是 3 位 对 称 素数 ,9 989 899 是 7 位 对 称 素数 。 这 些 左 右 对 称 
素数 顺 读 与 逆 读 是 相同 的 ,因此 有 些 资料 称 为 回 文 素数 。 


1. 偶数 位 对 称 素数 探讨 

是 否 存在 偶数 位 对 称 整数 ? 回答 不 能 一 概 而 论 , 须 区 分 其 具体 位 数 来 回答 。 

【命题 】 不 存在 位 数 为 偶数 且 大 于 2 位 的 对 称 素数 。 

【证 明 】 不 妨 设 位 数 大 于 2 的 偶数 位 对 称 整数 m 二 ab…cddc…ba, 数 中 两 个 数字 a 
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所 在 的 位 置 序数 为 一 奇 一 偶 , 两 个 数字 b 的 位 置 序数 也 是 一 奇 一 偶 …… 直到 紧邻 中 心 的 
两 个 数字 d 的 位 置 序数 还 是 一 奇 一 偶 。 
显然 m 奇数 位 上 的 数字 之 和 与 偶数 位 上 的 数字 之 和 相等 ,都 等 于 a 十 b 十 … 十 c 十 d。 
注意 到 1 除 以 11 余 1,10 除 以 11 余 10,100 除 以 11 余 1,1000 除 以 11 余 10…… 即 
整数 10n 除 以 11, 当 nm 为 奇数 时 ,余数 为 1; 当 n 为 偶数 时 ,余数 为 10。 因 此 可 得 
(偶数 位 对 称 数 m 除 以 11 的 余数 )==( 各 奇数 位 数字 和 ) 十 (各 偶数 位 数字 和 ) X10 
二 (各 偶数 位 数字 和 ) X11 十 (各 奇数 位 数字 和 一 各 偶数 位 数字 和 ) 
三 (各 偶数 位 数字 和 ) X11 
可 见 位 数 大 于 2 的 偶数 位 对 称 整数 m 为 11 的 倍数 ,不 可 能 为 素数 。 
之 所 以 加 “位 数 大 于 2” 的 约 东 ,因为 位 数 等 于 2 的 对 称 整数 11 为 素数 。 也 就 是 说 , 除 
了 11 这 个 唯一 偶数 位 对 称 素数 之 外 ,不 存在 其 他 偶数 位 对 称 素数 。 
顺便 指出 ,以 上 证 明了 一 个 更 广泛 的 命题 : 任何 一 个 整数 能 被 11 整除 , 当 且 仅 当 其 
奇数 位 上 数字 和 与 偶数 位 上 数字 和 之 差 能 被 11 整除 。 
根据 这 一 命题 , 若 某 一 大 于 2 位 的 整数 的 奇数 位 上 数字 和 与 偶数 位 上 数字 和 之 差 能 
被 11 整除 , 则 该 数 不 是 素数 。 


2. 编程 拓展 

试 统计 指定 奇数 n(3 短 nn 过 9) 位 对 称 素数 的 个 数 ,并 输出 其 中 最 大 的 对 称 素数 。 

(1) 设计 要 点 。 

对 于 每 一 个 n 位 奇数 m 通过 以 下 两 道 检 测 。 

应 用 试 商 判 别 法 检测 整数 m 是 否 为 素数 ,如 果 不 是 素数 , 则 返回 ; 

如 果 m 是 素数 , 则 分 离 整 数 m 的 n 个 数字 存储 于 数组 h[j]4Gj 王 1 一 nD) , 若 j 一 1 一 n/2 
区 间 中 的 某 一 个 j 出 现 hb[j]!==hLn 一 j 十 二 ,整数 m 的 数字 非 对 称 , 则 返回 。 

凡 通 过 以 上 两 道 检测 的 则 为 n 位 对 称 素数 ,应 用 s 统计 个 数 , 并 记录 其 中 的 最 大 数 。 

(2) 程序 设计 。 

// 搜 索 指定 n 位 对 称 素数 

# include < stdio. h> 

# include < math. h> 


voidmain0 


{ inta,b,c,i,j,n,s,h[10]; long mmax,d,t; 
printf(” 请 输入 位 数 n(3<<n<9) : ") ;scanf ("%d",&n); 
if(n%2==0) {printf(” 请 输入 奇数 ! "); return;} 
s=0;t=1;a=n/2; 
for (j=1;j<=n-1;j++) t=t* 10; // 计 算 最 小 的 n 位 整数 t 
forFt+1im= (0*t-Dimmr2) // 枚 举 所 有 的 n 位 奇数 
{ if(m%5==0) continue; 
dm;b=0; 
for (j=0;j<=9;j++) h[j]=0; 
for (j=1;j<=n;j++) // 分 解 m 的 n 个 数字 
{c=d% 10;h[j]=e;d=d/10;} 
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for (j=1;j<=n/2;j++) 
if (h[j]!=h[n- j+ 1]) {b=1;break;} 
if (b==0) //b=0 时 m 为 对 称 数 
{ for(a=0,i=2;i<=sqrt(m ;i++) 
if (m% i==0) {a=1;break;} 
if(a==0) {st+; max=m; } //a=0 时 m 为 对 称 素数 ,s 统计 
} 
} 
printf(”%d 位 对 称 素数 共有 %d 个 。\n",n, s); 
if(s>0) printf(” 其 中 最 大 的 对 称 素数 为 :% 1d\n", max) ; 


(3) 程序 运行 示例 与 变通 。 


请 输入 位 数 n(3<n<9):7 
7 位 对 称 素数 共有 668 个 。 
其 中 最 大 的 对 称 素数 为 :9989899 


变通 : 如 果 要 显示 其 中 所 有 对 称 素数 ,程序 如 何 修改 ? 
如 果 要 输出 n 位 对 称 素数 中 最 大 的 3 个 素数 ,程序 如 何 修改 ? 


2.4 素数 变形 金刚 


本 节 探 讨 构 形 上 能 经 受 指定 系列 变形 的 两 类 素数 变形 金刚 一 一 金 蝉 素数 与 超级 素 
数 , 这 两 类 素数 是 素数 世家 中 的 优美 子 集 。 


2.4.1 金 暗 素数 


某 十 寺 的 一 块 石碑 上 依稀 刻 有 一 些 神秘 的 自然 数 。 

专家 研究 发 现 : 这 些 数 是 由 1,3,5,7,9 这 5 个 奇数 字 排列 组 成 的 5 位 素数 , 且 同 时 去 
掉 它 的 最 高 位 与 最 低位 数字 后 的 3 位 数 还 是 素数 ,同时 去 掉 它 的 高 二 位 与 低 二 位 数字 后 
的 一 位 数 还 是 素数 。 因 此 ,人 们 把 这 些 神秘 的 素数 称 为 金 蝉 素数 , 意 即 金 蝉 脱 壳 之 后 仍 为 
金 暗 。 

试 求 出 石碑 上 的 金 蝉 素数 。 


1. 设计 要 点 

本 题 求解 的 金 蝉 素数 是 一 种 极为 罕见 的 素数 ,实际 上 是 5 位 素数 的 一 个 子 集 。 

设置 5 位 数 k 循环 ,对 每 一 个 k, 进 行 以 下 判别 。 

(1) 分 离 k 的 5 个 数字 ,检查 5 个 数字 中 是 否 存在 偶数 字 与 相同 数字 。 

(2) 分 离 的 5 个 数字 正中 的 数字 是 否 为 1 与 9( 奇 数字 中 1,9 非 素数 ) 。 

(3) 应 用 求 余 运算 对 5 位 数 dCd=k;) 实 施 脱 壳 成 为 3 位 数 ,应 用 试 商 判 别 法 判定 5 
位 数 4 及 其 脱 壳 的 3 位 数 d 是 否 为 素数 。 

设置 标志 量 t,t 赋 初 值 t 王 0。 每 一 步 检查 若 未 通过 , 则 t 一 1。 
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最 后 若 t 一 0, 则 打印 输出 k 即 为 金 蝉 素数 。 
2. 金 蝉 素数 程序 设计 


// 搜 索 5 位 金 蝉 素数 
# include“ stdio.h> 
# include < math. h> 
voidmain0 
{ long b,k,d,t, i, j,m,a[6]; 
printf(” 5 位 金 蝉 素数 为 :\n"); 
for (m= 0, k= 13579;k< = 97531;k+ = 2) 
{ d=k;t=0;i=0;a[i]=0; 
while(d> 0) // 分 解 k 的 5 个 数字 
{a[+ + i]=d% 10;d= d/10;} 
for (t=0, j=1;j<=4;j++) 
for(i=j+1;i<=5;i++) 
if(a[j]%2==0 || a[j]==a[i] || ar5]%2==0) 


{t=1;j=4;break;} // 排 除 k 中 存在 相同 数字 或 偶数 字 
if(t==1 || a[3]==9 | 1a[3]==1) 
continue; // 排 除 中 间 数 字 为 1 或 9 
d=k;b= 10000; 


for (i=1;i<=2;i++) 
{ for(t=0,j=3;j<=sqrt(d);j+=2) 


if(d% j==0) {t=1;i=3;break;} // 试 商 判 别 法 判别 k 是 否 为 素数 
if (t==1) continue; 
d= d%b;d=d/10; //d 为 去 首尾 1 位 脱 壳 后 的 整数 
} 
if (t==0) {mt+ ;printf(" %1d",k);} // 输 出 金 蝉 素数 并 统计 


} 

printf("\n 共 以 上 %d 个 。\n",m); 
} 
3. 程序 运行 结果 与 说 明 


5 位 金 蝉 素数 为 : 
13597 53791 79531 91573 95713 
共 以 上 5 个 。 


这 5 个 金 蝉 素数 中 的 5 个 奇数 数字 没有 重复 , 且 经 一 次 二 次 脱 壳 后 仍 是 素数 。 
例如 ,13 597 为 素数 ,一 次 脱 壳 后 得 359 为 素数 ,二 次 脱 壳 后 为 5 仍 是 素数 。 
顺便 指出 ,在 这 5 个 金 蝉 素数 中 ,13 597 与 79 531 是 互 逆 的 金 蝉 素数 。 


2.4.2 超级 素数 
定义 m(m>1) 位 超级 素数 如 下 所 示 。 
(1) m 位 超级 素数 本 身 为 素数 。 
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(2) 从 高 位 开始 ,去 掉 1 位 后 为 m 一 1 位 素数 :去掉 2 位 后 为 m 一 2 位 素数 ;…… ;去 
掉 m 一 1 位 后 为 1 位 素数 。 

例如 ,137 是 一 个 3 位 超级 素数 , 因 137 是 一 个 3 位 素数 ;一 次 变形 去 高 1 位 得 37 是 
一 个 2 位 素数 ,二 次 变形 去 高 2 位 得 7 是 一 个 1 位 素数 。 

而 素数 107 不 是 超级 素数 , 因 去 高 1 位 得 7 不 是 一 个 2 位 素数 。 

输入 整数 m(1 二 m 志 16) ,统计 m 位 超级 素数 的 个 数 , 并 输出 其 中 最 大 的 超级 素数 。 

我 们 应 用 效率 较 高 的 递 推算 法 设计 求解 。 


1. 递 推 设 计 要 点 

根据 超级 素数 的 定义 , m 位 超级 素数 去 掉 高 位 数字 后 是 m 一 1 位 超级 素数 。 一 般 地 ， 
k(k 二 2,3,…,m) 位 超级 素数 去 掉 高 位 数字 后 是 k 一 1 位 超级 素数 。 

那么 ,在 已 求 得 g 个 k 一 1 位 超级 素数 a[i](i 二 1,2,…,g) 时 ,在 a[ 让 的 高 位 加 上 一 个 
数字 jG 二 1,2,…,9) ,得 到 9*g 个 k 位 候选 数 { 王 j* e[k] 十 aLi](Ce[k] 王 105:) ,只 要 对 这 
9xg 个 k 位 候选 数 检 测 即 可 。 这 就 是 从 k 一 1 递 推 到 k 的 递 推 关 系 。 
注意 到 m(Cm>1) 位 超级 素数 的 个 位 数字 必然 是 3 或 7, 则 得 递 推 的 初始 (边界 ) 条 件 
为 a[1] 二 3,a[2j] 二 7,g 二 2; 个 位 数字 5 虽然 是 素数 ,但 加 任何 高 位 数字 后 就 不 是 素数 , 因 
而 不 予 考虑 。 

2. 递 推 程序 设计 

// 探 求 指定 m 位 超级 素数 

# include < stdio.h> 

# include < math. h> 


void main0 


{ intg,i,j,k,m,t,s; 
double d, f, a[20000], b[20000], e[20] ; 
int p (double f); 
printf(” 请 确定 位 数 m(1< mK 16): "); scanf ("%d", &m) ; 
2;s=0; a[1]=3;a[2]=7;e[1]=1; // 递 推 的 初始 条 件 
for (k=2;k<=m;k++) 
{ ef[k]=efk-1]* 10;t=0; 
for (j=1;j<=9;j++) 
for(i=1;i<=g;i++) 


{ f=jx*e[lk]+a[i]; // 产 生 9* g 个 候选 数 和 
if (p(f)==1) 
{ t++;b[t]=f; 
if(k==m) {st+ ;d=f;} // 统 计 并 记录 最 大 超级 素数 
} 
} 
gt; 
for(i=1;i<=g;i++) a[li]=b[i]; //g 个 k 位 b[ 站 赋值 给 a[i] 


} 
printf(” 共 %d 个 %d 位 超级 素数 。\n", s,m); 
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printf(” 其 中 最 大 数 为 %.0f。\n",d); 
} 
int p(double k) 
{ int hzidouble j;long t; 
z=0; t= (int)pow(k,0.5) ; 
for(h=0, j=3;j<=t;j+=2) 
if (fmod (k, j)==0) {h=1;break;} 
if(h==0) z=1; /Wk 为 素数 返回 1, 否则 返回 0 
return z; 


} 
3. 程序 运行 示例 与 说 明 


请 确定 位 数 m(1<m<16): 9 
共 545 个 9 位 超级 素数 。 
其 中 最 大 数 为 999962683。 


应 用 弟 推 设计 探求 k 位 超级 素数 时 ,只 需 检测 9x*g(k 一 ]) 个 (其 中 g(k 一 1) 为 k 一 1 
位 超级 素数 的 个 数 ) ,由 于 g(k 一 1) 数 量 不 大 ,因而 程序 简便 快捷 。 

例如 , 当 m= 二 5 时 ,应 用 递 推 设计 调 用 p(k) 函数 次 数 仅 9* (2 十 11 十 39 十 99) 王 1359 , 比 
枚 举 5 位 奇数 的 数量 小 得 多 。 

输入 的 位 数 m 可 大 于 9, 最 多 可 达 15 位 ,但 程序 运行 时 间 会 变 得 比较 长 。 


2.5 素数 对 


本 节 探 讨 素数 世家 中 两 类 素数 对 : 经 典 的 挛 生 素数 对 与 新 颖 的 逆序 素数 对 。 
2.5.1 挛 生 素数 对 


相差 为 2 的 两 个 素数 称 为 挛 生 素数 对 ,简称 挛 生 素数 。 例 如 ,3 与 5 是 一 对 挛 生 素 
数 ,41 与 43 也 是 一 对 挛 生 素数 。 


1. 挛 生 素数 对 是 否 无 限 的 探讨 

素数 有 无 穷 多 个 , 挛 生 素数 对 是 有 限 还 是 无 穷 ? 

古 希 腊 数 学 家 欧 几 里 得 曾 猜想 ,存在 无 穷 多 对 素数 ,它们 只 相差 2, 例 如 ,3 和 5,5 和 
7,2003663613X2195000 一 1 和 2003663613 义 2195000 十 1 ,等 等 。 

在 1900 年 由 数学 家 希 尔 伯 特 在 国际 数学 家 大 会 的 报告 上 第 8 个 问题 中 提出 ,可 以 这 
样 描述 : 存在 无 穷 多 个 素数 p, 使 得 p 十 2 是 素数 。 

这 就 是 著名 的 挛 生 素数 猜想 , 它 与 黎 曼 猜想 、 哥 德 巴赫 猜想 一 样 ,让 众多 数论 学 者 与 

据 ( 自 然 )CNature) 杂 志 网 站 报道 ,来自 美 国 新 罕 布什 尔 大 学 的 华人 数学 家 张 益 唐 证 
明 ,存在 无 穷 多 个 之 差 小 于 7000 万 的 素数 对 ,从 而 在 解决 挛 生 素数 猜想 这 一 终极 数论 问 
题 的 道路 上 前 进 了 一 大 步 。 
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尽管 从 2 到 7000 万 是 一 段 很 大 的 距离 《自然 ) 的 报道 还 是 称 其 为 一 个 “重要 的 里 程 碑 ”。 


正如 美国 
完成 的 工 


到 目 


圣何塞 州立 大 学 数论 教授 Dan Goldston 所 言 :“ 从 7000 万 到 2 的 距离 ( 指 猜想 中 尚未 
作 ) 相 比 于 从 无 穷 到 7000 万 的 距离 ( 指 张 益 唐 的 工作 ) 来 说 是 微不足道 的 。” 
前 为 止 ,这 个 常数 已 经 从 7000 万 降 到 了 246 , 越 来 越 接 近 挛 生 素 数 猜想 的 范围 。 


如 果 这 一 常数 改进 到 2, 就 相当 于 证 明了 挛 生 素数 猜想 成 立 。 
目前 已 知 最 大 的 挛 生 素数 共有 388 342 位 数 , 通 过 分 布 式 计算 的 Sophie Germain 素 


数 搜索 项 目 于 2016 年 9 月 14 日 发 现 挛 生 素数 2 996 863 034 895X2!1%%% 十 ]。 
2. 编程 探求 指定 区 间 上 的 挛 生 素数 对 
(1) 设计 要 点 。 
为 扩大 适应 范围 ,相关 变量 采用 双 精 度 型 。 


应 用 试 商 法 判定 指定 区 间 内 的 所 有 素数 依次 存储 到 a 数组 。 检 查 a 数组 中 若 相 邻 元 


素 之 差 为 2, 即 对 应 的 这 两 个 素数 相差 为 2, 即 为 一 对 挛 生 素数 。 
(2) 程序 设计 。 


// 探 求 指定 区 间 上 的 挛 生 素数 对 
# include < stdio.h> 
# include < math. h> 
voidmain0 
{ int t,mn=0; double c,d, i, j,a[5000]; 
printf(” 请 输入 区 间 [c,d] (ce> 2):"); scanf ("% If,% 1f", &c, 8&d) ; 


if (fmod(c,2)==0) ct+; // 确 保 起 点 e 为 奇数 
for (m=0, i=e;i<=d;i+=2) 
{ for(t=0, j<=pow(i, 0.5);j+=2) // 试 商 判别 法 判别 素数 
if (fmod(i, j)==0) {t=1;break;} 
if (t==0) a[l+ +m]=i; // 第 m 个 素数 i 赋值 给 a 数组 


} 
for (t=1;tCm;t++) 


if (a[t+ 1]- a[t]==2) // 相 邻 素 数 相差 为 2 即 输出 
{ printf("(% .0f,%.0Of) ",a[t],a[t+1]); 
n++ 


if(n>0) printf("\n 区 间 [%.0f,%.0f] 上 共 %d 对 挛 生 素数 对 。\n", c,d,n); 
else printf("\n 区 间 [%.0f,%.0f] 上 不 存在 挛 生 素数 对 。\n",c,d,n); 
I 


(3) 程序 运行 示例 与 说 明 。 


请 输入 区 间 [c,d] (e> 2) : 2000, 2100 
(2027, 2029) (2081, 2083) (2087, 2089) 
区 间 [2001,2100] 上 共 3 对 挛 生 素数 对 。 


也 可 应 用 效率 更 高 的 筛 法 探求 挛 生 素数 对 ,有 兴趣 的 读者 不 妨 在 以 上 应 用 得 法 搜索 


素数 程序 的 基础 上 作 变 通 实现 。 
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2.5.2 逆序 素数 对 


逆序 素数 对 是 构造 特点 更 为 有 趣 的 素数 对 。 
逆序 数 对 : 由 两 个 互 为 逆序 数 的 不 同 整数 组 成 的 数 对 。 例 如 ,15 与 51 是 2 位 逆序 数 
对 ,107 与 701 是 3 位 逆序 数 对 。 
逆序 素数 对 : 如 果 逆 序数 对 的 两 个 整数 都 是 素数 , 则 称 逆序 素数 对 (有 些 资料 又 称 回 
文 素数 对 ) 。 
注意 到 至 少 2 位 才能 形成 逆序 ,因此 从 最 简单 的 搜索 2 位 逆序 素数 对 开始 讨论 。 
【问题 】 共有 多 少 组 2 位 逆序 素数 对 ? 
【探求 】 先 应 用 前 面 的 搜索 法 求 出 所 有 21 个 2 位 素数 如 下 所 示 。 
7 
47 53 59 61 67 71 73 79 83 89 


考虑 到 “逆序 ”, 凡 首位 即 十 位 数字 为 偶数 或 为 5 的 (标注 下 面 线 ) ,其 逆序 非 素 数 。 因 
而 可 精简 到 只 查 十 位 数字 为 1,3,7,9 的 素数 。 

从 第 一 个 素数 开始 , 凡 没 有 标注 下 画 线 的 素数 ,逐个 配对 构建 。 

13 与 31 为 第 1 对 2 位 逆序 素数 对 ; 

17 与 71 为 第 2 对 2 位 逆序 素数 对 ; 

37 与 73 为 第 3 对 2 位 逆序 素数 对 ; 

79 与 97 为 第 4 对 2 位 逆序 素数 对 。 

共有 以 上 4 组 2 位 逆序 素数 对 。 

进一步 ,共有 多 少 3 位 逆序 素数 对 ? 在 [100,2019] 区 间 中 共有 多 少 逆序 素数 对 ? 

【拓展 】 探求 指定 区 间 [x,y] 中 的 所 有 逆序 素数 对 。 

输入 正 整 数 x,y(x<y), 试 统计 并 输出 区 间 [x,y] 中 的 所 有 逆序 素数 对 (为 避免 重复 ， 
约定 逆序 素数 对 的 较 小 素数 在 前 , 较 大 素数 在 后 ) 。 


1. 编程 设计 要 点 

(1) 试 商 判 别 法 搜索 素数 。 

应 用 试 商 判别 法 搜索 指定 区 间 [x,y] 中 的 所 有 素数 ( 设 共 k 个) 存储 在 p 数组 ,p[j] 是 
这 k 个 素数 的 升序 排列 的 第 j 个 (1 所 j 迄 k) 。 

同时 ,为 判别 方便 ,把 与 区 间 起 点 x 相距 为 m 一 x 的 素数 m 标注 dLm 一 zx 一 1。 

(2) 产生 逆序 数 。 

对 于 素数 d==p[j] ,设置 条 件 循环 ( 设 初 值 +==0) ,应 用 取 整 与 取 余 运算 在 分 离 d 的 各 
个 数字 ec 的 同时 , 求 得 其 逆序 数 

while(d>0) {c=d% 10;r=r* 10+c;d=d/10;} 


则 得 素数 pLjj 的 逆序 数 r。 
(3) 筛选 与 输出 。 
设 p[jj 与 其 逆序 数 + 构 成 逆序 素数 对 (pL[jj],r) ,根据 约定 pL[j]<<r。 
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车 素数 p[j] 的 逆序 数 r 非 素数 (gLr 一 xj! 二 1) ,或 r<p[j], 有 违约 定 ,返回 。 
否则 ,输出 逆序 素数 对 (pLj],r) ,并 应 用 变量 s 统计 逆序 素数 对 的 对 数 。 


2. 程序 设计 


// 搜 索 逆 序 素数 对 
# include < stdio.h> 
# include < math. h> 
void main( 
{ longd,i, j,k,m, r,s,x,y,p[30000]; int c,t,q[40000]; 
printf(” 请 输入 区 间 下 限 上 限 x,y (x<y): ") ;scanf ("% 1d,% 1d", &x, &y) ; 
k= s=0; 
if (x% 2==0) x=x+ 1; 
for (j= 0; j< 40000; j++ ) q[j]=0; 
for (m= x;mC =y;mF mt 2) // 枚 举 [x,y] 中 所 有 奇数 m 
{ if(m%5==0) continue; 
for (t=0, i=3;i<= sqrt (m) ;i= i+2) 
if (m% i==0) {t=1;break:;} 
if (t==0) // 第 k 个 素数 m 赋 给 p[k] 
{k++ ;p[k]=m;q[m x]=1;} // 与 x 相距 mx 为 素数 ,标注 q 数 组 
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} 
for (j=1;j<=k-1;j++) 


{ d=p[j];r=0; 
while(d> 0) 
{c=d% 10;r=r * 10+ 6;d=d/10;} Wr 为 素数 p[j] 的 逆序 数 
if(q[r-x]!=1 || r<=p[j]) continue; // 道 序数 非 素数 或 不 比 本 身 大 ， 
返回 


st+; printf(” %31d: %1d,%1d",s,p[lj],r); 
if (s% 4==0) printf ("\n"); 
} 
printf("\n 了 %1d,%1d] 中 逆序 素数 对 共有 %1d 对。\n",x,y,s); 
} 


3. 程序 运行 示例 与 变通 


请 输入 区 间 下 限 上 限 x,y (x< y) :100, 999 

1: 107, 701 2 33 人 人 3: 149,941 4: 157, 751 
5: 167,761 6: 179,971 7: 199, 991 8: 337, 733 
9: 347,743 10: 359,953 11: 389,983 12: 709,907 
13: 739,937 14: 769,967 

[101, 999] 中 道 序 素数 对 共有 14 对 。 


顺便 指出 ,网 上 有 资料 称 Card 经 计算 发 现 * 有 13 对 3 位 回 文 素数 对 ”, 这 一 结论 明显 
少 了 一 对 ,应 更 正 为 14 对 。 
进一步 ,可 输入 区 间 [1001,9999] ,探索 到 该 区 间 4 位 逆序 素数 对 共有 102 对 。 
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程序 设置 搜索 区 间 ,使 搜索 范围 更 广 。 例 如 ,可 输入 区 间 [100,2019] ,探索 到 该 区 间 
上 逆序 素数 对 共 23 对 ,其 中 3 位 的 有 14 对 ,4 位 的 有 9 对 。 

程序 中 应 用 了 p 数组 存储 区 间 中 的 素数 ,注意 区 间 中 的 素数 个 数 k 不 能 超过 p 数组 
的 元 素 个 数 。 

变通 : 把 程序 中 筛选 条 件 (q[r 一 xj! 二 1 || r 二 = 二 p[j]) 修 改 为 a[r 一 xj!=1 || r!= 
P[ 让 ,意味 着 输出 的 素数 p[j] 的 逆序 数 r 就 是 其 本 身 ,此 时 素数 p[j] 即 为 对 称 素数 。 


2.6 素数 表达 式 


著名 的 哥 德 巴赫 猜想 的 1 十 1, 实 际 上 就 是 把 偶数 写成 两 个 素数 之 和 ,无 疑 是 素数 表 
达 式 的 简单 形式 。 本 节 将 编程 在 指定 区 间 验 证 这 一 著名 猜想 。 

同时 ,在 素数 世家 中 ,有 关 产 生 素数 的 欧 拉 表达 式 与 勒 让 德 表达 式 曾 在 欧洲 引起 猥 
动 。 本 节 通 过 编程 验证 这 两 个 著名 素数 表达 式 ,并 探索 新 的 素数 表达 式 。 


2.6.1 哥 德 巴赫 狂想 


1. 背景 简介 

德国 数学 家 哥 德 巴赫 (Goldbach) 在 写 给 欧 拉 的 信 中 提出 了 以 下 猜想 : 任何 大 于 2 的 
偶数 都 是 两 个 素数 之 和 。 

两 个 多 世纪 过 去 了 ,这 一 猜想 既 无 法 证 明 ,也 没有 被 推翻 。 

如 果 把 命题 “ 任 一 充分 大 的 偶数 都 可 以 表示 为 一 个 素 因 子 不 超过 a 个 的 数 与 另 一 个 
素 因 子 不 超过 b 个 的 数 之 和 ? 记 作 a 十 b, 则 哥 德 巴赫 猜想 即 为 1 十 1 。 

摘录 证 明 哥 德 巴赫 猜想 a 十 b 的 简要 进程 如 下 所 示 。 

1920 年 ,挪威 数学 家 布朗 证 明了 9 十 9, 离 目标 1 十 1 相距 其 远 。 

1956 年 ,中 国 数学 家 王 元 证 明了 3 十 4 至 2 十 3, 离 目标 1 十 1 近 了 些许 。 

1962 年 ,中 国 数学 家 潘 承 洞 证 明了 1 十 5, 王 元 证 明了 1 十 4, 首 次 出 现 了 1, 离 目标 
1 十 1 进一步 拉 近 了 。 

1966 年 ,中国 数学 家 陈景润 证 明了 1 十 2, 即 “ 任 一 充分 大 的 偶数 都 可 以 表示 为 一 个 素 
数 与 另 一 个 素 因 子 不 超过 2 个 的 数 之 和 ”, 已 经 很 接近 目标 1 十 1 了 。 

由 以 上 进程 可 见 , 中 国 的 数学 家 在 哥 德 巴赫 猜想 的 证 明 中 做 出 了 巨大 的 努力 并 取得 
了 一 系列 举世 瞩目 的 成 果 。 

陈景润 先生 的 1 十 2 结论 发 表 已 经 过 去 50 多 年 ,至 今 还 没有 出 现 更 进一步 的 结果 。 
也 就 是 说 ,此 进程 还 停留 在 1 十 2, 哥 德 巴赫 猜想 至 今 还 是 一 个 猜想 。 

试 设计 程序 验证 指定 区 间 [ec,d] 上 哥 德 巴赫 猜想 是 否 成 立 : 

如 果 区 间 上 的 偶数 能 分 解 为 两 个 素数 之 和 , 则 输出 该 分 解 和 式 ; 

如 果 区 间 上 某 一 偶数 不 能 分 解 为 两 个 素数 之 和 , 则 输出 该 反例 ,推翻 哥 德 巴赫 猜想 。 


2. 验证 设计 要 点 
为 了 扩大 验证 哥 德 巴赫 猜想 的 区 间 范 围 ,把 变量 设置 为 双 精 度 实 型 。 
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对 于 [c,d] 上 的 所 有 偶数 i, 分 解 为 奇数 j 与 k 二 i 一 j(j 二 3,5,…,i/2) 之 和 。 用 试 商 判 


别 法 分 别 对 奇数 j,k 是 否 为 素数 进行 检验 判别 : 


若 j 或 k 不 是 素数 (标记 t=1), 则 j 增 2, 用 一 组 新 的 奇数 j,k 再 试 ; 
若 j 与 k 都 是 素数 (保持 标记 t=0) , 则 偶数 i 找到 分 解 式 i==j 十 k。 
若 某 一 偶数 i 枚 举 的 所 有 奇数 分 解 情形 都 不 是 两 个 素数 , 即 已 找到 推翻 了 哥 德 巴赫 


猜想 的 反例 ,打印 反例 信息 (作为 完整 的 验证 程序 设计 ,这 一 步骤 不 能 省 ,尽管 其 出 现 的 可 
能 性 微乎其微 ) 。 
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3. 验证 哥 德 巴赫 猜想 程序 设计 


// 双 精度 指定 范围 验证 哥 德 巴赫 猜想 

# include < stdio.h> 

# include <math. h> 

voidmain0 

{ double cdij,k,xi intti 
printf( ” 请 输入 验证 区 间 c,d:"); scanf( "% If,% 1f", &c, &d) ; 
if (fmod (c, 2)> 0) c++; 


for (i=c;i<=d;i+=2) // 枚 举 [c,d] 中 的 偶数 i 
{ 1 
while(j< i/2) 
{ fj+t2; k=i-j; // 把 i 分 解 为 两 奇数 j 与 k 之 和 
for (t=0, x= 3;x< = pow(j, 0.5) ;x+=2) 
if (fmod(j,x)==0) {t=1;break;} // 试 商检 测 j 是 否 为 素数 
if (t==1) continue; // 若 j 不 是 素数 则 返回 j= j+2 
for (x= 3;x< = pow (k, 0. 5) ;x+ = 2) 
if (fmod (k, x)==0) {t=1;break;} // 若 k 不 是 素数 则 t=1 
if (t==0) //j 与 k 都 是 素数 , 则 输出 分 解 结 果 
{ printf(" %.0f=%.0f+%.0f \n",i,j,k); 
break; // 退 出 条 件 循环 试 下 一 个 偶数 i 
} 
} 
if (tl=0) // 偶 数 i 不 能 分 解 , 则 输出 反例 
{ printf(” 找到 反例 :偶数 %. Of 不 能 分 解 为 两 素数 之 和 !1", i); 
return; 


} 
} 
printf("” 哥 德 巴赫 猜想 在 区 间 [%.0f,%.0f] 中 成 立 . \n",c,d); 


| 


4. 程序 运行 示例 与 说 明 


第 2 章 计 急 号 守 岂 条 


请 输入 验证 区 间 c, d:201820192020, 201820192030 
201820192020= 23+ 201820191997 
201820192022= 3+ 201820192019 
201820192024= 5+ 201820192019 
201820192026= 7+ 201820192019 
201820192028= 31+ 201820191997 
201820192030= 11+ 201820192019 

哥 德 巴赫 猜想 在 区 间 [201820192020, 201820192030] 中 成 立 。 


验证 仅仅 只 是 验证 ,并 不 能 代替 哥 德 巴赫 猜想 的 证 明 。 

某 一 区 间 的 验证 只 能 说 哥 德 巴赫 猜想 在 该 区 间 成 立 , 不 能 据 某 一 区 间 的 验证 断言 哥 
德 巴赫 猜想 成 立 。 

但 验证 程序 若 找 出 某 一 不 能 分 解 的 反例 ,只 要 一 个 反例 就 足 可 以 推翻 这 一 猜想 。 


2.6.2 欧 拉 与 勒 让 德 表 达 式 


素数 的 个 数 是 无 穷 的 ,是 否 存在 一 个 表达 式 , 能 表达 出 所 有 素数 ? 

这 当然 是 不 可 能 的 。 那 么 , 退 一 步 ,能 和 否 找到 一 个 表达 式 , 能 表达 出 部 分 素数 ? 

于 是 ,一 场 漫 无 边际 的 寻找 素数 表达 式 的 风潮 盛行 于 整个 欧洲 数 百 年 。 

1. 素数 表达 式 的 背景 

在 寻找 素数 表达 式 的 进程 中 ,很 多 数学 家 积极 参与 其 中 ,成 果 卓 著 ,影响 深远 。 有 成 
功 的 ,也 有 失败 的 。 

(1) 欧 拉 表 达 式 。 

早 在 1772 年 ,数学 家 欧 拉 发 现 , 当 x==0,1,…,40 时 ,表达 式 y= 二 x 一 x 十 41 的 值 都 是 
素数 。 

欧 拉 的 这 一 表达 式 推出 ,引发 了 关于 素数 多 项 式 的 深入 探求 。 

(2) 勒 让 德 表达 式 。 

在 欧 拉 表达 式 面世 的 20 多 年 后 .数学 家 勒 让 德 于 1798 年 发 现 , 当 x 二 0,1,…,28 时 ， 
二 次 多 项 式 y==2x’ 十 29 的 值 都 是 素数 。 

我 们 当然 有 理由 质疑 ,这 些 表达 式 真有 这 么 神奇 吗 ? 

下 面 , 我 们 设计 一 个 简单 的 程序 ,具体 验证 这 两 个 素数 表达 式 的 结论 。 如 果 能 找到 一 
个 反例 推翻 这 些 表达 式 , 那 也 是 大 功 一 件 。 

2. 验证 欧 拉 表达 式 与 勒 让 德 素数 表达 式 设计 要 点 

设 2 次 3 项 式 为 ax: 十 bx 二 c, 通 过 两 个 多 项 式 项 目 p 的 选择 ,分 别 落实 这 两 个 多 项 式 
的 3 个 参数 ab,c 值 。 

(1) 欧 拉 表 达 式 。 

参数 取 a 二 1,b 二 一 1,c 二 41。 

为 了 验证 欧 拉 表达 式 y=x* 一 x 十 41, 当 x 循环 取 值 0~40 时 ,计算 y 的 值 。 为 了 通过 
试 商 判 别 法 判别 y 是 不 是 素数 ,设置 k 二 2,3,… ,Vy 的 试 商 循环 。 

若 y 不 能 被 k 整除 (保持 t==0) , 则 说 明 y 是 素数 ,并 标注 “素数 ”。 
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车 循环 x(0 一 40) 中 的 所 有 y 都 为 素数 , 则 完成 欧 拉 表达 式 验证 。 

否则 ,如 果 存 在 某 一 y 能 被 k 整除 (t= 二 1), 找 到 y 为 “ 非 素 ”的 反例 ,打印 y 的 因数 分 
解 式 y= 二 k* (y/k) 后 退出 , 则 说 明 欧 拉 表 达 式 不 成 立 。 

(2) 勒 让 德 表达 式 。 

参数 取 a 王 2,b 王 0,c 一 29。 

同样 ,验证 勒 让 德 表 达 式 y 二 2x 十 29, 当 x 取 值 为 0 一 28 时 y 的 值 是 否 都 为 素数 。 

如 果 循 环 x(0 一 28) 中 的 所 有 y 都 为 素数 ,完成 勒 让 德 表达 式 验 证 。 

如 果 存 在 某 一 y 不 是 素数 , 则 输出 因数 分 解 式 , 说 明 勒 让 德 表达 式 不 成 立 。 


3. 验证 素数 多 项 式 程序 设计 


// 验 证 欧 拉 表 达 式 y=x 2- x+ 41 与 勒 让 德 表达 式 y=2x 2+ 29 
# include < math. h> 
# include < stdio. h> 
voidmain0 
{ int ab,c,x,k,mt,p; long yi; 
nm 0; 
printf( "” 请 选择 项 (p=1 欧 拉 ,p=2 勒 让 德 )p: "); scanf( "%d",&p) ; 
if(p==1) {a=1;b=- 1;c=41;} 
else {a=2;b=0;c=29;} // 分 别 落实 两 项 目 各 参数 
for (x=0;x<=c- 1;x++) 
{ y=axxxxtbxx+e; 


for (t=0, k=2;k<= sqrt (y) ;k+ +) // 试 商 判别 法 检验 y 是 否 为 素数 
if(y% k==0) {t=1;break;} 
if (t==0) At=0 时 y 为 素数 ,输出 
{ printf(” x=%2d 时 ,%41d 为 素数 。",x,y); 
if(++m% 3==0) printf ("\n"); // 控 制 每 行 输出 3 个 数 
} 
else // 不 为 素数 时 输出 反例 


{printf(” 反例 :x=%2d 时 ,%41d=%dx%d. ",x,y,k,y/k); return;} 
} 
printf("\n 已 验证 : 当 x 取 值 在 [0,%d],",c- 人 1); 
if(p==1) printf(" y=x“^2- x+41 均 为 素数 。\n"); 
else printf(" y=2x 2+ 29 均 为 素数 。\n"); 
} 


4. 程序 运行 结果 与 说 明 


请 选择 项 p=1 欧 拉 ,p=2 勤 让 德 )p: 1 
x=0 时 ,41 为 素数 。x= 1 时 ,41 为 素数 。x= 2 时 ,43 为 素数 。 
x= 39 时 , 1523 为 素数 。 x=40 时 ,1601 为 素数 。 
已 验证 : 当 x 取 值 在 [0,40]， y=x2- x+ 41 均 为 素数 。 
请 选择 项 p=1 欧 拉 ,p=2 勤 让 德 )p: 2 
x=0 时 ,29 为 素数 。x=1 时 ,31 为 素数 。x=2 时 ,37 为 素数 。 
x= 27 时 , 1487 为 素数 。 x=28 时 ,1597 为 素数 。 
已 验证 : 当 x 取 值 在 [0,28]， y=2x*2+ 29 均 为 素数 。 
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程序 验证 了 当 x 二 0,1,… ,40 时 , 欧 拉 表达 式 y 一 天 一 x 十 41 的 值 均 为 素数 。 
也 验证 了 当 x 二 0,1,… ,28 时 , 勒 让 德 表达 式 y 二 2x 十 29 的 值 也 均 为 素数 。 
既然 是 验证 程序 ,那么 其 中 输出 “反例 ”的 语句 不 能 省 略 。 
欧 拉 表达 式 与 勒 让 德 表达 式 的 相继 问世 ,在 世界 各 地 引发 了 关于 素数 表达 式 的 广泛 
其 中 ,有 资料 介绍 :“ 毕 格 尔 发 现 二 次 式 x 一 x 十 72491 对 于 x 王 1,2,…,11000 都 产 
生 素 数 ,这 个 纪录 至 今 没 人 打破 。” 
这 一 结论 可 简单 验证 为 假 。 
例如 , 取 x 王 1, 二 次 式 的 值 为 72491 一 71X1021; 
又 如 , 取 x 一 5, 二 次 式 的 值 为 72511 一 59X1229 。 
在 华罗庚 教授 的 (数学 归纳 法 》( 见 (华罗庚 科普 著作 选集 》, 上 海 教育 出 版 社 ,p110) 上 
有 “ 当 n 王 1,2,…,11000 时 , 式 子 十 n 十 72491 的 值 都 是 素数 。” 
这 一 结论 也 不 成 立 ,可 能 是 笔 误 造成 的 。 
设 f(n)== 王 十 n 十 72491, 则 在 n 二 10 范围 内 就 有 5 个 不 是 素数 : 
{(4)=72511=59X1229 
{(5)=72521=47X1543 
f(8) 一 72563 一 149X487 
f(9) 一 72581 一 181X401 
f(10) 一 72601 一 79X919 
那么 ,是 否 还 存在 新 的 素数 多 项 式 ? 


2.6.3 创建 素数 表达 式 


1. 素数 表达 式 定 义 与 设计 要 点 

定义 2 次 3 项 式 y 一 ax 十 bx 十 c 为 素数 表达 式 : 当 x 二 0,1,…,c 一 1 时 ,函数 y 的 值 
都 是 素数 。 

因此 ,如 果 2 次 3 项 式 y=ax: 十 bx 二 ec 为 素数 表达 式 , 则 只 有 当 * 为 素数 ,日 x 取 值 为 
[0,c 一 1J 时 ,所 对 应 的 y 值 全 为 素数 。 

在 编程 时 ,用 变量 统计 某 一 表达 式 生成 的 素数 个 数 , 只 有 当 素数 个 数 为 c 时, 才 符 合 

素数 表达 式 的 探求 与 系数 ab,c 密切 相关 。 对 于 同样 的 参数 a,b, 常 数 项 c 越 大 , 表 
达 式 表达 素数 的 个 数 就 越 多 。 因 此 ,参数 c 可 约定 为 奇数 从 大 到 小 枚 举 , 当 找 到 并 输出 一 
个 素数 表达 式 后 即行 退出 循环 ,避免 探求 较 小 < 参数 的 表达 式 。 

试 在 一 定 整数 范围 内 枚 举 a,b,c 的 值 (注意 ,系数 b 可 为 负 整 数 ,也 可 为 0) ,应 用 试 商 
判别 法 ,探求 2 次 3 项 式 y==ax? 十 bx 十 c 型 的 素数 表达 式 。 

2. 程序 设计 

// 构 建 2 次 3 项 素数 表达 式 


# include <math. h> 
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# include < stdio.h> 
voidmain0 
{ inta,b,c,x,k,m,n,t; long y; 
m0; 
printf(” 生成 以 下 2 次 3 项 素数 表达 式 :\n"); 
for (a= 1;a<=10;at+) 
for(b=-5;b<=5;b++) 
for (c= 99;c> =9;c= 0- 2) 


{ m0; 
for (x=0;x<=c-1;x++) 
{ y=axxxx+bxx+ci // 计 算 2 次 3 项 式 的 值 
for (t=0, k= 3;k<= sqrt (y) ;k+ +) 
if(y%k==0) {t=1;break;} 
if(t==0) mt+; // 试 商 判别 ,t= 0 时 y 为 素数 
else break; /Mt= 1 为 非 素 数 ,返回 
} 
ifo==o) // 满 足 x=0” c-1y 都 是 素数 


{ printf(” %d: y=",++n); 
if(a==1) printf ("x°2"); 
else printf ("% dx 2", a) ; // 输 出 2 次 项 
if(b==-1) printf ("~ x"); 
else if(b<—1) printf("% dx",b); 


else if(b==1) printf ("+x"); // 输 出 1 次 项 
else if(b> 1) printf ("+%dx",b); 

printf ("+%d ",c); // 输 出 常数 项 
printf(”( 当 x 取 [0,%d] 时 ,y 全 为 素数 .)\n",c- 1); 

break; 


} 
3. 程序 运行 示例 与 说 明 


生成 以 下 2 次 3 项 素数 表达 式 : 
1: y=x°2- x+41 ( 当 x 取 [0,40] 时 ,y 全 为 素数 .) 


2: y=2x°2- 2x+ 19 ( 当 x 取 [0,18] 时 ,y 全 为 素数 .) 
3: y=2x°2+ 29 ( 当 x 取 [0,28] 时 ,y 全 为 素数 .) 
4: y= 3x°2- 3x+ 23 ( 当 x 取 [0,22] 时 ,y 全 为 素数 .) 
5: y=5x°2- 5x+ 13 ( 当 x 取 [0,12] 时 ,y 全 为 素数 .) 
6: y=6x°2+ 17 ( 当 x 取 [0,14] 时 ,y 全 为 素数 .) 
7: y=10x°2+ 19 ( 当 x 取 [0,18] 时 ,y 全 为 素数 .) 


以 上 运行 输出 中 的 第 1 个 是 欧 拉 表 达 式 ,第 3 个 是 勒 让 德 表 达 式 ,其 他 则 是 程序 探索 
到 的 新 的 素数 表达 式 。 
遗憾 的 是 ,新 的 素数 表达 式 所 产生 的 素数 个 数 并 不 比 欧 拉 表达 式 或 勒 让 德 表 达 式 所 
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产生 的 多 。 


如 果 修 改 程序 中 a,b,c 的 循环 参数 ,例如 ,把 表达 式 中 一 次 项 系数 b 修改 为 [一 10， 


10], 则 生成 的 素数 表达 式 会 相应 增多 。 


2.7 素数 等 差 数列 


素数 等 差 数 列 是 素数 世家 中 不 可 或 缺 的 一 员 。 探 索 素数 等 差 数 列 是 一 项 有 趣 而 又 艰 


辛 的 工作 。 


在 小 于 10 的 素数 中 ,显然 有 3,5,7 组 成 的 3 项 等 差 数 列 。 

而 在 30 以 内 的 素数 中 ,有 5,11,17,23,29 这 5 个 素数 组 成 公差 为 6 的 等 差 数列 。 
你 知道 在 1000 以 内 的 素数 ,成 等 差 数 列 的 素数 最 多 有 多 少 个 吗 ? 

在 指定 区 间 [x,yj 如 果 存 在 成 等 差 数 列 的 n(n 三 3) 个 素数 , 试 求 n 的 最 大 值 ,并 输出 


一 个 最 多 项 数 的 等 差 素 数列 。 


1. 设计 要 点 
(1) 标注 素数 。 
通过 m 循环 枚 举 指定 区 间 [x,y] 内 的 奇数 ,应 用 试 商 判别 法 探求 素数 , 设置 p 数组 并 


通过 p[k] 二 m 标注 奇数 m 为 区 间 内 第 k 个 素数 。 


同时 ,设置 q 数组 并 通过 q[m 一 x] 二 1 标注 与 区 间 起 始 数 x 相距 m 一 x 的 素数 m。 
(2) 扫描 等 差 数 列 。 
设置 i(1 一 k 一 3) 循 环 枚 举 等 差 数列 首 项 p[ 订 ;设置 j(4 一 m/2 ,递增 2) 枚 举 等 差 数 列 


的 公差 。 通 过 这 二 重 循环 扫描 项 数 为 s 的 等 差 数列 。 


(3) 比较 求 取 项 数 最 大 值 。 
项 数 s 与 n 比较 求 得 等 差 素 数列 的 项 数 最 大 值 n, 并 记录 首 项 pLr] 与 公差 d。 
最 后 输出 项 数 最 大 值 为 n, 首 项 为 p[r], 公 差 为 d 的 等 差 素 数列 。 


2. 搜索 等 差 素 数列 程序 设计 


// 探 索 区 间 内 最 长 素数 等 差 数列 
# include < stdio.h> 
# include < math. h> 
voidmain0 
{ long c,d ijm r,s,x,y,p[30000]; int k,t,n,q[40000]; 
printf(” 请 输入 正 整 数 x,y(x<y): ") ;scanf ("% 1d,% 1d", &x, &y) ; 
n=k=0; 
if (x% 2==0) x=x+1; 
for (j= 0;j< 40000; j+ +) q[j]=0; 
for (m= x;m = ym mt 2) // 枚 举 检 测 [x,y] 中 所 有 奇数 m 
{ for(t=0,i=3;i<=sqrt(m ;i=i+2) 
if (m% i==0) {t=1;break;} 
if(t==0) /区 间 中 p[dj=m 为 第 k 个 素数 m 
{k++ ;p[k]=m;q[m- x]=1;} // 与 x 相 距 mr x 为 素数 ,标注 q 数 组 
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for(i=1;i<=k- 3;i++) // 数 列 起 点 为 p[i 
for (j=4;j<=m/2;j= j+2) // 数 列 公差 为 j 
{ c=p[i];s=0; 
while(q[c-x]==1) //s 统计 等 差 数列 的 项 数 
{c=c+ jis++ 计 
if(s>n) {n= sir= id ji // 比 较 得 最 大 项 数 n 
} 
for (k= 1;k<=n;k++) // 输 出 最 长 素数 等 差 数 列 


printf(" % 1d",p[r]+ (k- 1) * d); 
printf("\n [% 1d,%1d] 中 最 长 素数 等 差 数 列 有 %d 项 。\n",x,y,n); 
| 


3. 程序 运行 示例 与 说 明 


请 输入 正 整数 x,y (x<y) : 100, 3000 

199 409 619 829 1039 1249 1459 1669 1879 2089 

[101, 3000] 中 最 长 素数 等 差 数列 有 10 项 。 
请 输入 正 整数 x,y (x< y) : 1000, 20000 

2063 3323 4583 5843 7103 8363 9623 10883 12143 
[1001, 20000] 中 最 长 素数 等 差 数列 有 9 项。 


两 个 数组 p,q 的 设置 ,为 扫描 素数 等 差 数列 提供 了 方便 。 

如 果 指 定 区 间 内 存在 有 多 个 最 长 素数 等 差 数列 ,那么 这 里 输出 的 是 其 中 最 小 的 一 个 。 

前 面 证 明了 素数 有 无 限 多 个 , 挛 生 素数 对 也 很 可 能 无 限 多 对 。 那 么 ,素数 等 差 数列 的 
项 数 是 否 也 可 达 无 限 多 项 ? 如 果 素 数 等 差 数 列 的 项 数 不 可 能 无 限 ,那么 素数 等 差 数 列 的 
项 数 最 多 为 多 少 项 ? 

这 些 尚 无 确切 的 结论 ,还 有 待 进一步 研讨 探索 。 笔 者 猜测 ,素数 等 差 数 列 的 项 数 不 可 
能 无 限 ,甚至 不 会 达到 3 位 数 。 


2.8 ” 素 集 “马兰 现象 ” 


美国 数学 家 乌 兰 教授 (S. Ulam) 在 一 次 参加 科学 报告 会 时 ,为 了 消磨 时 间 , 在 一 张 纸 
上 把 1,2,3,…,100 按 逆 时 针 的 方式 排 成 一 种 方形 螺旋 线 , 并 标 出 了 其 中 的 全 部 素数 。 

他 突然 发 现 这 些 素数 大 都 扎堆 于 一 些 斜 线 上 。 散 会 后 ,他 在 计算 机 上 把 1 一 65 000 
的 整数 排 成 着 时 针 方 螺旋 并 打印 出 来 。 他 发 现 这 些 素数 仍然 具有 挤 成 一 条 直线 的 特性 ， 
这 种 现象 在 数学 上 称 为 “ 乌 兰 现象 ”。 

后 来 ,数学 家 们 从 “ 乌 兰 现象 ”中 找到 了 素数 的 许多 有 趣 性 质 。 


2.8.1 方 螺 线 中 的 素 集 线 


设计 程序 ,把 整数 序列 1,2,3,4,…,nXn 排列 成 n 圈 的 方 螺 线 数 阵 ,1 置 放 在 中 心 位 
置 ,以 后 各 整数 依次 按 逆 时 针 方 螺 线 位 置 排列 。 
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为 清楚 显示 , 方 螺 线 上 的 素数 用 括号 标注 。 


1. 设计 要 点 

对 于 指定 方 阵 的 阶 数 n, 设 置 i 循环 (i 二 1,2,3,…,nXn), 在 循环 中 应 用 试 商 判 别 法 
判别 整数 i 是 否 为 素数 ,并 用 p 数组 元 素 标注 素数 : p[ 让 二 1,i 为 素数 ;否则 p[ 让 = 二 0。 

数字 方 螺 线 是 从 正中 间 开 始 的 。 随 整数 m 的 逐步 增加 ,位 置 呈 逆 时 针 方 螺 线 展开 。 
给 方 螺 线 的 各 位 置 确定 m 的 值 是 设计 的 关键 所 在 。 

为 此 ,建立 存储 整数 m 的 坐标 值 的 2 维 数组 aLx][y]。 

对 于 输入 的 整数 n, 计 算 d==n/2,d 为 n 阶 方 螺 线 的 圈 数 。 方 螺 线 的 正中 位 置 存储 1， 
即 aLd][d] 王 1, 中 心 位 置 不 属于 任何 圈 。 

在 第 i(1 一 d) 圈 的 四 周 分 为 右边 .上 边 ,左边 与 下 边 ,相应 分 4 步 分 别 在 条 件 循环 中 实 
施 赋值 操作 。 

(1) 右边 向 上 增长 ,x 不 变 y 递 增 1, 整 数 m 递增 1,a[xj[yj]= 二 m; 直 至 y= 二 d 十 i 转向 。 


while(yC d+ i) {mt+ ;yt+ ;a[x] [y]=m;} 
(2) 上 边 向 左 增长 ,y 不 变 x 递减 1 ,整数 m 递增 1,aLx][y] 王 m;* 直 至 x 二 d 一 i 转向 。 
while(>d- i) {m+ ;x-- ;a[x][y]=m;} 
(3) 左边 向 下 增长 ,x 不 变 y 递减 1, 整 数 m 递增 1,a[xJ[y] 二 m; 直 至 y=d 一 i 转向。 
while(y> d- i) {mt+ ;y-— ;alx] [y]=m;} 


(4) 下 边 向 右 增长 ,y 不 变 x 递增 1, 整数 m 递增 1,aLx][Ly] 王 m; 直 至 x==d 十 i 转向 。 


while(xCd+ i) {m++ ;x++ ;a[x][y]=m;} 


每 一 圈 4 边 赋值 完成 后 ,通过 x 十 十 ;y 二 d 一 i; 过 渡 至 下 一 圈 的 起 点 。 
在 二 重 循环 中 输出 a 数组 元 素 , 即 打印 出 方 螺 线 方 阵 。 
显示 输出 时 ,利用 p 数组 识别 素数 ,同时 用 括号 把 素数 括 起 来 ,以 区 别 于 其 他 整数 。 


2. 乌 兰 现象 程序 设计 


// 构 建 标 出 素数 的 方 螺 线 方 阵 
# include < math. h> 
# include < stdio. h> 
void main0 
{ int i,j,b,c,d,e,f,h,v,k,m,n,s, t,x,y,a[100] [100],p[10000] ; 
printf(” 构建 mn 阶 方 阵 ,请 确定 n: "); scanf("%d",&n) ; 
if(n%2==0) n-—; 
for(i=0:iK=nxnii++) p[i]=0; 
for(i=3;iK=nxnii=i+2) 
{ t=1;b= (int)sqrt(i); 
for (k= 3;k<=b;k=k+ 2) 
if (i% k==0) {t=0;break;} 
if (t==1) p[i]=1; // 奇 数 i 为 素数 时 标记 p[i]=1 


63 


| 起 二 如 学 及 编 福 拓展 


} 
p[2]=1;d=n/2; x=y=d;m= 1;a[d] [dlj=1; 


for(i=1;i<=d;it+) // 从 内 到 外 第 i 圈 赋 值 
{ xt+;y=di; 
while(y< d+ i) 
{mr + ;y+ + ;a[lx] [y]=m;} // 第 i1 圈 从 下 至 上 赋值 
while(x>d- i 
{mt + ;x—— ;a[x] [y]=m;} // 第 i 圈 从 右 至 左 赋值 
while(y> di) 
{mt + ;y-— ;a[lx] [y]=m;} // 第 i1 圈 从 上 至 下 赋值 
while(x< d+ i) 
{mt + ;x++ ;a[x] [y]=m;} // 第 1 圈 从 左 至 右 赋值 


} 
printf(” %d 阶 方 螺 线 方 阵 :\n", nn) ; 
for (y=n- 1;y>=0;y--) 
{ for(x=0;x<=n-1;x++) // 按 方 阵 输出 ,素数 标注 括号 
{ b=a[x][y]; 
if(p[b]==0 || b==1) printf(" % 3d ",b); 
else if(p[b]==1 8&8 b< 10) printf(" (%d) ",b); 
else if(p[b]==1 && b< 100 && b> =10) printf(" (%d)",b); 
else printf("(%d)",b); 
} 
printf ("\n"); 


| 
3. 程序 运行 示例 与 说 明 


构建 mn 阶 方 阵 ,请 确定 n: 13 
13 阶 方 螺 线 方 阵 : ( 见 图 2- 2) 


145 144 143 142 141 140 (139) 138 (137) 136 135 134 
146 (101) 100 99 98 (97) 96 95 94 93 92 
1 102 65 63 63 62 (61) 60 (59) 58 
148 66 (37) 36 35 34 33 32 
(149) 104 
150 105 68 
(151) 106 69 40 
152 (107) 70 (41) 20 
153 108 (71) 42 


132 
90 (131) 
56 (89) 130 
30 55 88 129 
12 (29) 54 87 128 
(11) 28 (53) 86 (127) 
8 9 10 27 52 85 126 
25 26 5l 84 125 
154 (109) 72 48 49 50 (83) 124 
155 110 74 76 77 80 81 82 123 


156 112 (13) 114 115 116 117 118 120 121 122 
158 159 160 161 162 (163) 164 165 166 ( 168 169 
图 22 素数 1+2 线 的 乌 兰 现象 图 


可 以 清楚 地 看 到 图 2-2 中 素数 沿 斜 线 ( 图 中 只 画 出 其 中 两 条 斜 线 ) 扎 堆 的 乌 兰 现象 。 
这 些 “ 素 集 线 ” 上 除了 大 多 数 为 素数 1 外 ,其 他 非 素 数 如 39,15、33、93,85,65 等 大 多 
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为 两 个 素数 之 积 , 即 陈景润 研究 哥 德 巴赫 猜想 所 得 1 十 2 中 的 2, 是 比较 “接近 素数 ”的 
整数 。 

同时 ,从 图 2-2 中 还 可 看 到 另 一 有 趣 的 现象 : 奇数 的 平方 数 1,9,25,49,81 等 在 下 部 
半 条 斜 线 上 ,而 偶数 的 平方 数 4,16 ,36 ,64,100 等 则 在 上 部 半 条 斜 线 上 。 


2.8.2 回旋 层 性 另 版 乌 兰 


回旋 层 酸 方 阵 是 另 一 个 生动 体现 素数 沿 斜 线 扎堆 的 有 趣 方 阵 , 而 且 更 为 简单 ,可 以 说 
是 另 版 鸟 兰 。 有 

回旋 层 春 方 阵 在 坐标 系 第 一 象限 (包括 x 轴 与 y 轴 ) 按 以 下 规 “3| 
律 展开 : 它 从 原点 (0,0) 运 动 到 (0,1) ,然后 按 图 2-3 中 箭头 所 示 方 。 2 


向 展开 , 即 由 区 
原点 (0,0) 一 (0,1) 一 (1,1) 一 (1,0) 一 (2,0) 一 (2,1) 一 (2,2) 一 0f1 2 3 X 
(1,2) 一 (0,2)… 图 2-3 坐标 系 移动 
行进 路 线 上 的 每 一 个 点 有 一 个 整数 m, 坐 标 原 点 的 m 一 0, 以 后 漫步 示意 图 
每 一 步 m 递增 1。 


试 构建 n 阶 回旋 层 琶 方 阵 , 用 括号 标注 方 阵 整数 m 中 的 素数 。 


1. n 阶 回旋 层 释 方 阵 设计 要 点 

对 于 指定 方 阵 的 阶 数 n, 同 样 应 用 试 商 判 别 整数 i01 一 4 一 Cn 二 1)X(n 十 1)) 是 否 为 素 
数 ,并 用 p 数组 元 素 标注 素数 : p[ 口 一 1,i 为 素数 ;否则 p[ 让 一 0,i 为 非 素数 。 

为 叙述 方便 ,把 方 阵 分 成 mn 层 ,并 称 x=k 或 y=k 的 这 一 “ 层 ? 为 第 k(1 一 n) 层 ,该 层 
的 “ 折 点 ?坐标 为 (k,k)。 折 点 把 每 一 层 分 为 水 平 段 与 垂直 段 。 

同时 ,第 kCG1 一 n) 层 的 两 段 的 先后 次 序 与 k 的 奇偶 有 关 。 

奇数 层 : 先 水 平 段 从 左 至 右 递 增 到 * 折 点 ”, 再 垂直 段 从 上 至 下 递增 到 x 轴 (y=0) 。 

偶数 层 : 先 垂 直 段 从 下 至 上 递增 到 * 折 点 ”, 再 水 平 段 从 右 至 左 递增 到 y 轴 (x 二 0)。 

设置 i01 一 n) 循 环 , 对 第 i 层 的 两 段 中 各 点 分 别 赋值 。 

(1) 若 i%2>0, 即 在 奇数 层 。 

首先 ,通过 y 十 十 过 渡 到 奇数 层 。 

奇数 层 是 先 水 平 向 右 ; 过 折 点 后 再 垂直 向 下 。 

在 水 平 段 ,y 坐标 为 i 不 变 ,x 坐标 与 m 递增 1; 直 至 x=i 即 到 折 点 为 止 。 


while(x< i) {x++ ;mt + ;afx][y]=m;} 
在 垂直 段 ,x 坐标 为 i 不 变 ,y 坐标 递减 1,m 递增 1; 直至 y=0 即 到 x 轴 为 止 。 
while(y>0) {y-— ;mt + ;a[x] [y]=m;} 


(2) 车 1%2= 二 0, 即 在 偶数 层 。 

首先 ,通过 x 十 十 过 渡 到 偶数 层 。 

偶数 层 是 先 垂直 向 上 ;过 折 点 后 再 水 平 向 左 。 

在 垂直 段 ,x 坐标 为 i 不 变 ,y 坐标 与 m 递增 1; 直 至 y=i 即 到 折 点 为 止 。 
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while (yi) fy++;mt+;a[x][y]=m;] 
在 水 平 段 ,y 坐标 为 i 不 变 ,x 坐标 递减 1,m 递增 1; 直至 x 一 0 即 到 y 轴 为 止 。 
while(x>0) {x-— ;mt+ ;afx] [y]=m;} 


同样 ,在 二 重 循环 中 输出 a 数组 元 素 , 即 打印 出 回旋 层 琶 方 阵 。 
显示 输出 时 ,利用 p 数组 识别 素数 ,用 括号 把 素数 括 起 来 ,以 区 别 于 其 他 整数 。 


2. 程序 设计 


// 构 建 标 出 素数 的 回旋 层 释 方 阵 
# include < stdio.h> 
# include < math. h> 
void main (void) 
{ int b,d,i,k,m,n,s, t,x,y,p[10000],a[100] [100]; 
printf(” 请 输入 方 阵 阶 数 n(n< 100) : ") ;scanf ("%d",&n) ; 
d= (n+ 1) * (n+ 1); 
for(i=0;i<=d;i++) p[i]=0; 
for(i=3;i<=d;i=i+2) 
{ t=1;b= (int)sqrt(i); 
for (k= 3;k<=b;k=k+ 2) 
if(i%k==0) {t=0;break;} 


if (t==1) p[i]=1; // 奇 数 i 为 素数 时 标记 p[i]=1 
| 
p[2]=1; 
x=y=mF 0;a[x] [y]=m; /W/m 与 数组 z 赋 初 值 
for(i=1;i<=n;it+) // 分 k 层 赋值 

if(i%2> 0) // 奇 数 层 从 左 至 右 由 上 而 下 


{ y+r+imt+ia[x][y]=m; 
while(x< i) {x++ ;mt + ;a[x][y]=m;} 
while(y> 0) {y-— ;m+ + ;a[lx] [y]=m;} 
} 


else // 偶 数 层 由 下 而 上 从 右 至 左 


{ x++ ;mt+;a[x][y]=m; 
while(y< i) fy++ ;mt + ;a[x][y]=m;} 
while(x> 0) {x-— ;mt + ;a[x] [y]=m;} 
} 
for (y=n;y>=0;y--) // 输 出 n+1 阶 方 阵 
{ for(x=0;x<=n;x++) 
{ b=a[x][y]; 
if(p[b]==0 || b==1) printf(" %3d ",b); 
else if(p[b]==1 && b<10) printf(" (%d) ",b); 
else if(p[b]==1 && b< 100 && b> =10) printf(" (%d)",b); 
else printf (" (% d)", b); // 打 印 时 素数 加 括号 以 示 
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} 
printf ("\n"); 
} 
} 


3. 程序 运行 示例 与 说 明 
请 输入 方 阵 阶 数 n(n< 100) : 12 


输出 的 回旋 层 到 方 阵 的 1+2 线 图 如 图 2-4 所 示 。 


168 (167) 166 165 164 ( 162 161 160 159 158 (157) 156 
121 122 123 124 125 129 130 (91 132 
120 119 18 17 116 115 114 111 110 


154 


81 82 (83) 84 85 86 87 90 134 153 
80 (79) 78 77 76 75 74 (73) 72 108 135 152 
49 50 51 52 (53) 54 55 56 92 ( 136 (151) 
48 (47) 46 45 44 (43) 70 93 106 


25 26 27 28 (29) 
2 (Cj BW 2 2 


69 94 105 
40 (59) 68 95 104 (139) 148 


9 (11) 39 60 (67) 96 (103) 140 147 
8 6 38 (61) 66 (97) 102 141 146 
1 (37) 62 65 98 (101) 142 145 
0 35 36 63 64 9%9 100 143 144 


图 24 回旋 层 释 方 阵 的 1+2 线 图 


从 以 上 输出 可 以 清楚 地 看 到 另 版 *“ 乌 兰 现象 ": 图 2-4 中 素数 沿 斜 线 扎堆 (图 中 只 夯 出 
其 中 两 条 ) ,这 些 “ 素 集 线 ”, 除 了 一 部 分 为 素数 1 之 外 ,其 他 非 素数 如 57、91,77,25、35 等 
大 多 为 两 个 素数 之 积 , 即 比较 “接近 素数 ”的 2。 

从 图 2-4 中 还 可 看 到 另 一 个 有 趣 的 现象 : 所 有 偶数 也 聚集 于 它们 的 斜 线 之 上 , 真 可 谓 

同时 ,奇数 的 平方 数 1,9,25,49,81 等 均 相 间 于 纵向 坐标 轴 上 ,而 偶数 的 平方 数 4， 
16,36,64 等 则 相间 于 横向 坐标 轴 上 。 


4 富 素 斜 线 探索 

考察 图 2-4 中 的 3 一 5 一 13 一 19… 这 一 素 集 斜 线 , 开 头 10 个 点 中 8 个 是 素数 。 另 两 个 
不 是 素数 的 两 个 点 为 57=3X19,91= 王 7X13, 也 是 比较 “接近 素数 ”的 2。 

同时 ,这 一 素 集 线 的 斜率 为 正 , 即 斜 线 呈现 递增 态势 ,比方 螺 线 分 别 向 两 头 递 增 更 为 
形象 直观 。 

把 这 一 素 集 线 上 的 数 表示 成 第 m 行 的 函数 ftm) ,归纳 得 到 : 

fCm) 一 m2 十 m 十 1( 当 m 为 奇数 时 ) 

f(Cm) 一 m2 十 m 一 1( 当 m 为 偶数 时 ) 

应 用 以 上 公式 ,可 以 非常 方便 地 探求 这 一 素 集 线 上 的 1 十 2 分 布 , 有 兴趣 的 读者 可 自 
行 设计 程序 探索 ,此 处 从 略 。 


2.9 连续 合 数 集 


正 整数 中 ,作为 整数 基本 单位 的 1 是 形 单 影 只 的 “ 孤 家 和 窒 人 ”, 而 素数 与 合 数 则 是 两 个 
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“人 了 丁 兴旺 ”的 大 家 族 。 前 一 章 探讨 的 整数 大 多 是 合 数 ,而 这 一 章 集 中 探讨 素数 。 
最 后 探讨 两 个 有 趣 的 连续 合 数 集 问题 ,这 两 个 问题 实际 上 与 素数 分 布 密切 相关 。 


2.9.1 最 小 连续 合 数 集 


首先 看 一 个 简单 的 连续 合 数 问题 及 其 解答 。 

【问题 】 请 写 出 10 个 连续 合 数 区 间 。 

【探求 】 试用 以 下 3 种 方式 写 出 10 个 连续 合 数 区 间 。 

(1) 利用 阶乘 来 写 。 

111! 十 k (k 王 2 一 11) ,得 10 个 连续 合 数 区 间 [39916802,39916811] 。 

因为 11! 中 有 2,3,…,11, 因 此 11! 十 k (k= 二 2,3,…,11) 能 被 k 整除, 即 都 是 合 数 。 

(2) 利用 最 初 几 个 素数 的 乘积 来 写 。 

2X3X5X7X11 十 k (k==2~~11) ,得 10 个 连续 合 数 区 间 [2312,2321]。 

因为 乘积 2X3X5X7X11 包含 有 5 个 最 小 的 素数 ,k 为 偶数 时 有 2 因数 ,k 为 奇数 时 
有 前 面 的 素数 因数 ,所 以 2X3X5X7X11 十 k (k= 二 2,3,5,7,11) 自 然 都 是 合 数 。 

(3) 利用 相 邻 素数 中 的 间距 来 确定 。 

首先 搜索 前 30 个 奇 素 数 备查 。 

8 

59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 

然后 从 小 到 大 依次 求 相 邻 两 素数 之 差 , 若 差 大 于 10, 即 可 写 出 10 个 连续 合 数 。 

易 得 113 之 前 的 差 均 小 于 10, 而 127 一 113=14 二 10, 则 得 10 个 连续 合 数 为 [114， 
i23]s 

以 上 探求 的 3 个 写法 中 ,第 2 个 写法 的 10 个 连续 合 数 区 间 比 第 1 个 写法 的 10 个 连 
续 合 数 要 小 得 多 ;第 3 个 最 小 ,无 疑 是 最 小 的 10 个 连续 合 数 集 。 

进一步 ,如何 求 取 最 小 的 n 个 连续 合 数 ? 

【拓展 】 试探 求 最 小 的 连续 n(n 三 200) 个 合 数 ( 其 中 n 是 键盘 输入 的 任意 正 整数 ) 。 

(1) 编程 设计 要 点 。 

求 出 区 间 [c,dj 内 的 所 有 素数 (区 间 起 始 数 c 可 由 小 到 大 递增 ) ,检验 其 中 每 相 邻 两 素 
数 之 差 。 若 某 相 邻 的 两 素数 m,f 之 差 大 于 n, 即 m 一 {>n, 则 区 间 [f 十 1,f 十 nj 中 的 n 个 数 
为 最 小 的 连续 n 个 合 数 。 

应 用 试 商法 求 指定 区 间 [c,d]( 约 定 起 始 数 c 王 3,d 一 c 十 10000) 上 的 所 有 素数 。 求 出 
该 区 间 内 的 一 个 素数 m, 设 前 一 个 素数 为 f, 判 别 : 车 m 一 {>n, 则 输出 结果 [f 十 1,f 十 nj 后 
结束 ;否则 , 作 赋 值 { 一 m, 为 求 下 一 个 素数 作 准备 。 

如 果 在 区 间 [c,dj 中 没有 满足 条 件 的 解 , 则 赋值 一 d 十 2.d 一 c 十 10000 ,继续 试 商 下 
去 ,直到 找 出 所 要 求 的 解 。 

(2) 程序 设计 。 

// 探 求 最 小 的 连续 n 个 合 

# include < stdio.h> 

# include < math. h> 
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voidmain0 
{ Iong ce,d,f,m,j; int t,ni 
printf(” 求 最 小 的 n 个 连续 合 数 ,请 输入 n(n 过 200) :") ; 
scanf ("% d", &n) ; 
c= 3;d= c+ 10000; f= 3; 
while(1) 
{ for=cim=dim=2) 
{ for(t=0,j=3;j<=sqrt(m);j+=2) 
if(m% j==0) {t=1;break;} // 实 施 试 商 判 别 
if (t==0 && m- f>n) // 满 足 条 件 即 行 输出 
{ printf(” 最 小 的 %d 个 连续 合 数 区 间 为 :",n) ; 
printf("[% 1d,% 1d], \n", f+1,f+n); 


return; 
| 
if t==0) f=m; // 每 求 出 一 个 素数 m 后 赋值 给 f 
} 
if > d) { c= d+ 2;d= c+ 10000;} // 每 一 轮 试 商 后 改变 c,d 转 下 一 轮 


} 
l 


(3) 程序 运行 示例 与 说 明 。 


求 最 小 的 n 个 连续 合 数 ,请 输入 nn 和 200) :100 
最 小 的 100 个 连续 合 数 区 间 为 : [370262, 370361] 。 


随 着 n 的 增加 ,最 小 的 mn 个 连续 合 数 随 之 迅速 变 大 ,搜索 也 随 之 变 得 困难 。 例 如 , 输 
入 n= 二 200, 搜 索 最 小 200 个 连续 合 数 区 间 [20831324,20831523], 所 用 时 间 就 比较 长 。 


2.9.2 一 枝 花 与 清一色 世纪 


一 个 世纪 的 100 个 年 号 中 常 存 在 素数 。 例 如 ,现在 所 处 的 21 世纪 的 100 个 年 号 中 存 
在 2003,2011 等 14 个 素数 。 

那么 ,在 100 个 年 号 中 只 有 一 个 素数 的 世纪 什么 时 候 出 现 ? 是 否 存 在 一 百 个 年 号 中 
没有 素数 的 世纪 ? 

【定义 】 把 一 个 世纪 的 100 个 年 号 中 只 有 一 个 素数 年 号 的 世纪 称 为 单 素 “ 一 枝 花 ? 世 
纪 。 把 世纪 的 100 个 年 号 中 不 存在 素数 , 即 100 个 年 号 全 为 合 数 的 世纪 称 为 合 数 “ 清 一 
色 ” 世 纪 。 

【探求 】 试探 索 最 早 的 m 个 一 枝 花 世纪 与 最 早 的 m 个 清一色 世纪 。 这 里 正 整数 m 
从 键盘 输入 。 

1. 编程 设计 要 点 

设 变量 b 统计 清一色 世纪 个 数 ,变量 c 统计 一 枝 花 世纪 个 数 。 

(1) 设置 循环 。 

要 兼顾 两 项 任务 ,设置 条 件 循环 的 条 件 为 b<m || c<m。 
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也 就 是 说 , 当 b=m 且 c= 二 m 时 (已 达到 目标 ) 才 结束 循环 。 


探索 a 世纪 ,从 a=1 开始 递增 1 取 值 。 设 第 a 世纪 的 50 个 奇数 年 号 (偶数 年 号 无 疑 


均 为 合 数 ) 为 n, 显 然 有 aX100 一 99<naX100 一 1。 
设置 n(aX100 一 99~aX100 一 1) 循 环 ,n 步 长 为 2, 枚 举 a 世纪 奇数 年 号 n; 
设置 k(3 一 Vn) 试 商 循环 ,k 步 长 为 2, 应 用 试 商 判别 年 号 n 是 否 为 素数 : 
若 n 为 素数 , 则 用 变量 x 记录 该 素数 年 号 ; 
若 n 为 合 数 , 则 用 变量 s 统计 这 50 个 n 年 号 中 的 合 数 的 个 数 。 
(2) 判别 与 输出 。 


对 于 a 世纪 ,车 s 二 49, 即 49 个 奇数 都 为 合 数 , 找 到 a 世纪 为 一 枝 花 世 纪 , 用 


计 一 枝 花 世纪 的 个 数 , 并 打印 输出 第 b 个 一 枝 花 世 纪 为 a 世纪 ,同时 输出 其 一 枝 花 ， 


世纪 的 唯一 素数 x。 


b 统 
即 该 


对 于 a 世纪 , 若 s 一 50, 即 50 个 奇数 都 为 合 数 ,找到 a 世纪 为 清一色 世纪 ,用 


c 统 


计 清 一 色 世 纪 的 个 数 , 并 打印 输出 第 “个 清一色 世纪 为 a 世纪 ,同时 输出 其 年 号 范围 。 
当 b= 一 mm 且 c 一 mm 时 ,已 搜索 到 前 m 个 清一色 世纪 与 前 m 个 一 枝 花 世 纪 , 退 出 循环 


结束 。 
2. 程序 设计 


// 探 求 最 小 m 个 一 枝 花 世 纪 与 清一色 世纪 
# include < stdio. h> 
# include < math. h> 
voidmain0 
{ long a,n,k,x; int b,c,m,s,t; 
printf(” 请 确定 搜索 个 数 m:"); scanf ("%d", &m) ; 


a=1;b=c=0; 
while (bcm || cm 
{ at++;s=0; // 检 验 a 世纪 
for (n=ax 100- 99;n< =ax 100- 1;n+=2) // 枚 举 a 世纪 奇数 年 号 n 
{ t=0; 
for (k= 3;k<= sqrt(n);k+=2) 
if (n% k==0) {t=1;break;} // 合 数 年 号 退出 
if(t==0) x=n; // 记 录 素 数 年 号 
s= stt; // 年 号 为 合 数 时 ,t=1,s 增 1 
} 
if (b<m 8&8 s==49) //s=49 个 奇数 均 为 合 数 , 即 为 一 枝 花 世 纪 


{ printf(” 第 %d 个 一 枝 花 世纪 为 :%1d 世纪 ,",++b,a); 
printf ("唯一 素数 年 号 为 %1d。\n",x); 
} 


if (cm &8& s==50) //s=50 个 奇数 均 为 合 数 , 即 为 清一色 世纪 


{ printf(” 第 %d 个 清一色 世纪 为 :%1d 世纪 ,",++c,a); 
printf(" 年 号 [%1d,%1d] 全 为 合 数 。\n",ax 100- 99,ax 100) ; 
} 
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} 
3. 程序 运行 示例 与 分 析 


请 确定 搜索 个 数 m: 3 

第 1 个 一 枝 花 世 纪 为 : 1560 世纪 ,唯一 素数 年 号 为 155921。 

第 2 个 一 枝 花 世纪 为 : 2684 世纪 ,唯一 素数 年 号 为 268343。 

第 3 个 一 枝 花 世 纪 为 : 4134 世纪 ,唯一 素数 年 号 为 413353。 

第 1 个 清一色 世纪 为 : 16719 世纪 ,年 号 [1671801, 1671900] 全 为 合 数 。 
第 2 个 清一色 世纪 为 : 26379 世纪 ,年 号 [2637801, 2637900] 全 为 合 数 。 
第 3 个 清一色 世纪 为 : 31174 世纪 ,年 号 [3117301, 3117400] 全 为 合 数 。 


枚 举 设计 三 重 循环 ,要 求 的 m 越 大 ,a 递增 取 值 也 就 越 大 ,年 号 n 也 就 相应 越 大 。 的 
定 最 大 年 号 为 n 数量 级 ， 试 商 k 循环 频数 为 ,因而 可 知 程序 的 时 间 复 杂 度 为 O(n VE) 。 
在 实际 检测 时 ,对 于 m<100 范围 内 的 搜索 是 快捷 的 。 
由 搜索 输出 可 知 ,最 先 出 现 的 一 枝 花 世纪 为 1560 世纪 ,还 要 经 历 十 多 万 年 ,可 谓 地 久 
天 长 ,遥遥 无 期 ! 而 清一色 世纪 更 为 遥远 ,最 先 出 现 的 清一色 世纪 为 16719 世纪 ,还 要 经 
历 一 百 多 万 年 ,更 是 海 村 石 烂 ,地 老 天 荒 ! 
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数 式 是 由 数字 、 运 算 符 与 等 号 构成 的 等 式 。 如 果 说 单纯 的 数 或 略 显 单调 ,那么 数 式 则 
丰满 得 多 ! 广阔 得 多 ! 有 趣 得 多 ! 

本 章 探求 并 发 掘 各 类 新 颖 奇妙 的 数 式 ,与 诸位 一 道 领略 数学 典 堂 上 数 式 的 风采 。 

在 整数 素 因数 分 解 式 的 基础 上 ,探索 涉及 分 数 的 埃及 分 数 式 与 桥 本 分 数 式 ;探讨 涉及 
整数 的 优美 和 式 、 平 方式 、 变 序数 和 式 与 倍 积 式 ;探求 优美 隐 序 四 则 运算 式 与 含 乘 方 ^ 的 综 
合 运算 式 。 

重点 探索 与 发 气 从 乘积 四则 运算 到 综合 运算 的 系列 对 称 运 算式 ,感受 奇特 而 优雅 的 
对 称 美 ; 最 后 分 段 和 寡 式 ,是 对 卡 普 雷 卡 数 广度 的 拓展 与 深层 次 的 发 掘 ,回味 无 穷 。 

数 式 精彩 ,精彩 数 式 ! 

数 式 精彩 ,有 待 我 们 去 欣赏 ,欣赏 数 式 精彩 所 集聚 的 数学 美 。 

精彩 数 式 ,有 待 我 们 去 发 气 , 发 据 人 类 尚未 开发 的 数 式 瑰宝 。 


3.1 素 因 数 分 解 式 


整数 分 解 素 因数 (又 称 分 解 质 因 数 ) 是 整数 分 解 中 最 基本 的 案例 。 

分 解 一 个 整数 的 素 因 数 并 不 轻松 ,甚至 是 一 项 艰难 繁复 的 工作 。 但 分 解 素 因 数 是 趣 
味 数 学 的 基础 ,众多 趣味 数学 问题 的 求解 往往 离 不 开 整 数 的 素 因 数 分 解 。 

当 整 数 的 素 因数 不 太 大 时 整数 的 素 因数 分 解 ,并 不 井 手 。 例 如 分 解 2016 ,其 分 解 的 
素 因 数 可 写成 以 下 乘积 式 与 指数 式 ， 

2016=2X2X2X2X2X3X3X7 

2016=2: X37 

当 分 解 整数 的 素 因数 比较 大 时 . 素 因 数 分 解 如 何 实 施 ? 

本 节 在 寻求 分 解 基础 上 ,编程 拓展 按 指数 形式 的 分 解 设计 ,把 分 解 的 结果 表示 为 素 因 
数 的 指数 式 。 

【问题 】 对 整数 n 一 201804 分 解 素 因数 ,所 分 解 的 素 因数 按 从 小 到 大 写 为 乘积 式 。 

【思考 】 从 2,3 开始 ,通过 试 商 逐 个 找 出 素 因数 。 

(1) 分 解 思 路 。 

首先 求 出 小 于 等 于 [Vn]( 整 数 n 开平 方 取 整 ) 的 所 有 素数 。 

注意 到 [LV201804] 一 449, 小 于 等 于 449 的 素数 有 2,3,5,7,…,449, 共 计 87 个 ,理论 
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上 这 87 个 素数 都 可 能 成 为 201804 的 素 因数 。 

首先 分 解 出 201804 的 所 有 2 因数 ,直到 变 为 奇数 ;然后 对 余下 奇数 分 解 出 201804 的 
所 有 3 因数 ;再 对 余下 奇数 依次 分 解 所 有 5 因数 、7 因数 ，…… ,直到 分 解 449 因数 。 

(2) 按 以 上 思路 分 解 操作 。 

QO 分 解 201804 的 2 因数 : 201804/2 二 100902,100902/2 二 50451, 可 得 2 个 2 因数。 

@ 分 解 奇数 50451 的 3 因数 : 50451/3 一 16817,16817 不 能 被 3 整除 ,可 得 1 个 3 
因数 。 

@ 对 余下 数 16817 通过 试 商 5,7,11,…,61 等 ,没有 这 些 因 数 。 

@ 对 余下 数 16817 通过 试 商 分 解 67 因数 : 16817/67 二 251, 可 得 1 个 67 因数。 

@ 判断 251 为 素数 , 即 251 为 素 因 数 。 

(3) 写 出 素 因 数 分 解 式 。 

于 是 得 到 201804 素 因 数 分 解 式 : 

201804 一 2X2X3X67X251 

因 [V201804] 一 449 ,原则 上 要 试 商 小 于 等 于 449 的 所 有 素数 ,可 见 试 商 分 解 的 工作 
量 是 比较 大 的 。 本 问题 由 于 已 得 251 为 素 因数 , 即 结束 对 201804 的 素 因数 分 解 。 

【拓展 】 对 给 定 的 正 整数 n 分 解 素 因数 ,表示 为 素 因 数 从 小 到 大 顺序 的 指数 形式 。 

如 果 被 分 解 的 整数 本 身 是 素数 , 则 注 明 为 素数 。 

1. 设计 要 点 

为 了 扩展 分 解 整数 的 范围 ,程序 设计 采用 双 精 度 型 变量 。 

首先 赋值 b=n; ,分 解 操作 只 对 b 实施 ,以 保持 操作 过 程 中 整数 n 不 变 。 

(1) 设置 条 件 循环 实施 试 商 。 

设置 k 条 件 循环 (k= 二 2,3,… ,Vn) 实 施 试 商 , 判 别 k 是 否 为 整数 n 的 因数 。 
注意 到 整数 n 的 最 大 因数 可 能 为 n/2, 用 k(2~~n/2) 试 商 是 可 行 的 ,但 并 不 是 最 省 的 。 
事实 上 ,用 k(2 一 Vn) 试 商 可 避免 许多 无 效 操作 ,其 算法 复杂 度 要 低 一 些 。 

在 k 试 商 循环 中 , 若 k 不 能 整除 b, 说 明 数 k 不 是 b 的 因数 ,k 增 1 后 继续 试 商 。 若 kk 
能 整除 b, 说 明 数 k 是 b 的 因数 ,用 j 十 十 ;统计 因数 的 个 数 ;同时 b 除 以 k 的 商 赋 给 b(b 
二 floor(b/k)) 后 继续 用 k 试 商 ( 注 意 : 可 能 有 多 个 k 因数 ) ,直至 k 不 能 整除 b,k 增 1 后 
继续 试 商 。 

按 上 述 k 从 小 至 大 试 商 确 定 的 因数 显然 为 素 因数 。 

(2) 检测 大 因数 或 素数 。 

如 果 整 数 n 存在 大 于 Vn( 即 pow(n.0.5)) 的 因数 (至 多 一 个 ) ,在 试 商 循环 结束 后 检测 
试 商 后 b 值 。 

车 b 二 1, 素 因数 分 解 完成 。 

若 b<n,b 即 为 大 于 Vn 的 一 个 因数 ,即行 输出 。 

若 b=n, 即 整个 试 商 后 b 的 值 没有 任何 缩减 , 仍 为 原 待 分 解数 n, 说 明 n 是 素数 , 作 素 
数 说 明 标 记 。 

由 此 可 见 , 对 于 某 些 难度 较 大 的 素 因 数 分 解 问题 , 单 任 人 工 推理 计算 是 难以 胜任 的 ， 
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在 当今 信息 时 代 , 必 须 考 虑 应 用 程序 设计 来 解决 。 


成 指 


(3) 按 指数 形式 输出 。 

在 素 因数 指数 形式 中 ,首先 按 素 因数 从 小 到 大 排列 ;如 果 存 在 相同 的 素 因数 ,要 求 写 
数 的 形式 输出 。 

在 程序 设计 输出 时 ,通常 把 指数 上 标 用 ^ 标 注 , 如 2 输出 为 2^3 。 

例如 分 解 123456789, 按 素 因 数 乘积 形式 为 123456789 王 3X3X3607X3803 , 按 素 因 


数 指数 形式 为 123456789 王 3 人 42X3607X3803 。 


为 此 ,引入 的 变量 j 统计 素 因子 的 个 数 ,j 二 1 时 不 打印 指数 ;j 之 1 时 需 加 打 指 数 (Mj) 。 


这 样 要 求 程序 设计 进行 必要 的 判别 操作 。 


2. 素 因 数 分 解 指数 形式 程序 设计 


// 探 求 指定 整数 的 素 因数 分 解 指数 形式 

# include < math. h> 

# include < stdio.h> 

void main0 

{ doubleb,i,k,n; int j; 
printf(” 请 输入 正 整 数 n:") ;scanf ("% 1f", &n) ; 
printf("” %.0f=",n); 


b=n;k=2;j=0; 
while(k< = pow(n, 0.5)) // 枚 举 试 商 因数 k 
{ if(fmod(b,k)==0) 
{b= floor (b/k) ;j++ ;continue; } //k 为 素 因 数 需 返回 再 试 
if(j>=1) 
{ printf("% .Of",k); 
if(j>1) printf ("%d", )); // 打 印 素 因数 指数 形式 


if (b> 1) printf ("xX "); 
| 


k++;j=0; 
| 
if (b> 1 && b<n) printf ("% .0f",b); // 输 出 大 于 n 平 方 根 的 因数 
if(b==n) printf(" (素数 1)"); //b=n, 表 示 n 无 素 因 数 


printf ("\n"); 
} 


3. 程序 运行 示例 与 说 明 


请 输入 正 整 数 n:518666803200 
518666803200= 2~11X 3°3X 5°2X7°2X 13X 19X 31 


运行 程序 的 整数 518666803200 是 第 1 章 探 讨 的 4- 完 全 数 , 这 样 大 的 数 进行 素 因 数 分 


解 ,应 用 双 精 度 型 处 理 是 适宜 的 , 若 按 整 型 数据 处 理 则 并 不 可 行 。 可 见 , 编 程 也 要 依据 问 
题 的 具体 实际 情况 来 定 ,并 没有 千篇一律 的 固定 模式 。 
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顺便 提 到 , 当 整 数 的 素 因数 比较 大 时 ,其 分 解 是 艰难 的 。 如 果 一 个 中 学 生 想 用 一 个 题 
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为 难 一 个 数学 家 ,只 要 选择 两 个 比较 大 的 素数 ab, 算 出 axXb=c, 请 他 在 不 使 用 程序 设计 
的 前 提 下 分 解 c 的 素 因 数 就 可 以 。 


3.2 埃及 分 数 式 


金字 塔 的 故乡 埃及 也 是 数学 的 发 源 地 之 一 。 古 埃及 数 系 中 , 记 数 常 采用 分 子 为 1 的 
分 数 , 称 为 “埃及 分 数 ”。 

人 们 研究 较 多 且 颇 感 兴趣 的 问题 是 : 把 一 个 给 定 的 整数 或 分 数 转化 为 若干 不 相同 的 
埃及 分 数 之 和 。 转 化 的 方法 可 能 有 很 多 种 。 常 把 分 解 式 中 埃及 分 数 的 个 数 最 少 ,或 在 个 
数 相 同时 埃及 分 数 中 最 大 分 母 为 最 小 的 分 解 式 称 为 最 优 分 解 式 。 

把 给 定 整数 或 分 数 分 解 为 埃及 分 数 之 和 ,也 是 一 个 繁琐 艰辛 的 过 程 。 

例如 ,对 5/121 的 分 解 ,为 尽 可 能 减少 分 解 项 数 ,数学 家 布 累 策 在 (数学 游览 ) 中 给 出 
了 以 下 优化 的 三 项 分 解 式 : 

5/121=1/25 十 1/759 十 1/208725 

同时 布 累 策 证 明了 5/121 不 可 能 分 解 为 两 个 埃及 分 数 之 和 。 

从 项 数 来 说 ,上 述 三 项 分 解 式 不 可 能 再 优化 了 。 但 对 最 大 分 母 来 说 , 布 累 策 的 分 解 式 
不 是 最 优 的 。 我 国 两 位 青年 数学 爱好 者 于 1983 年 发 现 以 下 4 个 分 解 式 。 


5/121 = 1/27 十 1/297 十 1/1089 (1) 
5/121 = 1/33 十 1/99 十 1/1089 (2) 
5/121 二 1/33 十 1/121 十 1/363 (3) 
5/121 = 1/33 十 1/91 十 1/33033 (4) 


这 4 个 分 解 式 都 比 布 累 策 的 结论 要 优 。 人 们 通常 约定 分 解 式 中 不 得 包含 与 待 分 解 分 数 同 
分 母 的 埃及 分 数 。 从 这 个 意义 上 ,显然 应 把 分 解 式 (3) 排 除 在 外 。 因 此 ,现在 所 知 把 5/ 
121 分 解 为 3 个 埃及 分 数 的 最 小 分 母 为 1089, 即 上 述 埃及 分 数 分 解 式 (1)、(2)。 
那么 ,分 解 5/121 为 3 个 埃及 分 数 之 和 ,其 最 大 分 母 能 否 小 于 1089 呢 ? 我 们 可 通过 
程序 设计 来 探索 拓展 。 
我 们 将 从 简单 地 构建 两 个 埃及 分 数 分 解 式 入 手 , 先 看 一 个 分 解 埃及 分 数 式 的 实例 。 
【问题 】 试 把 分 数 5/72 分 解 为 分 母 分 别 是 a,b(a<b 一 200) 的 埃及 分 数 式 。 
5/72 = 1/a 十 1/b 
【探求 】 拟 先 确定 分 母 的 取 值 范围 ,再 通过 具体 实验 调试 确定 。 
(1) 明确 两 个 分 母 关 系 。 
车 已 知 分 母 a, 则 另 一 分 母 b 为 
b = 72a/(5a 一 72) 
通过 计算 72/5, 可 确定 最 小 分 母 a 的 取 值 范 围 为 14<a<28。 
(2) 通过 a 取 值 求 b。 
取 a=15, 代 入 得 b=360 二 200, 不 符合 要 求 。 
取 a==16, 代 入 得 b= 二 144 二 200, 符 合 要 求 , 得 埃及 分 数 的 两 个 分 母 . 16 ,144。 
取 a=17, 代 和 得 b 为 非 整 数 ,不 符合 要 求 。 
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取 a=18, 代 入 得 b=72, 与 原 分 母 相同 ,不 符合 要 求 。 

取 a==17~23, 代 入 得 b 为 非 整 数 ,不 符合 要 求 。 

取 a 一 24, 代 和 人 得 b=36 志 200, 符 合 要 求 ,得 埃及 分 数 的 两 个 分 母 : 24 ,36。 

取 a=25 一 28, 代 入 得 b 为 非 整 数 ,不 符合 要 求 。 

(3) 写 出 埃及 分 数 式 。 

因而 ,我 们 得 到 满足 要 求 a,b(a<b 一 200) 的 两 个 埃及 分 数 式 为 

5/72 一 1/16 十 1/144 

5/72 王 1/24 十 1/36 

根据 埃及 分 数 中 最 大 分 母 为 最 小 的 分 解 式 为 最 优 ,显然 后 者 要 优 于 前 者 。 

从 以 上 具体 构建 可 以 看 出 ,规定 埃及 分 数 中 最 大 分 母 的 上 限 直 接 关系 到 埃及 分 数 式 


的 构建 。 


车 缩小 上 限 , 把 范围 二 b 二 200 缩小 为 a 二 b 二 100, 则 上 面 第 一 个 分 解 式 不 符合 要 求 。 
车 扩大 上 限 ,把 范围 a 二 b 二 200 扩大 为 a 二 b 二 400, 则 增加 了 分 解 式 5/72 王 1/15 十 


1/360。 


【编程 拓展 】 
对 给 定 的 分 数 m/d 分 解 为 3 个 埃及 分 数 的 分 解 式 ,其 分 母 为 ab,c(Ca<b 二 c) ,最 大 


分 母 不 超过 z, 输 出 所 有 埃及 分 数 式 。 


(1) 设计 要 点 。 

通过 3 重 循环 实施 枚 举 。 

确定 a 循环 的 起 始 值 al 与 终止 值 a2 。 

1/al 二 m/d 一 2/z 名 al 一 dz/(mz 一 2d) ( 即 把 b,c 放大 为 z) 

3/a2=m/d 2 a2 王 3d/m 十 1 ( 即 把 b,c 缩减 为 a) 

b 循环 起 始 取 a 十 1, 终 止 取 z 一 1。 

c 循 环 起 始 取 b 十 1, 终 止 取 z。 

为 方便 判别 ,把 分 数 式 m/d=1/a 十 1/b 十 1/e 转化 为 整数 式 

mabc 一 dCab 十 bc 十 ca) 

对 于 3 重 循环 的 每 一 组 ab,c, 计 算 x 一 mabc,y 一 d(ab 十 bc 十 ca) : 如 果 x==y 且 b,c 


不 等 于 d, 即 满足 分 解 为 3 个 埃及 分 数 式 的 条 件 , 则 打印 输出 一 个 分 解 式 。 然 后 退出 内 循 
环 ,继续 寻求 。 
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(2) 构建 埃及 分 数 式 程序 设计 。 


// 构 建 指定 分 数 的 3 个 埃及 分 数 式 和 式 
# include < stdio.h> 
void main0 
{ int a1,a2,a,b,c,d,m,n,z; long x,y; 
printf(" 确定 分 数 md, 请 输入 m,d:"); scanf("%d,%d”, &m, &d) ; 
printf(” 请 确定 分 母 的 上 界 : ") ; scanf ("%d", &z); 
rn=0; 
al=dxz/(mxz-2x*d;a2=dx3/mr1; 
for (a= al;a< =a2;at+) // 建 立 3 重 循环 枚 举 
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for (b=at+ 1;b<=z-1;b++) 
for (c=b+1;cC=zicr+) 
{ x=mxaxbxciy=dx (ax*b+bxcrcxa); /计算 x,y 值 
if (x==y &8 b!l=d 8&& c!=d) // 满 足 条 件 时 输出 分 解 式 
{ printf(” NO%d: %d/%d=1/%d",++n,m,d,a); 
printf ("+1/%d+1/%d \n",b, c); 
break; 
} 
} 
printf(” 共 以 上 %d 个 分 解 式 .\n", nn); 
} 


(3) 程序 运行 示例 与 说 明 。 


确定 分 数 md, 请 输入 m, d: 5, 121 
请 确定 分 母 的 上 界 : 1100 
NO1: 5/121= 1/27+ 1/297+ 1/1089 
NO2: 5/121= 1/33+ 1/99+ 1/1089 
NO3: 5/121= 1/45+ 1/55+ 1/1089 
共 以 上 3 个 分 解 式 。 


这 样 , 我 们 通过 程序 设计 探索 得 到 : 分 解 5/121 为 3 个 埃及 分 数 之 和 ,最 大 分 母 最 小 
为 1089, 即 不 可 能 有 比 上 述 3 个 分 解 式 更 优 的 分 解 。 

结果 中 的 最 后 一 个 分 解 式 是 程序 设计 得 到 的 新 的 最 优 分 解 式 。 

注意 : 确定 分 母 的 上 界 大 小 直接 关系 到 所 分 解 的 埃及 分 数 式 解 。 例 如 ,以 上 对 5/121 
的 分 解 , 若 输入 上 界 为 1000, 则 没有 分 解 式 ; 若 输入 上 界 为 3000, 则 存在 7 个 分 解 式 。 


3.3 桥 本 分 数 式 


数学 家 桥 本 吉 彦 教授 于 1993 年 在 我 国 山东 举行 的 中 日 美 三 国 数学 教育 研讨 会 上 向 
与 会 者 提出 以 下 填 数 趣 题 : 把 1,2,… ,9 这 9 个 数字 不 重复 填 人 下 式 的 9 个 方 格 口中 ,使 
下 面 的 分 数 式 成 立 。 


桥 本 教授 当即 给 出 了 一 个 解答 。 

【问题 】 试探 求 这 一 分 数 式 填 数 趣 题 的 填 数 结果 。 

【思考 】 以 某 一 简单 分 数 式 为 基础 ,每 个 分 数 分 子 分 母 同时 扩大 以 寻求 数字 不 重复 。 

可 采用 在 某 一 简单 分 数 和 式 的 基础 上 ,试验 把 每 一 分 数 的 分 子 分 母 同时 扩大 或 缩小 ， 
以 寻求 在 式 中 出 现 “1 一 9 这 9 个 数字 出 现 而 不 重复 ”而 达到 目标 。 

(1) 以 简单 分 数 式 1/14 十 1/14 二 1/7 为 基础 。 

前 一 分 数 1/14 的 分 子 分 母 同时 扩大 4 倍 得 4/56; 

后 一 分 数 1/14 的 分 子 分 母 同 时 扩大 7 倍 得 7/98; 
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右边 分 数 1/7 的 分 子 分 母 同时 扩大 3 倍 得 3/21 。 

3 个 分 数 实现 数字 1 一 9 各 出 现 一 次 不 重复 ,因而 得 到 一 个 解 : 4/56 十 7/98 王 3/21 。 

(2) 以 简单 分 数 式 9/51 十 8/51=1/3 为 基础 。 

前 一 分 数 9/51 的 分 子 分 母 同时 乘 以 2/3 倍 得 6/34; 

后 一 分 数 8/51 保持 不 变 ; 

右边 分 数 1/3 的 分 子 分 母 同 时 扩大 9 倍 得 9/27。 

3 个 分 数 实现 数字 1 一 9 各 出 现 一 次 不 重复 ,因而 又 得 到 一 个 解 : 6/34 十 8/51 一 9/27。 

采用 以 上 方法 试探 ,可 省 略 对 分 数 式 相等 的 检测 ,减少 计算 量 。 但 带 有 一 定 的 盲目 
性 ,要 想 试探 出 所 有 解 是 困难 的 。 

要 求解 桥 本 分 数 式 的 所 有 解 , 有 必要 借助 程序 设计 进行 全 面 搜索 。 

【编程 拓展 】 

桥 本 分 数 式 这 一 9 数字 填 数 趣 题 究 竟 有 多 少 个 不 同 的 解 ( 约 定式 左边 两 个 分 数 中 分 
子 小 的 在 前 )? 

同时 , 原 题 并 没有 要 求 3 个 分 数 为 最 简 分 数 ( 即 分 子 分 母 没有 大 于 1 的 公 因数 ) ,如 果 
要 求 式 中 3 个 分 数 都 为 最 简 分 数 , 又 有 多 少 个 不 同 的 解 ? 


1. 程序 设计 要 点 

设 分 数 式 为 bl/b2 十 cl/c2= dl/d2 ,注意 到 等 式 左边 两 个 分 数 交 换 次 序 只 算 一 个 解 
等 ,因而 约定 bl 到 cl 。 

(1) 设置 枚 举 循 环 。 

对 6 个 分 数 所 涉及 的 6 个 整数 设置 6 重 循环 枚 举 。 其 中 cl 从 bl 十 1 开始 取 值 ,确保 
bl 一 cl 。 

(2) 通过 3 重 检测 。 

若 分 数 式 不 成 立 , 即 bl x c2 x d2 十 cl x b2 x d21 二 dl * b2xc2, 则 返回 继续 。 

要 求 数字 1 一 9 在 这 6 个 变量 中 出 现 一 次 且 只 出 现 一 次 ,分 离 出 9 个 数字 后 用 工 数组 
统计 各 个 数字 的 频数 (如 f[3] 二 2, 即 数字 3 出 现 2 次 ) ,存在 重复 数字 时 返回 。 

(3) 要 求 最 简 分 数 处 理 。 

若 在 确定 是 否 “最 简 分 数 ” 时 输入 字符 'y', 即 选择 “要 求 3 个 分 数 为 最 简 分 数 ”, 设 置 循 
环 j(2 一 9) ,如 果 存 在 j 为 某 一 分 数 的 分 子 分 母 的 公 因数 , 则 返回 。 


2. 桥 本 分 数 式 程序 设计 


// 搜 索 是 否 最 简 分 数 的 桥 本 分 数 式 b1/b2+ cl/c2= d1/d2 
# include < stdio. h> 
void main0 
{ int bf,b2,c1,c2, d1, d2, j,n, t,x,f[11]; char ch; 
printf(” 如 果 要 求 各 分 数 都 为 最 简 分 数 ,请 输入 字符 y: ) ; 
ch= getchar 0 ; 
m0; 
for (bl=1;b1<=8;b1++) 
for (c1=b1+ 1;c1K=9;c1++) // 确 保 cl>b1 
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for (df= 1;d1<=9;d1++) 
for (b2= 12;b2< = 97;b2+ + ) 
for (c2= 12;c2< = 98;c2+ +) 
for (d2= 12;d2< = 98;d2+ + ) 
{ if(b1x*c2xd2+c1lxb2xd2!=d1x b2x c2) 
for (x=0;x<=9;x++) f[x]=0; 
f[b1]++ ;f[c1]++ ;f[d1]++ ; 
f[b2/10]+ + ;f[b2% 10]+ + ;f[c2/10]++ ; 
f[c2% 10]+ + ;f[d2/10]++ ;f[d2% 10]++ ; 
for (t=0, x=1;x<=9;x++) 
if(f[x]!=1) {t=1; break;} 
if(t==0 && ch=='y) 
{ for(j=2;j<=9;j++) 
if (b1% j== 
else if(c1% j==0 && c2% j==0) {t=1 
else if(d1i% j==0 &8 d2% j==0) {t=1 
} 
if (t==0) 


第 3 章 扎 式 牺 雯 位 三 ‖ 
// 枚 举 三 分 数 的 分 子 分 母 


// 若 分 数 式 不 成 立 则 返回 


continue; 


// 分 离 数字 用 f 数组 统计 


// 检 验 数字 位 9 是否 有 重复 
// 检 验 是 否 为 3 个 最 简 分 数 


0 && b2% j==0) {t= 1;break;} 
;break;} 
;break;} 


// 输 出 一 个 填 数 解 


{ printf("%4d: %1d/%2d+%1d/%2d",++n,b1,b2,c1,c2); 


printf ("=%1d/%2d ",d1,d2); 
if (n% 2==0) printf ("\n"); 


| 
printf("\n 
} 


共 以 上 %d 个 解 .\n",n); 


3. 程序 运行 结果 与 变通 
若 填 数 不 要 求 3 个 分 数 为 最 简 分 数 ,程序 


如 果 要 求 各 分 数 都 为 最 简 分 数 ,请 输入 字符 y:n 


1: 1/78+ 4/39= 6/52 2: 1/26+ 5/78= 4/39 

3: 1/32+5/96=7/84 4: 1/32+7/96=5/48 

5: 1/96+ 7/48= 5/32 6: 2/68+ 9/34= 5/17 

7: 2/68+ 9/51= 7/34 8: 4/56+ 7/98= 3/21 

9: 5/26+ 9/78= 4/13 10: 6/34+ 8/51= 9/27 
共 以 上 10 个 解 。 


若 填 数 要 求 3 个 分 数 为 最 简 分 数 , 则 程序 


如 果 要 求 各 分 数 都 为 最 简 分 数 ,请 输入 字符 y:y 
1: 1/26+5/78=4/39 2: 1/32+7/96=5/48 
3: 1/96+ 7/48= 5/32 

共 以 上 3 个 解 。 


运行 结果 如 下 所 示 。 


运行 结果 如 下 所 示 。 


序 能 搜索 不 要 求 最 简 分 数 的 桥 本 分 数 式 ,也 能 搜索 附加 条 件 “ 要 求 各 分 数 都 为 最 简 


sre 这 是 程序 设计 的 特色 。 
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变通 : 把 0,1,2,…,9 这 10 个 数字 填 人 下 式 的 10 个 方 格 中 ,要 求 : 各 数字 不 得 重复 ; 
数字 0 不 得 填 在 各 分 数 的 分 子 或 分 母 的 首位 。 


Oe = 
这 一 分 数 式 填 数 究 竞 共 有 多 少 个 解 ? 


3.4 优美 和 式 与 平方 式 


优美 和 式 是 一 个 创新 填 数 趣 题 ,其 优美 体现 在 所 涉 约定 数字 在 和 式 中 不 重复 ,是 和 谐 
美的 具体 体现 。 

和 式 分 为 3 项 和 式 ( 左 边 两 项 求 和 ) 和 引申 的 4 项 和 式 ( 左 边 3 项 求 和 ) 两 类 , 益 智 训 
练 ,各 具 特 色 。 


3.4.1 9 数字 优美 和 式 


因 9 数字 优美 和 式 涉及 1 一 9 这 9 个 正 整数 ,不 涉及 数字 0, 变 化 较为 简单 。 
试 把 1,2,…,9 这 9 个 数字 分 别 填 人 以 下 和 式 中 的 9 个 口中 ,要 求 1 一 9 这 9 个 数字 

在 式 中 出 现 一 次 且 只 出 现 一 次 ,使 得 和 式 成 立 。 

口 十 一 (1) 
【问题 1】 试 求 和 式 (1) 中 的 和 ( 即 式 右 3 位 数 ) 的 最 大 值 。 
【思考 】 从 进位 次 数 确 定式 右 的 数字 和 入 手 。 
注意 到 1 一 9 这 9 个 数字 之 和 为 45。 

(1) 确定 进位 次 数 。 
式 左 求 和 时 每 一 次 进位 ,所 进 的 1 相当 于 10, 求 和 结果 的 数字 和 会 减少 9。 
例如 , 数 式 218 十 439 一 657 中 , 式 右 的 数字 和 为 18, 式 左 的 数字 和 为 27, 式 右 比 式 左 

的 数字 和 要 小 9, 就 是 求 和 运算 的 一 次 进位 8 十 9 一 17 造成 的 。 
首先 确定 : 和 式 (1) 左 边 求 和 过 程 中 有 一 次 且 只 有 一 次 进位 。 
事实 上 ,假若 左边 求 和 时 没有 进位 , 则 式 左 的 6 个 数字 之 和 与 式 右 的 3 个 数字 之 和 相 

等 , 即 都 为 9 个 数字 之 和 45 的 一 半 ( 非 整数 ) ,矛盾 。 
假若 左边 求 和 有 2 次 进位 ,使 数字 和 减 小 了 2X9 王 18. 因 而 式 右 的 3 个 数字 之 和 为 

45 一 2X9 一 27 的 一 半 ( 非 整数 ) ,矛盾 。 
假若 式 左边 求 和 有 3 次 进位 , 则 式 右 作 为 求 和 结果 必 为 4 位 数 , 蔬 盾 。 

可 见 , 和 式 (1) 左 边 求 和 过 程 中 有 一 次 且 只 有 一 次 进位 。 

(2) 确定 式 右 3 位 数 的 数字 和 。 

和 式 左 边 求 和 有 一 次 进位 ,因而 和 式 右边 的 3 个 数字 之 和 为 (45 一 9)/2 一 18。 

(3) 探索 最 大 值 。 

根据 式 右 3 位 数 的 3 个 互 不 相同 的 数字 之 和 为 18 ,其 最 大 值 的 高 位 ( 即 百 位 ) 数 字 尽 

可 能 大 ,选择 填 9; 十 位 数字 也 尽 可 能 大 ,可 填 8; 相 应 个 位 数字 为 1 。 

对 于 所 填 和 981, 需 寻找 相应 的 数字 1 一 9 没有 重复 数字 的 和 式 ( 可 能 存在 多 个 ), 例 
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如 和 式 235 十 746 一 981 。 

因而 得 和 式 (1) 右 边 和 的 最 大 值 为 981 。 

【编程 拓展 】 

和 式 (1) 右 边 和 的 最 小 值 为 多 大 ? 和 式 (1) 共 有 多 少 种 不 同 的 填 法 ?以 下 应 用 程序 设 
计 来 探求 这 些 问 题 。 

为 避免 式 左 两 个 加 数 交换 个 位 数字 ,或 交换 十 位 数字 ,或 交换 百 位 数字 造成 多 种 重 
复 , 约 定式 左 两 个 加 数 的 前 一 个 3 位 数 的 各 位 数字 分 别 小 于 后 一 个 3 位 数 的 相应 数字 。 

同时 ,为 了 便于 观察 右边 和 的 最 小 值 与 最 大 值 ,约定 式 右 边 的 和 按 从 小 到 大 排列 , 且 
要 求 每 一 个 和 值 只 输出 一 个 和 式 。 


1. 设计 要 点 

设 3 个 3 位 数 为 ab,c, 和 式 为 a 十 b=c。 

(1) 设置 循环 。 

建立 和 数 c 循环 (315 一 987) ,这 里 循环 初 值 315 是 百 位 数 为 3( 因 左边 a,b 都 有 较 小 
的 百 位 数字 ) 且 为 9 倍数 的 最 小 3 位 数 ;循环 终 值 为 没有 重复 数字 的 最 大 3 位 数 987 ;循环 
步 长 设 为 9 以 提高 搜索 效率 。 

同时 建立 加 数 a 循环 (123 一 c/2) , 因 约 定 a 二 b, 因 而 循环 终止 值 为 /2。 另 一 加 数 显 
然 为 b=c 一 a。 

(2) 分 离 数 字 排 除数 字 重 复 。 

应 用 整除 /与 求 余 % 运 算 分 解 各 数 的 各 个 数字 。 为 了 检测 是 否 存 在 重复 数字 ,设置 g 
数组 统计 a,b,c 所 分 解 的 9 个 数字 的 频数 ,应 用 2 重 循环 实施 比较 , 若 存在 重复 数字 , 则 
标注 t=1 返回 。 

(3) 条 件 输出 。 

在 输出 和 式 时 为 确保 式 左前 一 个 3 位 数 的 各 位 数字 分 别 小 于 后 一 个 3 位 数 的 相应 数 
字 ,在 输出 条 件 中 增加 条 件 限制 


a/100< b/100 && a% 10< b% 10 && (a/10)% 10 (b/10)% 10 
特别 地 ,每 输出 一 个 和 式 , 即 行 退出 内 循环 ,确保 一 个 和 值 c 只 输出 一 个 和 式 。 
2. 程序 设计 


// 探 求 9 数字 3 项 优美 和 式 : 口 口 口 + 口 口 口 = 
# include < stdio. h> 
void main0 
{ int ab,c,d,t,mn,x,g[10]; 
m0; 
for (c= 315;c< =987;c+ =9) /和 ec 为 9 倍数 
for (a= 123;a< co/2;a++) 
{ b=c-ai 
for (x=0;x<=9;x++) g[x]=0; 
d=a; // 分 解 并 统计 9 个 数字 的 频数 
g[d% 10]+ + ;g[d/100]+ + ;m= (d/10)% 10;g[m]++ ; 
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d=b; g[d% 10]++ ;g[d/100]++ ;m= (d/10)% 10;g[m]++ ; 
d=c; g[d% 10]++ ;g[d/100]+ + ;m= (d/10)% 10;g[m]++; 
for (t=0, x=1;x<=9;x++) 


if(g[x]!=1) {t=1;break;} // 检 验 数 字 1 9 各 出 现 一 次 
if (t==0 &8 a/100< b/100 && a% 10< b% 10 && (a/10)% 10< (b/10)% 10) 
{ printf("%5d: %dt%d=%d",++n,a, b,c); // 统 计 并 输出 一 个 解 


if (n% 3==0) printf ("\n"); 


a= c/2;break; // 确 保 一 个 和 值 只 输出 一 个 和 式 


} 
printf("\n 共 以 上 %d 个 9 数字 和 式 。\n",n); 
l 


3. 程序 运行 结果 与 说 明 


1: 173+ 286= 459 2: 173+ 295= 468 3: 127+ 359= 486 
4: 127+ 368= 495 5: 162+ 387= 549 6: 128+ 439= 567 


28: 216+ 738=954 29: 215+ 748= 963 30: 314+ 658= 972 
31: 235+ 746= 981 
共 以 上 31 个 9 数字 和 式 。 


以 上 运行 结果 输出 31 个 优美 和 式 , 这 31 个 和 式 靠 人 工 推算 可 能 很 难 完 整 。 
同时 看 出 ,和 式 (1) 右 边 和 的 最 小 值 为 459, 最 大 值 为 981, 与 上 面 所 解 相同 。 
【引申 】 把 和 式 (1) 左 边 的 2 项 分 解 为 3 项 , 即 为 以 下 的 4 项 和 式 。 


十 十 一 

和 式 (2) 涉 及 4 项 a 十 b 十 c= 二 d, 在 以 上 程序 基础 上 ,增加 一 重 循环 , 各 参数 进行 相应 变 
通 , 具 体 修改 请 自行 完成 。 

优美 和 式 (2) 的 解 如 下 : 


1: 7+58+169=234 2: 6+58+179=243 3: 4+ 68+ 279= 351 
4: 1+72+386=459 5: 1+72+ 395= 468 6: 6+28+ 479= 513 
7: 6+27+498=531 8: 1+82+493=576 9: 4+38+579=621 
10: 1+43+685=729 11: 1+ 42+ 695= 738 12: 2+53+764=819 
13: 1+ 52+ 793= 846 

共 以 上 13 个 9 数字 4 项 和 式 。 


由 以 上 运行 结果 输出 的 13 个 和 式 看 出 ,和 式 (2) 右 边 和 的 最 大 值 为 846, 最 小 值 


为 234。 
3.4.2 10 数字 优美 和 式 
10 数字 优美 和 式 涉 及 0 一 9 这 10 个 数字 , 因 涉 及 数字 0, 因 而 其 变化 较为 复杂 。 


把 0,1,2,…,9 这 10 个 数字 分 别 填 人 以 下 和 式 中 的 10 个 口中 ,要 求 0 一 9 这 10 个 数 


字 在 式 中 出 现 一 次 且 只 出 现 一 次 (约定 0 不 能 在 各 个 整数 的 首位 ) ,使 得 和 式 成 立 。 
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十 回 到 (3) 

【问题 2】〗】 试 求 和 式 (3) 中 和 ( 即 式 右 4 位 数 ) 的 最 大 值 。 

【思考 】 从 进位 次 数 确定 式 右 4 位 数 的 数字 和 入手。 

(1) 确定 式 (3) 右 边 4 位 数 的 数字 和 。 

左边 求 和 至 少 有 一 次 进位 (否则 右边 和 不 可 能 为 4 位 )。 

同时 ,左边 求 和 过 程 中 不 会 出 现 2 次 进位 。 假 设 出 现 2 次 进位 ,注意 到 每 一 次 进位 数 
字 和 会 减少 9, 右边 4 位 数 的 数字 和 为 (45 一 2X9)/2, 非 整数 ,矛盾 。 

当 左 边 求 和 有 一 次 进位 时 ,右边 数字 和 为 (45 一 9)/2 王 18。 

当 左 边 求 和 有 3 次 进位 时 ,右边 数字 和 为 (45 一 3X9)/2 二 9。 

(2) 式 右边 的 4 个 数字 中 必 有 一 个 0。 

当 式 右边 数字 和 为 9, 或 为 18 时 ,数字 0 必 出 现在 式 右 边 的 4 位 数 之 中 。 

(3) 右边 数字 和 为 9 时 探索 最 大 值 。 

当 右 边 数字 和 为 9 时 ,注意 到 右边 4 位 数 的 高 位 只 能 为 1, 还 有 一 个 数字 0, 因 而 4 个 
数字 中 的 最 大 数字 只 可 能 为 6( 假 设 最 大 数字 为 7, 造 成 两 个 数字 1 重复 ;假设 最 大 数字 为 
8, 造 成 两 个 数字 0 重复 ) 。 

设 4 个 数字 中 的 最 大 数字 为 6, 则 4 位 数 最 大 值 可 能 为 1620,1602。 
注意 到 最 大 值 若 为 1620, 由 于 0 出 现在 个 位 ,左边 没有 适当 数字 匹配 ,不 能 成 为 
和 式 。 

设 右边 4 位 数 最 大 值 为 1602 ,存在 相应 的 和 式 : 743 十 859 一 1602 。 

结论 : 和 式 右边 和 的 最 大 值 为 1602。 

【编程 拓展 】 

和 式 (3) 右 边 和 的 最 小 值 为 多 大 ? 和 式 (3) 共 有 多 少 种 不 同 的 填 法 ?以 下 借助 程序 设 
计 探 求 这 些 问 题 。 

为 避免 式 左 两 个 加 数 交换 个 位 数字 ,或 交换 十 位 数字 ,或 交换 百 位 数字 造成 重复 , 约 
定式 左 两 个 加 数 的 前 一 个 3 位 数 其 各 位 数字 分 别 小 于 后 一 个 3 位 数 的 相应 数字 。 

同时 ,为 了 便于 观察 右边 和 的 最 小 与 最 大 值 ,约定 右边 和 按 从 小 到 大 排列 , 且 要 求 每 
一 个 和 值 只 输出 一 个 和 式 。 

(1) 设计 要 点 。 

设 3 个 3 位 数 为 a,b,c, 即 和 式 为 a 十 b= 二 c。 

建立 和 数 c 循环 (1026 一 1987), 这 里 1026 是 被 9 整除 且 没 有 重复 数字 的 最 小 4 位 
数 ,循环 步 长 设 为 9, 以 提高 搜索 效率 。 

同时 建立 加 数 a 循环 (102 一 c/2), 这 里 102 是 没有 重复 数字 的 最 小 3 位 数 ,约定 a<b， 
因而 循环 终止 值 为 c/2。 另 一 加 数 显然 为 b 一 c 一 a。 

应 用 整除 /与 求 余 % 运 算 分 解 各 数 的 各 个 数字 。 为 了 检测 是 否 存在 重复 数字 ,设置 g 
数组 统计 所 分 解 的 10 个 数字 的 频数 ,应 用 2 重 循环 实施 比较 。 

特别 地 ,每 输出 一 个 和 式 ,即行 退出 内 循环 ,确保 一 个 和 值 只 输出 一 个 和 式 。 

(2) 程序 设计 。 


// 探 求 10 数 字 3 项 优美 和 式 : 口 口 口 + 口 口 口 = 
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# include < stdio.h> 
void main0 
{ inta,b,c,d,t,m,n,x,g[10]; 


m0; 


for (c= 1026;c< = 1987;c+ =9) //1026 是 能 被 9 整除 的 最 小 4 位 数 


for (a= 102;a< c/2;a++) 
{ b=c-a; 
if (b> 999) continue; 
for (x=0;x<=9;x++) g[x]=0; 
d=a;g[d% 10]++ ;g[d/100]++ :m= (d/10)% 10;g[m]++ ; 
d=b;g[d% 10]++ ;g[d/100]+ + ;m= (d/10)% 10;g[m]++ ; 


g[c/1000]+ + ;d= c% 1000; // 统 计 式 中 各 数字 的 频数 


g[d% 10]+ + ;g[d/100]+ + ;m= (d/10)% 10;g[m]++ ; 
for (t=0, x=0;x<=9;x++) 


if (g[x]!=1) {t=1;break;} // 检 验 数 字 0" 9 各 出 现 一 次 
if (t==0) 
{ printf("%4d: %dr%d=%d",++n,a,b, c); // 统 计 并 输出 一 个 解 

if (n% 3==0) printf ("\n"); 

a=c;break; 


} 
printf("\n 共 以 上 %d 个 10 数 字 3 项 和 式 。\n",n) ; 


(3) 程序 运行 结果 与 说 明 。 


1: 437+ 589= 1026 2: 246+ 789= 1035 3: 264+ 789= 1053 
4: 473+ 589= 1062 5: 324+ 765= 1089 6: 342+ 756= 1098 
7: 347+ 859= 1206 8: 426+ 879= 1305 9: 624+ 879= 1503 
10: 743+ 859= 1602 

共 以 上 10 个 10 数 字 3 项 和 式 。 


由 以 上 运行 结果 输出 的 10 个 和 式 看 出 ,和 式 (3) 右 边 和 的 最 小 值 为 1026 ,最 大 值 为 
1602 ,与 上 面 所 解 结论 相同 。 


【引申 】 把 和 式 (3) 左 边 的 2 项 分 解 为 3 项 , 即 为 以 下 的 4 项 和 式 。 


(4) 


十 十 

和 式 (4) 涉 及 4 项 a+b 十 c 一 d, 请 在 以 上 程序 基础 上 ,增加 一 重 循环 ,各 参数 作 相 应 变 
通 , 具 体 修改 请 自行 完成 。 

优美 和 式 (4) 的 解 如 下 : 
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1: 3+ 45+ 978= 1026 
2: 2+ 46+ 987= 1035 
3: 2+ 64+ 987= 1053 
4: 3+ 74+ 985= 1062 
共 以 上 4 个 10 数 字 4 项 和 式 。 


第 3 齐 各 去 靖 光 从 | 
由 以 上 运行 结果 输出 的 4 个 和 式 看 出 .和 式 (4) 右 边 和 的 最 大 值 为 1062, 最 小 值 
为 1026 。 
3.4.3 优美 平方 式 


优美 平方 式 : 如 果 数 字 1 一 9 不 重复 填 人 式 (5) 的 9 个 口中 使 等 式 成 立 , 则 该 等 式 称 
为 优美 平方 式 。 


回国 上 日 回 寺 湖 )? (5) 
式 (5) 的 左边 为 一 个 6 位 数 ,右边 是 一 个 3 位 数 的 平方 。 
编程 构建 所 有 优美 平方 式 。 
1. 设计 要 点 


设置 f 数 组 存储 式 中 各 个 数字 的 频数 ,便于 比较 是 否 存在 重复 数字 。 

(1) 枚 举 循环 设置 。 

若 整 数 a 为 4 位 , 则 a? 的 位 数 达 7 位 ,超出 范围 。 因 而 整数 a 只 能 为 3 位。 

通过 循环 计算 最 小 的 3 位 整数 t, 设 置 循环 a(t 十 1 一 10 * t 一 1) 枚 举 3 位 整数 。 

计算 d==ax a, 车 d 的 位 数 不 足 6 位 , 则 a 与 d 的 位 数 之 和 小 于 9, 因 而 导致 数字 1~9 
填 不 下 , 则 返回 。 

(2) 分 离 整数 数字 并 统计 频数 。 

应 用 求 余 与 取 整 运算 分 离 a,d 的 各 个 数字 。 

在 数组 元 素 f[kj(k: 0 一 9) 清 零 后 ,通过 fLkj] 十 十 统计 各 数字 的 频数 。 

(3) 检测 重复 数字 。 

检测 整数 a,d 的 数字 频数 f[k] , 若 f[kj 关 1( k: 1 一 9) , 则 返回 。 

若 {Lk]=1(Gk: 1 一 9) ,满足 优美 要 求 , 则 输出 平方 式 。 


2. 程序 设计 


// 探 求 9 数字 优美 平方 式 
# include < stdio.h> 
voidmain0 
{ int k,p,s,f[10]; long a,d,t,w; 
s=0;t=1; 
for (k= 1;k<=2;k++) t=t* 10; /人 t 为 3 位 最 小 整数 
for(a=t+1;ac=tx 10-1;a++) 
{ daxa; wd; // 确 保 d 为 平方 数 
if (d< 100000) continue; 
for (k=0;k<=9;k++) f[k]=0; 


whi le (w> 0) // 分 离 d 的 数字 并 统计 频数 
{ k=w% 10;f[k]+ + ;w= w/10;} 

a; 

while(w> 0) // 分 离 a 的 数字 并 统计 频数 


{ k=w% 10;f[k]+ + ;w= w/10;} 
for (p=0,k=1;k<=9;k++) 
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if (Ff[k]!=1) p=1; // 平 方式 中 是 否 有 重复 数字 
if (p==0) 
printf(” %d: % 1d=% 1d"2\n",++s,da); // 统 计 个 数 并 输出 平方 式 


} 
if(s>0) printf(” 共 以 上 %d 个 9 数字 优美 平方 式 。\n", s); 
else printf("\n 不 存在 满足 要 求 的 平方 式 。\n"); 

} 


3. 程序 运行 示例 与 说 明 


1: 321489= 567`2 
2: 729316= 854 2 
共 以 上 2 个 9 数字 优美 平方 式 。 


我 们 看 到 ,输出 的 两 个 优美 平方 式 中 的 9 个 数字 为 1 一 9 不 重复 出 现 
能 否 加 入 数字 0 构建 10 数字 优美 平方 式 呢 ? 回答 是 否定 的 。 因 为 3 位 整数 a 的 平 
方 数 最 多 为 6 位 , 若 a 增 加 为 4 位 , 则 d=a? 至 少 为 7 位 ,超出 10 位 的 数字 范围 。 


3.5 优美 综合 运算 式 


本 节 创 新 构建 隐 序 四 则 运算 式 及 综合 运算 数学 式 ,这 是 一 个 有 趣 也 有 难度 的 填 数 
游戏 。 

各 数学 式 称 为 “优美 ”, 是 指 各 个 数字 在 式 中 不 重复 ,是 和 谐 美 的 具体 体现 。 
3.5.1 隐 序 四 则 运算 式 


本 节 所 论述 的 数 式 除了 含 四 则 运算 与 数字 不 重复 外 ,还 必须 符合 指定 隐 序 。 这 一 新 

增 要 求 是 新 颖 的 ,也 是 有 趣 的 。 

把 数字 0,1,2,…,9 这 10 个 数字 不 重复 填 和 信 以 下 含 加 \ 减 、 乘 、 除 (乘除 运算 优先 于 加 

减 运 算 ) 的 四 则 运算 式 中 的 10 个 口中 ,使 得 下 式 成 立 。 

: : 让 Ci 
约定 式 (1) 填 数字 时 ,1,0 不 出 现在 式 左边 的 一 位 数 中 , 且 数 字 0 不 能 为 整数 首位 。 
同时 ,要 求 式 中 的 10 个 不 重复 的 数字 须 符合 指定 隐 序 ,指定 隐 序 由 输入 的 整数 决定 。 

例如 ,如 果 指 定 隐 序 为 4 位 数 2019, 则 该 运算 式 中 数字 的 隐 含 顺序 为 : 数字 2 须 在 0 的 左 

边 ,数字 0 须 在 1 的 左边 ,而 数字 1 须 在 9 的 左边 (这 就 是 隐 序 的 含意 ) 。 
例如 ,267 十 80 二 5 一 31X9 一 4 就 是 一 个 符合 2019 指定 隐 序 的 优美 四 则 运算 式 。 
输入 指定 隐 序 的 整数 ,构建 并 输出 所 有 符合 指定 隐 序 的 优美 四 则 运算 式 。 


1. 设计 要 点 
(1) 数据 结构 。 
以 上 四 则 运算 式 中 的 各 数 依次 设置 为 变量 a.b,c,d,e,f, 即 四 则 运算 式 为 
a 十 by/c 一 dxe 一 荆 Ca) 
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同时 设置 3 个 数组 : g 数组 统计 式 中 共 6 个 整数 的 10 个 数字 的 频数 ,便于 判别 重复 
数字 ;h 数组 标记 式 中 10 个 数字 的 位 置 ,便于 判别 是 否 符合 指定 隐 序 ; w 数组 存储 指定 隐 
序 , 为 判别 是 否 符合 指定 隐 序 提供 数据 。 

(2) 设置 枚 举 循环 。 

设置 a,c,d,e,f 循环 ,其 中 c,e,f 都 是 1 位 数 ,f 循环 0~9 取 值 ,ce 循环 2 一 9 取 值 ; 
数 a 为 3 位 数 ,循环 102 一 987 取 值 ; 数 d 为 2 位 数 ,循环 10 一 98 取 值 。 

(3) 计算 整数 b。 

把 以 上 四 则 运算 式 变形 为 以 下 的 乘积 式 是 简便 的 。 

b 一 (dxe 十 { 一 a)c (3) 

对 每 一 组 a,c,d,e,f, 计 算 b。 这 样 处 理 ,可 省 略 b 循环 ,省 略 b 是 否 能 被 c 整除 ,也 省 
略 等 式 是 否 成 立 的 检测 。 

计算 b 后 ,检测 b 是 否 为 2 位 数 。 若 计算 所 得 b 非 2 位 数 , 则 返回 。 

(4) 判别 是 否 存在 重复 数字 。 

然后 分 别 对 6 个 整数 进行 数字 分 离 , 设 置 g 数组 对 6 个 整数 分 离 的 共 10 个 数字 进行 
统计 ,g[xj 即 为 数字 x(0 一 9) 的 频数 。 同 时 ,应 用 h 数组 标记 式 中 10 个 数字 的 位 置 。 

例如 ,g[3] 王 2, 即 为 2 个 数字 3;h[5]==4, 即 数字 5 在 数 式 中 第 4 个 位 置 上 。 

若 某 一 g(x) 了 1, 不 满足 10 个 数字 都 出 现 一 次 且 只 出 现 一 次 ,标记 {t=1。 

车 所 有 g(x) 全 为 1, 满 足 数字 0,1,2,…,9 这 10 个 数字 都 出 现 一 次 且 只 出 现 一 次 , 保 
持 标 记 t==0, 则 优美 四 则 运算 式 成 立 。 

(5) 判别 是 否 符合 指定 隐 序 。 

式 中 10 个 数字 的 分 布 必须 符合 指定 顺序 的 要 求 , 这 既是 重点 ,也 是 难点 。 

输入 的 指定 隐 序 的 整数 m 要 求 没 有 重复 数字 ,位 数 不 限 (当然 不 能 超过 10)。 因 此 ， 
首先 分 离 隐 序 m 的 各 个 数字 ( 设 为 n 个 数字 ) ,并 从 个 位 开始 赋值 给 w[1] 一 wLnj。 

综合 h 与 w 数组 来 判别 所 得 优美 四 则 运算 式 的 10 个 数字 分 布 是 否 符合 指定 要 求 。 

因 指 定 隐 序 的 整数 m 的 w[k] 在 w[k 一 1] 的 前 面 , 即 h[w[k]] 过 hLw[k 一 1J](k: 2 一 
n) 才 是 符合 指定 隐 序 。 若 出 现在 某 一 个 k(2~n 中 的 一 个 )hLw[k]] 之 =hLw[k 一 1]](k; 
2 一 n) 不 符合 指定 隐 序 , 即 返 回 试 下 一 个 数 式 。 


2. 程序 设计 


// 探 求 指定 隐 序 的 优美 四 则 运算 式 : 口 口 口 + 口 X 口 = 
// 式 中 10 个 不 重复 的 数字 须 符合 指定 隐 序 
# include < stdio.h> 
void main0 
{ inta,b,c,d,e,f,k,t,m,n,x,y,z,g[11],h[11],w[11]; 
printf(” 请 输入 指定 隐 序 数 m( 数 字 互 不 同 ): ) ; scanf ("%d", &m) ; 
n=0;y=m; 
while(y> 0) 
{x=y% 10;w[+ +n]=x;y=y/10;} // 分 离 m 的 数字 赋值 w 顺 序数 组 
m0; 
for (f=0;f<=9;f++) 
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顺序 。 式 中 含 加 减 乘除 四 则 运算 ,运算 结果 使 一 成 立 。 
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for (a= 102;a<=987;a++) 

for (c=2;cC=9;ct+) 

for (d= 10;d< =98;d+ +) 

for (e=2;eC=9;et+) 

{ b= (dxetf-a)*oe; 
if(b<10 || b>99) continue; 
for (x=0;x<=9;x++) g[x]=0; 
g[c]++ig[e]++;g[f]++; 
h[c]=6;h[e]j=9;h[f]=10; 
y=a; 
for (k=1;k<=3;k++) 

{x=y% 10;g[x]++ ;h[x]=4-k;y=y/10;} 
g[b/10]+ + ;h[b/10]= 4;g[b% 10]++ ;h[b% 10]=5; 
g[d/10]++ ;h[d/10]=7;g[d% 10]++ ; h[d% 10]=8; 
for (t=0, x=0;x<=9;x++) 

if(g[x]!=1) {t=1;break:} 
if (t==1) continue; 
for (t=0,k=n;k>=2;k-—) 

if (h[w[k]]>=h[w[k- 1]]) {t=1;break;} 
if (t==1) continue; 
printf(" %2d:%d+%d%d",++m,a,b,c); 
printf("-%dXx%d=%d",d,e,f); 
if (m% 2==0) printf ("\n"); 


// 循 环 实施 枚 举 ac,d,e,f 


/计算 变量 b 省 去 b 循环 


/3 个 1 位 数 给 g,h 数 组 赋值 


// 分 离 a 的 3 个 数字 给 g,h 数 组 统计 


// 分 离 bd 数字 给 g,h 数组 统计 


// 检 验 数字 0-9 是 否 存 在 重复 


// 检 验 是 否 符合 w 数 组 指定 隐 序 


// 以 每 行 2 个 输出 符合 要 求 数 式 


printf(” 共 以 上 %d 个 符合 指定 隐 序 的 优美 运算 式 1\n",m); 


| 
3. 程序 运行 示例 与 说 明 


请 输入 指定 隐 序 数 m( 数 字 互 不 同 ) : 2019 

1:267+ 80 二 5- 31X9=4 2:204+ 18 二 9-67X3=5 
3:207+ 18 二 9-34X6=5 4:240+ 16 二 8-79X3=5 
5:270+ 84 二 6 31X9=5 6:720+ 45 二 3-81X9=6 
7:250+ 81 二 9- 63X47 8:643+ 20 二 5-71X9=8 
9:205+ 68 二 4 71X 3=9 10:208+ 56 二 4 71X3=9 
11:237+ 80 二 5- 61X4=9 12:250+ 81 二 3-67X4=9 
共 以 上 12 个 符合 指定 隐 序 的 优美 运算 式 ! 


从 运行 结果 中 清楚 可 见 ,每 个 式 中 的 10 个 数字 无 重复 , 且 其 分 布 隐 含 指定 2019 指定 


若 输入 的 指定 隐 序 数 m 为 20195, 则 只 有 以 上 第 2,3,4,5 个 解 满 足 要 求 。 
车 输入 的 指定 隐 序 数 m 为 20197, 则 只 有 以 上 第 2,7 个 解 满足 要 求 。 
这 里 特别 强调 ,输入 隐 序 数 m 时 ,不 能 含有 重复 数字 ,否则 ,程序 难以 进行 测试 。 


3.5.2 综合 运算 式 


【问题 】 在 以 下 数 式 (2) 中 已 填 有 数字 0,4,6, 请 把 另 7 个 数字 1,2,3,5,7,8,9 不 本 


上 同 
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复 填 人 以 下 含 加 \ 减 、 乘 、 除 与 乘 方 的 综合 运算 式 中 的 7 个 口中 ,使 得 该 式 成 立 。 
45 十 志 回 一 回 区 回 王 7 (4) 
约定 数字 1 不 出 现在 数 式 的 一 位 数 中 。 
【思考 】 把 式 中 乘积 项 设置 在 大 于 乘 方 数值 附近 探 试 。 
式 中 10 个 数字 已 填 有 3 个 ,是 为 了 减少 填 数 字 的 难度 。 
设 式 (4) 中 的 2 位 数 为 x。 


注意 到 已 有 人 二 4096 二 512X8, 因 而 拟 把 口 口 口 X 口 设置 在 大 于 512X8 附近 ,分 以 
下 情形 讨论 。 

(1) 取 45 : 512X9==0, 则 : 512 ,不 可 能 实现 。 

(2) 取 4 十 : 513X8 王 0, 则 8, 即 2 位 数 x 为 8 的 倍数 。 


x 二 16,24,32,40,48,56,64 与 80， 分 别 导致 数字 6， 4,3,4,4,6,4,8 了 矛盾 。 
而 对 于 x 二 72, 有 72 二 9 二 8, 则 可 得 综合 运算 式 
4 十 72 二 9 一 513X8 一 0 (5) 

即 得 对 应 式 (4) 的 综合 运算 式 (5) 。 

【编程 拓展 】 把 数字 0,1,2,…,9 这 10 个 数字 不 重复 填 人 以 下 含 加 、 减 、. 乘 、 除 与 乘 
方 的 综合 运算 式 中 的 10 个 口中 ,使 得 该 式 成 立 。 
D+ 二 口 一 六 加 二 (6) 

约定 数字 1,0 不 出 现在 式 左边 的 一 位 数 中 , 且 0 不 能 为 整数 首位 。 试 探索 并 输出 所 
有 综合 运算 式 。 

和 A 

没 综 合 运算 式 为 


ab 十 z/c 一 dxe 一 荆 (7) 
把 所 有 变量 设置 为 整 型 ,其 中 乘 方 asb 用 a 自 乘 b 次 实现 。 
(1) 设置 枚 举 循 环 。 
设置 a,b,c,d,e,f 循环 ,其 中 a,b,c,e,f 都 是 一 位 数 ,f 循环 为 0 一 9 取 值 ,而 a,b,c,e 
循环 为 2 一 9 取 值 ; 数 d 为 3 位 数 ,循环 为 102 一 987。 
(2) 计算 数 z。 
对 每 一 组 a,b,c,d,e,f, 计 算 
2 一 (dxe 十 { 一 ab) xc (8) 
这 样 设计 ,可 省 略 z 循环 ,省 略 z 是 否 能 被 c 整除 ,省 略 等 式 是 否 成 立 的 检测 。 
计算 z 后 ,检测 z 是 否 为 2 位 数 。 若 计算 所 得 z 非 2 位 数 , 则 返回 
(3) 判别 是 否 存在 重复 数字 。 
然后 分 别 对 7 个 整数 进行 数字 分 离 ,设置 g 数组 对 7 个 整数 分 离 的 共 10 个 数字 进行 
统计 ,g(x) 即 为 数字 x(0 一 9) 的 频数 。 
若 某 一 g(x) 不 为 1, 不 满足 10 个 数字 都 出 现 一 次 且 只 出 现 一 次 ,标记 t==1。 
若 所 有 g(x) 全 为 1, 满 足 数字 0,1,2,…,9 这 10 个 数字 都 出 现 一 次 且 只 出 现 一 次 , 保 
持 标记 t 二 0, 则 输出 所 得 的 优美 综合 运算 式 。 
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2. 程序 设计 


// 探 求 完美 综合 运算 式 : + E 和 加 = 
// 式 左 的 一 位 数 不 能 为 0 或 1, 式 左 的 整数 首位 不 能 为 0 
# include < stdio.h> 


void main0 
{ inta,b,c,d,e,f,k,t,n,x,y,z,g[11]; 
rn=0; 
for (f=0;f<=9;f++) 
for (a=2;ak=9;at+) 
for (b= 2;bC=9;b++) 
for (c=2;cK=9;cr+) 


for (d= 102;d< =987;d+ +) // 各 数 实施 枚 举 
for (e=2;e<=9;et++) 
{ for(t=1,k=1;k<=b;k++) t=tx ai // 计 算 乘 方 ab 


z= (dx e+f-t) *x ci 
if(z<10 || z> 98) 
for (x=0;x<=9;x++) g[x]=0; 
g[f]++ ;g[a]++ ;g[b]++ ;g[c]++ ;g[e]++; 
y=d; 
for (k=1;k<=3;k++) 
{x=y% 10;g[x]++ ;y=y/10;} 
g[z/10]++ ;g[z% 10]++; 
for (t=0, x= 0;x<=9;x++) 
if (g[x]!=1) {t=1;break;} // 检 验 数 字 0~ 9 是否 各 出 现 一 次 
if (t==0) // 输 出 一 
{ printf(” %2d:%d%d+%d%d",++n,a,b,z,c); 
printf("-%dX%d=%d ",d,e,f); 
if (n% 2==0) printf ("\n"); 


// 计 算 z, 若 z 非 2 位 则 返回 


cont inue; 


//5 个 一 位 数 给 g 数 组 赋值 


// 分 离 d 的 3 个 数字 给 g 数组 统计 
// 分 离 z 的 2 个 数字 给 g 数 组 统计 


} 
printf(” 共 以 上 %d 个 完美 综合 运算 式 1\n",n); 
} 


3. 程序 运行 示例 与 变通 


90 


1:4`6+72 二 9- 513X80 
3:9°3+ 48 二 全 105X7=2 
5:2`9+ 78 二 130X 生 5 
7:2°9+ 80 二 5174X3=6 
9:9°3+50 二 2-187X46 
11:6`3+ 54 二 9- 107X2=8 


2:5°4+ 78~6- 319X2=0 
4:9°3+ 648- 105X7=2 
6:9°3+ 64 二 2- 108X7=5 
8:5°4+ 18 二 9- 207X 3=6 
10:5°4+ 96 二 8- 210X 3=7 
12:8°3+ 64 二 2- 107X5=9 


共 以 上 12 个 完美 综合 运算 式 ! 


我 们 看 到 ,输出 12 个 完美 综 


合 运算 式 , 式 中 不 重复 含有 0 一 9 这 


这 10 个 数字 ,设置 有 加 
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减 乘除 与 乘 方 五 则 运算 ,优雅 地 展示 出 数 式 之 美 。 
以 上 设计 中 应 用 a 自 乘 b 次 实现 ab, 这 样 处 理 是 简便 的 。 同 时 ,应 用 g 数组 进行 数 
字 统 计 来 检验 是 否 存在 有 重复 数字 ,检测 手段 颇 为 新 颖 。 
变通 : 把 数字 0,1,2,…,9 这 10 个 数字 分 别 填 入 以 下 含 加 、 减 , 乘 \ 除 与 乘 方 的 综合 
运算 式 中 的 10 个 口中 (约定 0,1 要 求 同 前 ) ,请 修改 以 上 程序 ,使 得 下 式 成 立 。 
D+ I 寺 回 = x0D= (9) 
D+ | l= (10) 
请 问 : 这 一 综合 运算 式 共有 多 少 种 不 同 的 填 人 法 ? 


3.6 变 序 数 和 式 


变 序 数 是 由 同一 组 数字 通过 不 同 排列 所 得 的 位 数 相同 的 整数 。 

例如 ,由 1,0,2,2 这 4 个 数字 通过 不 同 排列 组 成 的 4 位 整数 1022,1202,1220,2012， 
2021,2102,2120,2201,2210 等 都 是 变 序数 ,也 称 同 基 因数 。 而 0122 实际 上 只 是 一 个 3 
位 数 , 并 不 含 0, 不 属于 上 述 诸 数 的 变 序数 范畴 。 

本 节 探 索 构 建 涉及 变 序数 的 新 颖 数 式 一 一 变 序数 和 式 。 

例如 ,2385 十 2853 王 5238 就 是 一 个 4 位 变 序数 和 式 , 式 中 3 个 4 位 数 都 是 由 数字 2， 
3,5,8 通过 不 同 排列 生成 ,是 变 序数 关系 。 

先 看 一 个 简单 的 3 位 变 序 数 和 式 填 数 题 。 

【问题 】 在 1 一 9 这 9 个 数字 中 请 选择 3 个 不 同 的 数字 ,把 所 选 的 3 个 数字 以 某 种 不 
同 顺序 分 别 填 和 人 以 下 和 式 中 的 3 个 3 位 数 中 ,使 和 式 成 立 。 
十 口 三 回 
也 就 是 说 , 式 中 3 个 3 位 数 的 组 成 数字 是 相同 的 ,只 是 排列 顺序 不 同 ,这 3 个 3 位 数 是 变 
序数 关系 。 

共有 多 少 个 不 同 的 3 位 变 序 数 和 式 ? (约定 式 左 第 1 个 3 位 数 小 于 第 2 个 3 位 数 。) 

【思考 】 从 进位 次 数 确 定式 右 3 位 数 的 数字 和 人 和 手 。 

因为 和 式 中 的 3 个 3 位 数 是 由 同样 数字 经 不 同 排列 组 成 ,可 见 式 左 的 数字 之 和 为 式 
右 的 数字 和 的 2 倍 。 

(1) 确定 进位 次 数 与 式 右 数字 和 。 

式 左 求 和 时 每 一 次 进位 ,所 进 的 1 相当 于 10, 求 和 结果 的 数字 和 会 减少 9。 

例如 , 数 式 18 十 39 王 57 中 , 式 右 的 数字 和 为 12, 式 左 的 数字 和 为 21, 式 右 比 式 左 的 数 
字 和 要 小 9, 就 是 求 和 运算 的 一 次 进位 8 十 9 二 17 造成 的 。 

车 和 式 左边 求 和 过 程 中 有 1 次 进位 , 则 式 右 的 数字 和 为 9。 

车 和 式 左边 求 和 过 程 中 有 2 次 进位 , 则 式 右 的 数字 和 为 18。 

车 和 式 左边 求 和 过 程 中 有 3 次 进位 , 则 式 右 为 4 位 数 ,显然 不 可 能 出 现 。 

(2) 确定 3 个 数字 。 

@ 若 式 右 的 数字 和 为 9, 则 3 个 数字 只 可 能 为 以 下 3 种 情形 : 1,2,6;1,3,5;2,3,4; 
均 不 能 组 成 和 式 。 
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@ 若 式 右 的 数字 和 为 18, 则 3 个 数字 只 可 能 为 以 下 6 种 情形 : 1,8,9;2,7,9;3,6,9; 
3,7,8;4,6,8; 均 不 能 组 成 和 式 。4,5,9; 可 组 成 和 式 459 十 495 一 954。 
因而 得 唯一 的 3 位 变 序 数 和 式 : 459 十 495 一 954。 

【编程 拓展 】 

定义 : 由 mn 位 变 序数 整数 u,v,s 组 成 的 和 式 u 十 v==s 称 为 n 位 变 序数 和 式 。 

例如 ,1089 十 8019 一 9108 是 一 个 4 位 变 序 数 和 式 ,10728 十 17082 一 27810 是 一 个 5 位 
变 序数 和 式 。 

为 了 避免 交换 u,v 中 的 部 分 数据 造成 重复 (如 上 5 位 式 中 28 与 82 交换 ) ,约定 一 个 
和 s 只 对 应 一 个 变 序数 和 式 。 

同时 ,为 了 消除 一 个 n 位 变 序 数 和 式 中 的 3 个 数 尾部 同时 加 一 个 0 后 成 为 n 十 1 位 变 
序数 和 式 的 近亲 衍生 现象 (例如 10890 十 80190 二 91080) ,要 求 变 序数 和 式 u+v=s 中 uv 
的 个 位 数字 不 能 同时 为 0。 

对 于 给 定 的 整数 n(2<n<9) ,搜索 并 输出 所 有 n 位 变 序 数 和 式 u 十 v= 二 s( 约 定 u<v) 。 


1. 设计 要 点 

为 便于 比较 和 式 中 的 u,v,s 是 否 为 变 序数 ,设置 数组 f,g,h 分 别 统计 这 3 个 整数 中 
的 数字 频数 。 

(1) 式 中 3 数 都 为 9 的 倍数 。 

变 序数 和 式 u 十 v==s 中 , 式 左 求 和 必 存 在 进位 。 

如 果 左 边 求 和 不 存在 进位 , 则 右边 s 的 个 位 数字 等 于 左边 u,v 的 个 位 数字 之 和 ;右边 
s 的 十 位 数字 等 于 左边 u,v 的 十 位 数字 之 和 ;……。 显 然 与 u,v,s 是 变 序 数 相 矛 盾 。 

左边 求 和 存在 进位 ,每 进 一 位 其 和 的 数字 之 和 减少 9。 而 u,v,s 是 变 序数 , 式 左边 的 
数字 和 始终 为 右边 数字 和 的 2 倍 ,因而 如 果 存 在 变 序 数 和 式 u 十 v 一 s, 和 式 中 的 数 u,v，,s 
的 n 个 数字 和 必 为 9 的 倍数 , 即 和 式 中 的 数 u,v's 都 为 9 的 倍数 。 

(2) 枚 举 循环 设置 。 

通过 循环 计算 最 小 的 n 位 整数 t, 然 后 设置 n 位 数 su 的 枚 举 循环 。 

注意 到 右边 和 s 的 高 位 至 少 为 2, 且 为 9 的 倍数 ,设置 

Be T= 

步 长 为 9(s 十 一 9) 。 

注意 到 左边 u 为 9 的 倍数 且 u<v, 设 置 

一 化 

步 长 为 9Cu 十 一 9) 。 

显然 v 一 s 一 u。 

根据 要 求 , 若 mod(u,10)= 二 0 and mod(Cv,10) 王 0, 即 u,v 个 位 数字 同时 为 0 则 返回 。 

这 样 设计 循环 ,可 以 确保 u,v,s 都 是 n 位 整数 , 且 成 立 等 式 u 十 v 二 s, 其 中 u,v 的 个 
位 数字 不 同时 为 0。 

(3) 检测 变 序数 。 

对 所 得 3 个 n 位 整数 u,v,s( 分 别 赋值 给 dl ,d2,d3 ,以 保 分 解数 字 时 u,v,s 不 变 ) , 通 
过 mn 次 循环 分 离 其 n 个 数字 c, 并 分 别 用 数组 f,g,h 统计 数字 < 的 频数 。 
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在 j(0 一 9) 循 环 中 比较 3 数组 的 值 ,车 f[j] 取 gL[j] 或 f[j] 隆 h[jj ,说明 3 个 整数 uv,s 
中 至 少 存在 一 个 数字 不 同 , 非 变 序数 ,返回 。 

(4) 输出 变 序 数 和 式 。 

车 所 检测 的 3 个 整数 u,v,s 是 变 序数 , 则 输出 一 个 n 位 变 序数 和 式 u 十 v=s, 用 w 统 
计 个 数 。 同 时 退出 u 循环 ,以 确保 一 个 s 值 只 输出 一 个 和 式 。 
注意 到 当 n>6 时 变 序数 和 式 数 目 太 大 (例如 ,n= 二 6 时 达 9104 个 6 位 变 序数 和 式 )， 
因此 约定 只 输出 10 个 变 序数 和 式 ( 必 要 时 可 修改 ) 。 


2. 程序 设计 


// 搜 索 n 位 变 序数 和 式 
# include < stdio.h> 


voidmain0 
{ int b,c, j,k,n, Ff[10], g[10],h[10]; 
long d1, d2, d3,t,u vs,wi 
printf(” 请 输入 位 数 : ") ;scanf ("%d", &n); 


wo0; 
for (t=1,k=1;kC=n- 1;kt+) t=t* 10; // 计 算 最 小 的 mn 位 整数 t, 高 位 为 1 余 为 0 
for(s=2x t+7;s<=10x t-1;s+=9) // 循 环 枚 举 n 位 数 s,u 
for (u=t+8;u<= (s- 1)/2;u+ =9) //s,u 循 环 初 值 与 步 长 均 定 为 9 
{ v=s-u; 
if(u% 10==0 && v% 10==0 || u> v) 
continue; // 消 除 近亲 衍生 现象 


d1= uid2= v;d3= s;b=0; 
for (j=0;j<=9;j++) f[j]=g[j]=h[j]=0; 
for (j=1;j<=n;j++) // 分 离 并 统计 u,v,s 的 各 个 数字 
{ c=d1%10;f[c]++ ;d1= d1/10; 
c=d2% 10;g[c]++ ;d2= d2/10; 
c= d3% 10;h[c]++ ;d3= d3/10; 
} 
for (j=0;j<=9;j++) 
if(f[j]!=gD] || fD]!=hD]) 
{b=1;break;} // 检 验 u,v,s 是 否 变 序数 
if(b==0) 
{ printf(” %3d: %ldt%ld=%1d",++w, u,v,s); 
if (w% 3==0) printf ("\n"); 
if (n> 6 && w==10) return; 
u= s;break; // 对 一 个 s, 输 出 一 个 和 式 即 退 出 


} 
printf(” 共有 以 上 % 1d 个 %d 位 变 序数 和 式 。\n",w,n); 
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3. 程序 运行 示例 与 说 明 
请 输入 位 数 : 3 
1: 459+ 495=954 ”共有 以 上 1 个 3 位 变 序 数 和 式 。 
请 输入 位 数 : 4 
1: 1269+ 1692= 2961 2: 2439+ 2493= 4932 3: 1503+ 3510= 5013 
4: 2502+ 2520= 5022 ”5: 1530+ 3501= 5031 6: 2385+ 2853= 5238 
7: 2538+ 3285= 5823 8: 1476+ 4671= 6147 9: 1746+ 4671= 6417 
10: 1467+ 6147=7614 11: 1467+ 6174=7641 12: 2853+ 5382= 8235 
13: 3285+ 5238=8523 14: 4095+ 4950=9045 15: 1089+ 8019=9108 
16: 1089+ 8091=9180 17: 4392+ 4932= 9324 18: 4095+ 5409=9504 
19: 4599+ 4995= 9594 20: 2691+ 6921= 9612 21: 4698+ 4986= 9684 
22: 4797+ 4977= 9774 23: 4896+ 4968= 9864 24: 4959+ 4995=9954 
共有 以 上 24 个 4 位 变 序数 和 式 。 


考察 以 上 的 输出 结果 ,唯一 的 3 位 变 序 和 式 459 十 495 一 954 中 含有 由 数字 4,5,9 组 
成 的 最 大 数 954 与 最 小 数 459, 因 而 有 954 一 459 二 495。 

在 24 个 4 位 变 序 和 式 中 同时 含有 由 数字 组 成 最 大 数 与 最 小 数 的 唯 有 1467 十 6174 一 
7641, 因 而 有 7641 一 1467 二 6174。 

以 上 两 个 特例 的 差 495 与 6174 即 为 第 9 章 将 要 探讨 的 黑洞 数 。 

有 如 以 上 两 特例 ,通过 移 项 变 号 , 变 序 数 和 式 可 以 转化 为 “ 变 序数 差 式 ”。 

事实 上 , 变 序数 和 式 还 可 以 突破 “整数 ”的 限制 , 即 在 变 序数 和 式 的 u,v,s 的 相同 位 置 
加 “小 数 点 ”后 仍 是 变 序数 和 式 。 

例如 ,在 变 序数 和 式 459 十 495 王 954 中 的 相同 位 置 加 小 数 点 得 45. 9 十 49. 5 二 95. 4， 
of 95 二 9.54 等 ,显然 也 为 变 序数 和 式 。 

当 n 比较 大 时 (例如 n 三 6), 搜索 比较 困难 。 降 低 算法 的 复杂 度 是 一 个 艰难 而 有 现实 

意义 的 课题 。 


3.7 逆序 与 变 序 倍 积 式 


本 节 在 构建 新 颖 的 逆序 倍 积 式 基础 上 ,拓展 构建 奇妙 的 变 序数 倍 积 式 。 
3.7.1 逆序 倍 积 式 


首先 看 一 个 简单 的 逆序 倍 积 式 趣 题 。 
车 a,b,c,d 代表 0~9 中 的 4 个 不 同 数字 ,由 这 4 个 不 同 数字 组 成 的 4 位 数 abcd 及 其 
逆序 数 dcba 满足 


abcd Xx 4 = dcba (1) 
这 里 ,4 位 数 abcd 的 4 倍 积 是 abcd 的 逆序 数 dcba, 式 (1) 简 称 4 倍 逆序 倍 积 式 。 
【问题 1】 试探 求 4 倍 逆序 倍 积 式 . 即 具体 求 出 所 有 满足 式 (1) 的 各 个 数字 。 
【探求 】 可 根据 等 式 的 特性 逐 位 调试 求解 。 
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(1) 首先 确定 数字 d,a。 

显然 1 三 a2( 若 a 宇 3, 则 其 4 倍 积 为 5 位 数 ,矛盾 ) ,同时 有 d 宇 4。 

注意 到 数字 a 为 4Xd 积 的 个 位 数字 。 

若 d= 二 4,6,7,9, 由 a 为 4Xd 积 的 个 位 数字 ,分 别 推 得 a 二 2, 巴 盾 ; 

若 d==5, 推 得 a 一 0, 矛盾 。 

因而 推 得 d 一 8,a 一 2。 

(2) 由 2bc8X4 一 8cb2 确定 数字 b,c。 

以 上 乘积 式 中 的 数字 b,c 显然 应 满足 以 下 两 式 。 
mod(4c 十 3.10) 一 b 2 
4b 十 [(4c 十 3)/10] = c (这 里 [xj] 表示 x 的 整数 部 分 ) 《3 

注意 到 4c 十 3 为 奇数 ,由 式 (2) 可 知 b 为 奇数 。 

由 式 (3), 若 b 宇 3, 则 c 宇 12, 矛 盾 。 

因而 推 得 b=1,c=7。 

综 上 得 唯一 4 倍 逆序 倍 积 式 


2178 X 4 = 8712 (4) 

【问题 2】 拓展 4 位 逆序 倍 积 式 到 n(n 二 4) 位 。 

给 定位 数 nCn>4),n 位 整数 m( 人 允许 有 重复 数字 ) 的 4 倍数 是 整数 m 的 逆序 数 , 试 写 
出 n 位 4 倍 逆序 倍 积 式 。 

【思考 】 从 寻求 “ 插 9" 位 置信 手 。 
注意 到 78X4==312 的 进位 数 为 3,9X4=36 的 进位 数 也 为 3, 两 进位 数 相 同 ,因而 在 
乘积 式 2178X4==8712 的 4 位 数 正中 “ 插 9”, 可 得 5 位 4 倍 逆序 倍 积 式 

21978 X 4 = 87912 (5) 

因为 78X4 一 (3)12,4X9 十 (3) 王 (3)9( 式 中 括号 内 的 数字 为 进位 数字 ) ,显然 不 影响 
积 的 低 2 位 为 12, 积 正中 出 现 9, 也 不 影响 进位 数 3, 即 不 影响 积 的 高 2 位 为 87。 

这 一 “ 插 9” 特 性 可 以 复制 , 即 在 4 倍 逆序 倍 积 式 的 4 位 数 正中 添加 若干 9, 可 得 相应 
多 位 4 倍 逆序 倍 积 式 (允许 出 现 相同 数字 9)。 例 如 ,有 


219978 X 4 = 879912 (6) 
219…978 X4 王 879…912 (7) 


结论 : 式 (5) 一 式 (7) 即 nCn>4) 位 4 倍 逆序 倍 积 式 , 式 左边 整数 的 高 2 位 为 21, 低 2 
位 为 78, 中 间 插 入 n 一 4 个 数字 9。 
很 有 趣 的 是 这 里 的 位 数 n 的 上 限 没有 限制 。 例 如 , 当 n=100 时 ,中 间 为 96 个 数字 9 。 
【引申 】 探求 9 倍 逆序 倍 积 式 。 
把 式 (1) 中 的 倍数 4 改 为 9, 可 构成 以 下 新 的 逆序 倍 积 式 : 
abcd X9 = dcba (8) 
因为 倍数 为 9, 显然 a 一 1,d 一 9。 
同时 ,车 b 宇 2, 则 积 变 为 5 位 数 ; 若 b=1, 与 a 相同 。 因 此 推 得 b= 二 0,c 二 8。 式 (8) 的 
结果 即 为 以 下 9 倍 逆序 倍 积 式 : 
1089 X 9 = 9801 (9) 
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同样 ,可 在 9 倍 逆序 倍 积 式 的 4 位 数 正中 也 可 插 9, 可 得 相应 多 位 9 倍 逆序 倍 积 式 : 
10989X9 = 98901 (10) 
109…989 X 9 = 989…901 (11) 
思考 : 为 什么 只 存在 4 倍 与 9 倍 逆序 倍 积 式 ? 


3.7.2 变 序 倍 积 式 


注意 到 变 序 数 是 逆序 数 的 拓展 ,因而 可 把 逆序 倍 积 式 拓 展 为 变 序 倍 积 式 。 

例如 ,2178 的 逆序 数 是 8712 ,唯一 :而 2178 的 变 序 数 ( 即 由 2,1,7,8 经 任意 排列 的 整 
数 ) 可 为 2187,8721,7182 等 , 达 41 二 24 个 之 多 。 

变 序数 中 允许 有 重复 数字 ,如 112 的 逆序 数 是 211, 唯 一 ;而 112 的 变 序数 ( 即 由 2 个 
1 与 1 个 2 经 任意 排列 的 整数 ) 可 为 121,211,112 等 ,其 中 121 为 左右 对 称 。 

【编程 拓展 】 

定义 ; 若 n 位 整数 u 的 k(2 受 k 委 9) 倍 积 s=uxk 是 u 的 变 序数 , 则 称 数 式 uXk=s 
为 一 个 n 位 变 序 倍 积 式 。 

例如 ,1359X7=9513 是 一 个 4 位 变 序 倍 积 式 ,10449X9 二 94041 是 一 个 5 位 变 序 倍 
积 式 。 以 上 探讨 的 4 倍 与 9 信道 序 倍 积 式 当 然 是 变 序 倍 积 式 的 特例 。 

同时 ,为 了 避免 出 现 类 似 13590 X7=95130 的 “近亲 衍生 ”现象 ,约定 变 序 倍 积 式 
uXk=s 中 必 的 个 位 数字 不 为 数字 0。 

输入 整数 n(2 三 n<9) ,搜索 并 输出 所 有 n 位 变 序 倍 积 式 。 

(1) 设计 要 点 。 

设置 f,h 数组 存储 式 中 n 位 整数 us 的 各 个 数字 的 频数 ,便于 比较 是 否 为 变 序 数 。 

若 k 宇 10, 积 s 二 uXk 比 u 多 一 位 ,不 可 能 为 变 序数 ,显然 倍数 k 满足 1 二 k 二 10。 

应 用 循环 求 出 最 小 n 位 整数 t, 在 此 基础 上 设置 k(2 一 9) 与 uCt 一 (10x*t 一 1)/k) 二 重 
循环 ,确保 u 与 倍 积 s=uxk 均 为 n 位 整数 。 

若 u 的 个 位 数字 为 0, 则 返回 。 

分 离 u,s 并 用 f,h 数组 统计 其 数字 频数 ,检测 u,s 是 否 由 同样 的 数字 组 成 。 若 检测 
uss 为 变 序数 关系 , 即 us 的 组 成 数字 完全 相同 , 则 输出 n 位 变 序 倍 积 式 , 并 应 用 变量 w 
统计 其 个 数 。 

(2) 程序 设计 。 

// 搜 索 n 位 变 序 倍 积 式 

# include < stdio.h> 

void main0 

{ int b,c, j,k,n,f[10],h[10]; 
long d1, d3, t, s, u, w= 0; 
printf(” 请 输入 位 数 : ") ;scanf("%d",&n) ; 


for (t=1,k=1;k<=n- 1;k++) t=tx10; // 计 算 最 小 的 n 位 整数 t 
for (k=2;k<=9;k++) 

for (u=t;u<= (10* t—1)/k;ut +) // 枚 举 n 位 加 数 u 

{ if(u% 10==0) continue; // 消 除 衍生 现象 
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s=kx* u;d1=u;d3= s;b=0; 
for(j=0;j<=9;j++) f[j]=h[j]=0; 
for (j=1;j<=n;j++) // 分 离 并 统计 u, s 的 各 个 数字 
{ c=d1%10;f[c]++ ;d1=d1/10; 
c= d3% 10;h[c]++ ;d3= d3/10; 
} 
for (j=0;j<=9;j++) // 检 验 积 us 是否 变 序数 
if (fF[j]!=h[j]) {b=1;break;} 
if(b==0) 
{ printf(” %3d: %IdX%d=%1d",++w,u,k,s); 
if(w% 2==0) printf ("\n"); 
} 
} 
printf("\n 共有 以 上 % 1d 个 %d 位 变 序 倍 积 式 \n",w,n); 


(3) 程序 运行 示例 与 说 明 。 


运行 程序 发 现 , 不 存在 3 位 变 序 倍 积 式 。 
以 上 输出 的 第 4 个 与 第 7 个 变 序 倍 积 式 即 前 面 探 讨 的 逆序 倍 积 式 ,可 见 道 序 倍 积 式 
是 变 序 倍 积 式 的 特例 。 


以 上 输出 的 最 后 一 个 解 10989X9= 二 98901 是 4 位 解 1089X9=9801 实施 “ 插 9” 所 得 ， 
同样 第 24 个 解 21978X4 二 87912 是 4 位 解 2178X4 二 8712 实施 “ 插 9” 所 得 。 

放宽 到 变 序 ,“ 插 9” 的 位 置 可 以 更 为 灵活 ,只 要 满足 “ 插 9” 的 条 件 即 可 。 例 如 ,在 4 位 
逆序 倍 积 式 1089X9 王 9801 的 十 位 数 处 实施 * 插 9”( 可 知 满足 “ 插 9” 条 件 ) ,可 得 以 上 输出 
中 第 40 个 5 位 变 序 倍 积 式 10899X 9 二 98091。 
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3.8 ”对称 运 算式 


对 称 运 算式 是 含有 指定 运算 且 等 号 左右 两 边 的 数字 与 运算 符 完 全 对 称 的 数学 等 式 。 

构建 对 称 运算 式 是 程序 设计 一 项 新 颖 而 有 趣 的 课题 ,可 以 揭示 出 人 工 推理 所 无 法 实 
现 的 数学 对 称 美 。 

本 节 在 人 工 打 造 “2 十 2 位 对 称 乘 积 式 ”基础 上 ,从 广度 拓展 构建 <“m 十 n 位 对 称 乘积 
式 ”, 然 后 从 深度 拓展 到 含有 加 ` 减 , 乘 、 除 四 则 运算 的 “对 称 四 则 运算 式 ”, 最 后 拓展 至 含有 
乘 方 ^ 的 “对 称 综合 运算 式 ”。 

这 一 拓展 链 用 以 下 的 数 式 链表 述 更 为 清晰 。 

12X63 二 36X21 (2 十 2 位 对 称 乘积 式 原型 ,可 简单 推出 ) 

过 6509X381472 二 274183X9056 (广度 拓展 至 m 十 n 位 对 称 乘 积 式 ) 

=>102 十 69X8 二 3 一 47 二 74 一 3 二 8X96 十 201 (深度 拓展 至 对 称 四 则 运算 式 ) 

过 4^5 一 81X72 二 3 十 906 二 609 十 3 二 27X18 一 5M (深度 拓展 至 对 称 综合 运算 式 ) 


3.8.1 对 称 乘 积 式 
首先 构建 简单 的 2 十 2 位 对 称 乘积 式 , 再 编程 逐步 引 向 深入 。 
若 互 不 相同 的 4 个 数字 ab,c,d 组 成 4 个 2 位 数 ( 其 中 ab 是 十 位 数字 为 a, 个 位 数字 


为 b 的 2 位 数 简写 ,下 同 ) ,满足 等 式 
ab Xecd 王 dcXba (el 


该 式 称 为 2 十 2 位 对 称 乘积 式 。 
【问题 】 对 称 乘积 式 (1) 共 有 多 少 个 ? (约定 2 位 数 ab 是 式 中 4 个 2 位 数 中 最 小 的 )。 
【探求 】 关键 在 于 找 出 式 中 4 个 数字 之 间 的 关系 。 
由 2 位 数 ab 是 式 (1) 中 4 个 2 位 数 中 最 小 的 , 即 得 数字 a 是 式 中 4 个 数字 中 最 小 的 。 
简写 的 式 (1) 写 为 运算 式 即 为 
(10a 十 b)(10c 十 d) = (10b 十 a)(10d 十 c) (2) 
化 简 得 
axc=bxd C3 
记 aXc==bXd=t, 注 意 到 式 (3) 中 4 个 数字 互 不 相同 , 即 整数 t 可 分 解 有 4 个 一 位 因数 
(如 果 t 为 一 位 数 ,因数 也 包括 1 与 b) ,因而 t+ 可 取 6,.8,12.18,24 共 5 种 情形 。 
(1) 取 t=6。 
由 式 (3) 可 知 a 二 1,c 二 6, 因 为 b,d 没有 规定 大 小 , 则 b= 二 2,d 二 3 或 b 一 3,d 二 2。 
以 上 两 组 取 值 可 构建 以 下 两 个 对 称 乘积 式 : 
12X63=36X21; 13X62=26X31。 
(2) 取 t=8。 
由 式 (3) 可 知 a 二 1,c 二 8, 因 为 b,d 没有 规定 大 小 , 则 b= 二 2,d 二 4 或 b=4,d==2。 
以 上 两 组 取 值 可 构建 以 下 两 个 对 称 乘积 式 : 
12X84 一 48X21; 14X82 一 28X41。 
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(3) 取 t=12。 

由 式 (3) 可 知 a 二 2,c 二 6, 因 为 b,d 没有 规定 大 小 , 则 b==3,d 二 4 或 b==4,d==3。 
以 上 两 组 取 值 可 构建 以 下 两 个 对 称 乘积 式 : 

23X64=46X32; 24X63 一 36XX42。 

(4) 取 t=18。 

由 式 (3) 可 知 a 一 2,c 一 9, 因 为 b,d 没有 规定 大 小 , 则 b==3,d 二 6 或 b=6,d=3。 
以 上 两 组 取 值 可 构建 以 下 两 个 对 称 乘积 式 : 

23X96 一 69X32; 26X93 一 39X62。 

(5) 取 t=24。 

由 式 (3) 可 知 a 一 3,c 一 8, 因 为 b,d 没有 规定 大 小 , 则 b 一 4,d 王 6 或 b 一 6,d 一 4。 
以 上 两 组 取 值 可 构建 以 下 两 个 对 称 乘 积 式 : 

34X86 一 68X43; 36X84=48X63。 

因而 得 到 满足 式 (1) 的 2 十 2 位 对 称 乘积 式 共 以 上 10 个 。 

【编程 拓展 】 把 对 称 乘 积 式 从 2 十 2 位 拓展 到 m 十 n 位 。 

把 以 下 含 乘 运算 xX 的 等 式 


aXxb 王 blXal (4) 
称 为 m 十 n 位 对 称 乘积 式 , 其 中 a 是 一 个 指定 m 位 整数 ,b 是 一 个 指定 n 位 整数 , 且 a,b 的 
m 十 n 个 数字 中 没有 重复 数字 ; 式 右边 al 是 a 的 逆序 数 ,bl 是 b 的 逆序 数 。 
输入 正 整 数 m,n(2 三 m 二 n,m 十 n 夺 10) ,探求 并 输出 所 有 m 十 n 位 乘积 对 称 式 ( 为 不 
至 重复 ,约定 整数 a 是 数 式 中 4 个 整数 中 的 最 小 整数 ) 。 
例如 , 式 (5) 是 一 个 4 十 6 位 对 称 乘积 式 。 
6509 X 381472 = 274183 X 9056 (5) 
我 们 看 到 , 式 两 边 不 重复 含有 数字 0 一 9 这 10 个 数字 , 且 式 两 边 的 所 有 数字 与 运 
算 符 号 都 是 关于 = 对 称 。 这 是 对 “2 十 2 位 对 称 乘 积 式 ”广度 的 拓展 ,突显 了 数学 的 对 
称 美 。 
作为 等 式 ,两 边 的 运算 结果 当然 相同 。 优 美的 4 十 6 位 对 称 乘积 式 (5) 是 如 何 被 发 现 
的 ? 靠 人 工 推算 是 困难 的 ,借助 程序 设计 是 合适 的 选择 。 


1. 程序 设计 要 点 
注意 到 4X3 二 3X4 是 平凡 情形 下 的 乘积 对 称 式 , 这 里 要 求 2 全 mn; 而 在 十 进 制 中 
只 有 10 个 数字 ,自然 有 m 十 n 三 10 的 限制 。 

为 便于 比较 是 否 存在 重复 数字 ,设置 h 数组 存储 式 中 的 m 十 n 个 数字 。 

(1) 设置 枚 举 循环 。 

根据 输入 的 整数 m,n 通过 循环 相 乘 求 得 最 小 的 m 位 整数 tl 与 最 小 的 n 位 整数 t2， 
分 别 以 tl,t2 作为 枚 举 整 数 ab 循环 的 初始 值 。 

通过 取 整 与 求 余 运 算 分 离 出 a 的 m 个 数字 存放 到 bh 数组 的 hL1] 一 hLm], 并 利用 这 
些 分 离 数字 计算 出 a 的 逆序 数 al 。 

同样 ,分离 出 b 的 mn 个 数字 存放 到 h 数组 的 hm 十 1 一 hLm 十 o] ,并 计算 出 b 的 逆序 
数 bl。 
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(2) 条 件 检测 。 

根据 题 意 ,车 aXb 隆 al Xbl 或 a 不 是 式 中 4 个 整数 中 最 小 整数 , 则 直接 返回 试 下 
= 

否则 ,应 用 i,j 二 重 循环 比较 分 离 的 m 十 n 个 数字 是 否 有 相同 数字 。 

车 存在 相同 , 则 标注 t=1, 直接 返回 试 下 一 组 ; 

若 不 存在 相同 ,还 需 判 别 a 是 否 是 式 中 4 个 整数 中 最 小 者 。 

(3) 确保 式 中 整数 a 最 小 。 

为 确保 a 是 式 中 4 个 整数 中 最 小 者 , 需 进 行 以 下 检测 。 

当 m<n 时 ,满足 h[mj] 过 hL1](a 的 高 位 数字 要 小 于 个 位 数字 , 即 a<al); 

当 m= 二 n 时 ,满足 h[m] 过 h[1] 且 hf[mj] 过 hf[m 十 nj 且 h[mj 过 h[m 十 1j, 以 确保 a 二 
al 且 a<b 且 a<bl, 即 a 是 式 中 4 个 整数 中 最 小 者 。 

(4) 输出 m 十 n 位 对 称 乘 积 式 。 

通过 以 上 检测 ,打印 输出 m 十 n 位 乘积 对 称 式 , 并 用 变量 s 统计 解 的 个 数 。 

车 s 一 0, 输 出 “没有 找到 相应 乘积 对 称 式 ”。 


2. 程序 设计 


/搜索 mtn 位 对 称 乘 积 式 
# include < stdio.h> 
voidmain0 
{ long a,b,a1,b1, g,t1,t2; int i, j,k1,k2,m,n,s,t,h[11]; 
printf(” 确定 mn 位 ,请 输入 mn(m<=n): "); scanf("%d,%d",&m, &n); 
if==11| n==1 1| mn || m+n>10) 
{printf(” 请 重新 输入 m,n!") ;return; } 
s=0; 
for (t1=1, j=1;j<=m1;jt++) t1*=10; 
for (t2=1, j=1;j<=n-1;jt++) t2x=10; 
for (a=ti+1;a<=t1x 10- 1;at++) 
for b=t2+1;bC=t2* 10- 1;b++) 


{ if(a%10==0 || b% 10==0) continue; //a,b 个 位 为 零 时 返回 
g= ai;ial=0;k1=0; 
while(g>0) // 分 解 a 的 m 个 数字 ,生成 a 的 逆序 数 al 


{ki++ ;h[k1]= g% 10;g= g/10;a1= a1 * 10+ h[k1];} 

g=b;k2=k1;b1=0; 

while(g> 0) // 分 解 b 的 n 个 数字 ,生成 b 的 逆序 数 bl 
{ k2+ + ;h[k2]= g% 10;g= g/10;b1=b1 * 10+ h[k2];} 

ifh[m>h[] || ==n&& (hlm]> hlmtn] || hm>h[mr1))) 


cont inue; //a 非 最 小 时 返回 

if (a* bl= al1* b1) continue; // 积 式 不 成 立时 返回 

for (t=0, i=1;i<=mtn- 1;i++) 

for (j= i+1;j<=mtn;jt+) // 检 测 存在 相同 数字 时 t=1 
if (h[i]==h[j]) {t=1;break;} 

if (t==0) 
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{ printf(” %2d:%1dX%1d=%1dX%1d ",++s,a,b,b1,al); 
if(s%2==0) printf("\n"); 
} 
} 
if(s==0) printf(” 没有 找到 相应 乘积 对 称 式 。\n"); 
else printf(” 搜索 到 以 上 %d 个 相应 乘积 对 称 式 。\n", s); 
} 


3. 程序 运行 示例 与 分 析 


确定 mtn 位 ,请 输入 m,n(m<=n): 4,5 
1: 1572X 86394= 49368X 2751 2: 3516X 48972= 27984X 6153 
3: 3809X 65472= 27456X 9083 4: 4608X 27951= 15972X 8064 
搜索 到 以 上 4 个 相应 乘积 对 称 式 。 


运行 程序 输入 2,2, 即 得 前 面 推 得 的 10 个 2 十 2 位 对 称 乘积 式 。 
因 十 进 制 有 10 个 数字 ,输入 的 对 数 m 十 n 可 以 等 于 10, 只 是 搜索 速度 比较 慢 。 例 如 ， 
输入 m 二 4,n 二 6, 需 花 数 分 钟 搜索 ,可 得 上 述 介绍 的 唯一 4 十 6 位 对 称 乘 积 式 (5) 。 


3.8.2 对称 四 则 运算 式 


定义 : 把 含 加 (十 ) , 减 (一 )、 乘 (X)、 除 (二 ) 四 则 运算 的 等 式 
a be = l=—dexbltal (6) 
称 为 m 十 n 十 p 十 2 位 对 称 四 则 运算 式 , 其 中 c,d 是 两 个 大 于 1 的 一 位 正 整数 ,a 是 一 个 m 
位 整数 ,b 是 一 个 n 位 整数 ,e 是 一 个 p 位 整数 , 且 a,b,c,d,e 的 共 m 十 n 十 p 十 2 个 数字 中 
没有 重复 数字 ; 式 右 边 al ,bl ,el 分 别 是 a,b,e 的 逆序 数 。 例 如 : 
102 十 69X8 二 3 一 47 二 74 一 3 二 8 X96 十 201 wn 
就 是 一 个 3 十 2 十 2 十 2 位 共 9 位 的 对 称 四 则 运算 式 。 
输入 正 整 数 m,n,p(1 二 m 二 8,1 二 n 志 8,1 二 p 志 8,1 守 m 十 n 十 p 夺 8) ,探求 并 输出 所 有 
指定 的 m 十 n 十 p 十 2 位 对 称 四 则 运算 式 。 


1. 设计 要 点 
四 则 运算 对 称 式 中 , 按 通常 * 先 乘除 ,后 加 减 ”的 运算 规则 进行 运算 。 
注意 到 当 c 关 d 时 , 式 中 cd 与 dc 中 至 少 有 一 个 不 是 整数 ,会 直接 影响 式 中 = 成 
立 。 为 此 ,设计 时 巧妙 地 把 乘 (X ) 运 算 与 除 (二 ) 运 算 相 连 , 则 d 二 cXbl 名 blXxd 坟 c, 因 而 
式 左 的 bXc 二 dd 与 式 右 的 dcXbl 有 可 能 都 为 整数 。 

为 便于 比较 是 否 存在 重复 数字 ,设置 h 数组 存储 式 中 的 m 十 n 十 p 十 2 个 数字 。 

(1) 设置 枚 举 循环 ,分 离 数 字 并 计算 逆序 数 。 

根据 输入 的 整数 m,n,p 通过 相 乘 求 得 最 小 的 m 位 整数 贡 、 最 小 的 n 位 整数 t2、 最 小 
的 p 位 整数 t3 ,分 别 以 tt,t2,t3 作为 枚 举 a,b,e 循环 的 初始 值 。 

同时 建立 枚 举 一 位 正 整 数 的 c,d 循环 ,并 赋值 h[1]==c;h[2]==d。 

通过 取 整 与 求 余 运算 分 离 出 a 的 m 个 数字 存放 到 h 数组 的 hL3] 一 hbLm 十 2], 并 利用 
分 离 数 字 计 算出 a 的 逆序 数 al 。 
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分 离 出 b 的 n 个 数字 存放 到 h 数组 的 hm 十 3] 一 hL2 十 m 十 oj], 利 用 分 离 数 字 计算 出 
b 的 逆序 数 bl 。 

同样 ,分离 出 e 的 p 个 数字 存放 到 h 数组 的 hLm 十 n 十 3] 一 hL2 十 m 十 n 十 p]; 利 用 分 
离 数字 计算 出 e 的 逆序 数 el 。 

(2) 条 件 检测 。 

车 a%10 二 0, 或 bp%10= 二 0, 或 e%10 二 0, 导 致 逆序 数位 数 变 少 ,直接 返回 试 下 一 组 。 

为 方便 计算 ,检测 (bx c) 是 否 为 d 的 倍数 ,及 (dx bl) 是 否 为 c 的 倍数 ,只 要 有 一 个 不 
是 , 则 直接 返回 试 下 一 组 ;否则 计算 变量 bcd 二 bx c/d, 变 量 dbc 一 dx* bl/c。 

应 用 i,j 二 重 循环 比较 分 离 的 m 十 n 十 p 十 2 个 数字 ( 先 已 赋值 给 h 数组 ) ,确定 是 否 存 
在 相同 数字 : 

若 存在 相同 , 则 标注 t==1, 不 作 打印 ; 若 不 存在 相同 ,还 需 检测 是 否 交换 重复 。 

(3) 避免 交换 重复 。 

例如 ,102 十 69X8 二 3 一 47 一 74 一 3 二 8X96 十 201 是 一 个 3 十 2 十 2 十 2 位 四 则 运算 对 
称 式 。 

把 其 中 的 69X8 二 3 与 3 二 8X96 交换 得 102 十 96X3 二 8 一 47= 二 74 一 8 二 3X69 十 201 
认为 是 同一 对 称 式 。 

对 于 以 上 二 式 , 把 47 与 74 交换 又 可 得 两 个 对 称 式 。 这 些 因 交换 而 得 的 对 称 式 可 以 
认为 是 同一 对 称 式 。 为 了 避免 这 些 因 交换 而 造成 的 重复 ,增加 条 件 检测 : 车 b 二 bl 或 e> 
el1, 则 返回 ,以 确保 对 称 式 中 b 二 bl 且 eel。 

(4) 输出 m 十 n 十 p 十 2 位 对 称 四 则 运算 式 。 

作 打 印 输出 ,并 用 变量 s 统计 解 的 个 数 。 

最 后 , 若 s 二 0 则 输出 “没有 找到 要 求 的 四 则 运算 对 称 式 ”。 


2. 程序 设计 


// 搜 索 对 称 四 则 运算 式 atbX cd-e=e1- dcXb1+al 
// 其 中 整数 a 为 m 位 ,b 为 n 位 ,e 为 p 位 
# include < stdio. h> 
voidmain0 
{ long a,b,e,c1,d1,e1,g,a1,b1,tl,t2,t3,bcd, dbc; 
int c, d, i, j,k, k1, k2, k3, t,m, n, p, s, h[11]; 
printf(" 请 输入 m,n,p(mtntp<9): "); scanf("%d,%d,%d",&m,&n, &p) ; 


s=0; 

for (t1=1, j=1;j<=m1;j++) t1=t1x 10; // 计 算 最 小 m 位 整数 t1 
for (t2=1,j=1;j<=n-1;j++) t2= t2* 10; // 计 算 最 小 n 位 整数 t2 
for (t3=1,j=1;j<=p-1;j++) t3=t3x 10; // 计 算 最 小 p 位 整数 t3 


for (a=ti+1;ac=t1x 10-1;a++) 
for (b= t2+ 1;b< = t2x 10-1;b++) 
for(e=t3+1;eC=t3x* 10- 1;e++) 


for (c=2;c<=9;c++) // 设 置 5 重 枚 举 实施 枚 举 
for(d=2;d<=9;d++) 
{ if(a%10==0 || b% 10==0 || e% 10==0) continue; // 筛 除 个 位 为 0 的 a,b,e 
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Ea;al=0;h[1]=c;h[2]=d;k{=2:; 

while(g> 0) // 分 解 a 数字 ,al 为 a 逆序 数 
{ki++ ;h[k1]=g% 10;g= g/10;a1=a1 * 10+ h[k1];} 

k2= k1;g= bib1= 0; 

while(g>0) /分解 b 数字 ,b1 为 b 逆序 数 
{ k2++ ;h[k2]= g% 10;g= g/10;b1=b1 * 10+ h[k2];} 

k3= k2;g= e;e1=0; 


while(g>0) // 分 解 e 数 字 ,e1 为 e 逆序 数 
{k3++ ;h[k3]= g% 10;g= g/10;e1=e1 * 10+ h[k3] 
if (b> b1 || e> e1) continue; // 确 保 bKb1 且 ee1 
if(bx c)%d>0 || (dx b1)%c>0) continue; // 确 保 bcd 与 dbc 为 整数 
bed=b* c/d; dbc= dx* bl/c; 
if (at bcd- e!= e1- dbc+ a1) continue; // 检 验 是 否 满足 等 式 
for (t=0, i=1;i<=mt nt p+ 1;i++) 
for(j=i+1;j<=2+mtntp;j++) // 检 验 是 否 存在 重复 数字 
if (h[i]==h[j]) {t=1;break;} 
if (t==0) // 满 足 条 件 时 输出 数 式 


{ printf(” %3d: %1d+%1dX%d 一 %d-% 1d",++s,ab,c,d,e); 
printf("=%1d-%d 一 %dX%1d+%1d \n", el1,d, c, b1, a1) ; 
} 
} 
if(s==0) printf(” 没有 找到 要 求 的 四 则 运算 对 称 式 。\n"); 
else printf(” 共 以 上 %d 个 %d+%d+%d+2 位 四 则 运算 对 称 式 。\n", s,m,n,p); 
} 


3. 程序 运行 示例 与 说 明 
请 输入 m,n,p(mtntp<9): 3,3,2 


1: 108+ 275X 6 二 3- 49= 94- 3 二 6X572+ 801 
共 以 上 1 个 3+ 3+2+2 位 四 则 运算 对 称 式 。 


以 上 示例 搜索 输出 3 十 3 十 2 十 2 位 共 10 位 四 则 运算 对 称 式 ,10 个 数字 和 加 、 减 . 乘 、 
除 四 则 运算 符 完全 对 称 地 分 布 于 等 号 两 边 , 显 示 出 计算 机 程序 设计 的 功能 与 神奇 。 
当 搜索 式 的 位 数 较 大 时 ,程序 运行 时 间 稍 长 些 。 


3.8.3 对 称 综合 运算 式 


进一步 ,拓展 构建 含 乘 方 运算 的 对 称 综合 运算 式 。 
定义 : 把 含 乘 方 (^) ,加 (十 ) 减 ( 一 ) 乘 (X)、 除 (二 ) 5 个 运算 的 等 式 


处 疏 一 基本 二 十 芋 二 和 十 E 有 过 烛 区 大 一 Ma (8) 
称 为 m 十 n 十 p 十 3 位 对 称 综合 运算 式 ,其 中 约定 a,b,e 是 3 个 大 于 1 的 一 位 正 整数 ,c 是 
一 个 m 位 整数 ,d 是 一 个 n 位 整数 ,f 是 一 个 p 位 整数 , 且 a,b,c,d,e,f 的 m 十 n 十 p 十 3 个 


数字 中 没有 重复 数字 ; 式 右 边 cl,dl .fl 分别 是 c,d,f 的 逆序 数 。 
例如 , 式 (9) 就 是 一 个 2 十 1 十 3 十 3 共 9 位 对 称 综合 运算 式 。 
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3M 一 75XX6 二 2 十 908 一 809 十 2 二 6X57 一 4^3 (9) 
输入 正 整数 m,n,p(1 声 m,1 志 n,1 二 p,m 十 n 十 p 志 7) ,搜索 输出 所 有 符合 要 求 的 m 十 
n 十 p 十 3 位 对 称 综合 运算 式 。 


1. 程序 设计 要 点 

运算 式 中 含有 乘 方 与 加 、 减 、 乘 \ 除 共 5 种 运算 ,优先 执行 乘 方 ,然后 按 通 常 “ 先 乘除 ， 
后 加 减 ” 的 运算 规则 进行 运算 。 

为 便于 比较 是 否 存在 重复 数字 ,设置 h 数组 存储 式 中 的 m 十 n 十 p 十 3 个 数字 。 

(1) 设置 枚 举 循环 ,分 离 数 字 并 计算 逆序 数 。 

根据 输入 的 整数 m,n,p 通过 相 乘 求 得 最 小 的 m 位 整数 世 、 最 小 的 n 位 整数 t2、 最 小 
的 p 位 整数 t3 ,分 别 以 tl,t2,t3 作为 枚 举 c,d,f 循环 的 初始 值 。 

建立 枚 举 一 位 正 整数 的 a,b,e 循环 ,并 赋值 : h[1]==a;h[2]==b;h[3]==e。 

通过 取 整 与 求 余 运算 分 离 出 c 的 m 个 数字 存放 到 bh 数组 的 hL4] 一 hLm 十 3] ,并 利用 
分 离 数 字 计 算出 c 的 逆序 数 cl 。 

分 离 出 d 的 n 个 数字 存放 到 h 数组 的 hm 十 4] 一 hLm 十 n 十 3] ,利用 分 离 数字 计算 出 
d 的 逆序 数 dl 。 

同样 ,分离 出 工 的 p 个 数字 存放 到 h 数组 的 hLm 十 n 十 4 一 hLm 十 n 十 p 十 3], 利 用 分 
离 数 字 计 算出 工 的 逆序 数 全 。 

(2) 条 件 检测 。 

若 c%10=0, 或 4%10=0, 或 1%10 王 0, 因 造成 逆序 数 不 对称 ,直接 返回 试 下 一 组 。 

为 方便 乘 方 计算 ,应 用 循环 相 乘 计算 : ab 一 a^b;ba 一 b'a。 

同时 ,在 (cx d) %e=0 且 (ex*cl)%dl=0 时 ,计算 cde 一 (cx d)/eiecd= 一 (ex cl)/dl。 

车 ab 一 cde 十 f1 二 和 十 ecd 一 ba, 直 接 返 回 试 下 一 组 ; 

否则 ,应 用 i,j 二 重 循环 比较 分 离 的 m 十 n 十 p 十 3 个 数字 是 否 有 相同 数字 : 车 存在 相 
同 , 则 标注 t==1, 返 回 。 

(3) 输出 m 十 n 十 p 十 3 位 对 称 综合 运算 式 。 

若 全 通过 以 上 各 项 , 作 打 印 输出 ,并 用 变量 s 统计 解 的 个 数 。 

最 后 , 若 s 二 0 则 输出 “没有 找到 所 要 求 的 对 称 综合 运算 式 ”。 


2. 程序 设计 


// 搜 索 对 称 综合 运算 式 ab- cX d 二 e+f= fl+e 二 d1Xcl-ba 

// 其 中 整数 c 为 m 位 ,d 为 n 位 ,f 为 p 位 整数 

# include < stdio. h> 

voidmain0 

{ long c, d,f, c1, d1, f1, g, ab, ba, t1,t2, t3, cde, ecd; 
int a, b,e, i, j,k, k1, k2, k3, t, m, n, p, s, h[11] ; 
printf(” 请 输入 m,n,p(mtntp 寺 7): "); scanf("%d,%d,%d",&m, &n, &p) ; 
s=0it1=t2=t3=1; 
for (j=1;j<=m 1;j++) tl=t1x 10; // 计 算 最 小 m 位 整数 t1 
for (j=1;j<=n-1;j++) t2=t2x 10; // 计 算 最 小 n 位 整数 t2 
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for (j=1;j<=p-1;j++) t3=t3* 10; // 计 算 最 小 p 位 整数 t3 
for(a=2;ak=8;at++) 
for (b=a+1;bC=9;b++) // 确 保 a<b 


for (e=2;eL=9;et++) 


for(c=t1+1;c<=10* t1-1;ct+) 


for (d= t2+ 1;d< =10*x t2- 1;d++) // 设 置 6 重 枚 举 
for (f=t3+1;f<=10* t3- 1;f++) 
{ if(c%10==0 || d%10==0 || f%10==0) continue; // 得 除 个 位 为 0 的 c,d,f 


h[1]=a;h[2]=b;h[3]=e; 
g= cic1=0;k1= 3; 
for (j=1;j<=m;j++) /分解 e 的 m 个 数字 ,c1 为 逆 
// 序 数 
{ k1++ ;h[k1]= g% 10;g= g/10;c1= c1 * 10+ h[k1];} 
Ed;d1=0; k2= k1; 
for(j=1;j<=n;j++) // 分 解 d 的 n 个 数字 ,d1 为 d 逆 
// 序 数 
{ k2+ + ;h[k2]= g% 10;g= g/10;d1= d1 * 10+ h[k2];} 
g= fif1= 0; k3= k2; 


for (j=1;j<=p;j++) // 分 解 f 的 p 个 数字 ,f1 为 f 道 
// 序 数 
{ k3+ + ;h[k3]= g% 10;g= g/10;f1=f1 x* 10+ h[k3];} 
for (ab=1, j=1;j<=b;j++) ab=abx a; // 计 算 ab= ab 
for (ba=1, j=1;j<=a;jt++) ba=bax b; // 计 算 ba=b"a 
if((cxd)%e>0 || (ex c1)%d1>0) continue; // 确 保 cde 与 ecd 为 整数 
cde= (cx d)/e; ecd= (ex c1)/d1; 
if (ab- cde+ fl= f1+ ecd- ba) continue; // 检 验 等 式 是 否 成 立 
for (t=0, i=1;i<=mt nt p+ 2;i++) 
for(j=i+1;j<=mtntp+ 3;j++) // 检 验 mt n+p+ 3 个 数字 是 否 存在 
// 重 复数 字 


if (h[i]==h[j]) {t=1;break;} 
if (t==0) // 满 足 条 件 时 输出 数 式 
{ printf(” %d: %d%d-%IdX%ld%d%ld",++s,a,b, c,d, e, f); 

printf ("=% 1d+%d 一 % 1dX% 1d-%d%d \n", f1,e, d1, c1, b, a) ; 


} 
if(s==0) printf(” 没有 找到 所 要 求 的 对 称 综合 运算 式 。\n"); 
else printf(” 共 以 上 %d 个 %d+%d+%d+3 位 对 称 综合 运算 式 。\n", s,m,n,p); 


3. 程序 运行 示例 与 说 明 
请 输入 m,n,p(mtntp<7): 2,2,3 


1: 4°5- 81X 72+ 3+ 906= 609+ 3 二 27X 18-5°4 
共 以 上 1 个 2+ 2+ 3+ 3 位 对 称 综合 运算 式 。 
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这 就 是 前 言 中 提 到 的 对 称 综合 运算 式 : 数 式 等 号 两 边 对 称 分 布 10 个 数字 、 对 称 嵌 入 
5 则 ( 含 乘 方 ) 运 算 ,等 式 左右 两 边 完全 对 称 ,真是 精妙 绝伦 ! 


3.9 分 段 和 寡 式 


任何 复杂 系统 都 可 以 追溯 到 一 个 初始 的 原型 ,而 任何 简单 的 问题 都 可 以 拓展 到 较为 
理想 的 境界 。 

第 1 童 介绍 的 卡 普 雷 卡 数 就 是 一 个 简单 的 案例 ,本 章 将 对 这 一 原型 进行 全 方位 的 深 
入 拓展 ,推出 外 观 优雅 ,内 容 丰 富 的 分 段 和 寡 式 。 


3.9.1 卡 普 雷 卡 平方 式 


第 1 章 探讨 了 卡 普 雷 卡 数 3025 ,写成 数 式 更 能 说 明 其 实质 
3025 一 (30 十 25)? (1) 
数 式 (1) 的 整数 是 4 位 ,在 第 1 章 已 拓展 到 偶数 位 。 对 于 5 位 、7 位 等 奇数 位 是 否 也 有 
类 似 的 2 段 平 方式 呢 ? 
把 一 个 n 位 正 整 数 a 分 为 前 后 两 段 ( 两 段 的 位 数 不 要 求 相等 ,两 段 所 生成 的 两 个 正 整 
数 的 位 数 之 和 要 求 等 于 n) , 若 分 段 的 两 个 正 整数 之 和 的 平方 等 于 a, 则 可 把 整数 a 写 为 2 
段 和 平方 式 , 称 为 卡 普 雷 卡 平方 式 。 例 如 ， 
88209 = (88 二 209)? Ka 
式 (2) 中 的 5 位 数 88209 就 是 一 个 把 自身 分 为 两 段 88 与 209 的 和 的 平方 ,该 式 即 为 卡 普 
寺 术 平 方式 
显然 ,第 1 章 的 偶数 位 卡 普 雷 卡 数 是 卡 普 雷 卡 平方 式 的 特例 。 
输入 位 数 n(3 三 n 志 15) ,搜索 并 输出 所 有 n 位 卡 普 雷 卡 平方 式 。 
1. 设计 要 点 
注意 到 mn 位 数 比较 大 ,n 位 数 及 其 相关 数据 设置 为 双 精 度 double 型 。 
(1) 设置 枚 举 循 环 。 
设 n 位 整数 a=b*b, 首 先 求 出 b 的 取 值 范 围 [c,d] ,设置 枚 举 b(c 一 d) 循 环 , 循 环 中 
计算 的 a=bxb 即 为 n 位 平方 数 。 
(2) 实施 分 2 段 。 
把 一 个 n 位 数 分 为 前 后 两 段 有 n 一 1 种 分 法 : 设置 分 段 操作 的 k(1~n 一 1) 循 环 , 循 环 
中 模拟 分 段 的 变量 w 从 w=1 开始 ,通过 自 乘 10 可 分 别 得 w 王 10,100,…,10“ ”> 。 应 用 
取 整 x==floor(a/w) 与 取 余 y= 二 fmod(a,w) 等 操作 把 整数 a 分 为 前 后 两 个 整数 x,y。 
(3) 分 段 和 条 件 检 验 。 
在 分 段 操作 的 kCI 一 n 一 1) 循 环 中 ,每 分 段 得 两 个 整数 x,y, 检 验 若 b 一 x 十 y, 则 满足 
分 段 和 平方 条 件 。 
注意 到 如 果 后 段 的 首位 可 能 为 0, 两 个 正 整数 x,y 的 位 数 之 和 可 能 小 于 n, 这 是 不 允 
许 的 。 因 而 在 分 段 和 条 件 检验 中 ,除了 检验 b 二 x 十 y 之 外 , 需 加 上 条 件 之 w/10。 满 足 
y 二 w/10 这 一 条 件 , 可 确保 后 段 整数 y 的 首位 不 为 0。 
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2. 搜索 n 位 卡 普 雷 卡 平方 式 程序 设计 


// 搜 索 n 位 卡 普 雷 卡 平方 式 
# include < stdio.h> 
# include < math. h> 
void main0 
{ double a,b,m,w,x,y; long c,d; int k,n,s=0; 
printf(” 请 输入 正 整数 n(3<n<15): "); scanf("%d",&n); 
for (m= 1,k=2;k<=n;k++) mx =10; 
c= (long) pow(m, 0.5) ;d= (long)pow(10* m- 1, 0.5); 
for (b= c+ 1;b<=d;b+ +) 


{ a=bxb;w1; //a 为 n 位 平方 数 
for (k=1;k<=n- 1;k++) 
{ wx=10; x=floor (a/W); /Wn 位 平方 数 a 分 为 前 后 两 段 x,y 
y= fmod (a, Ww) ; 
if (b==xty && y> w/10) // 确 保 b=xty 且 x,y 的 位 数 和 为 n 


printf(” %d:%.Of= 人 .0f+%.0f) "2 \n",++s,a,x,y); 
} 
} 
if(s>0) printf(” 共 以 上 %d 个 %d 位 卡 普 雷 卡 平方 式 。\n", s,n); 
else printf(” 没有 %d 位 卡 普 雷 卡 平方 式 。\n",m) ; 
} 


3. 程序 运行 示例 与 说 明 


请 输入 正 整 数 n(3<n<16):7 

1: 4941729= (494+ 1729) “2 

2: 7441984= (744+ 1984) “2 
共 以 上 2 个 7 位 卡 普 雷 卡 平方 式 。 
请 输入 正 整 数 n(3<n<16: 15 

1: 186086811780496= (1860868+ 11780496) “2 
: 275246813838096= (2752468+ 13838096) “2 
: 371449415558529= (3714494+ 15558529) “2 
390974415863329= (3909744+ 15863329) “2 
: 612685018625625= (6126850+ 18625625) “2 
: 637690018875625= (6376900+ 18875625) “2 

7: 953832821345856= (9538328+ 21345856) “2 
共 以 上 7 个 15 位 卡 普 雷 卡 平方 式 。 


anoN 


运行 程序 搜索 得 两 个 7 位 卡 普 雷 卡 平方 式 ,所 分 2 段 的 位 数 之 和 均 为 7 位 ;7 个 15 位 
卡 普 雷 卡 平方 式 , 所 分 2 段 的 位 数 之 和 均 为 15 位 。 

运行 程序 可 知 , 若 位 数 n 为 奇数 时 ,所 分 两 段位 数 一 般 只 相差 1( 如 n 一 9 时 ,一 段 为 4 
位 另 一 段 为 5 位); 若 mn 为 偶数 时 ,所 分 两 段位 数 相等 (如 n 二 8 时 ,两 段 都 为 4 位 )。 


3.9.2 拓展 分 段 和 需 式 
定义 : 把 一 个 n 位 正 整 数 a 按 原 数 字 顺 序 分 为 段 , 要 求 所 分 各 段 的 首位 数字 不 为 
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0。 若 分 段 的 rz 个 正 整 数 bl ,b2,…,br 之 和 的 m 次 寡 等 于 a 本 身 , 即 有 
a 二 (bl 十 b2 十 … 十 br)” (3) 
则 称 之 为 n 位 z 段 和 m 次 寡 式 ,简称 分 段 和 震 式 。 
这 里 的 分 段 操 作 , 是 对 整数 a 按 原 有 数字 顺序 分 为 若干 段 , 要 求 每 一 段 首 不 带 0, 以 确 
保 所 分 段 的 位 数 和 为 整数 a 的 位 数 n。 
例如 ,寻求 一 个 14 位 整数 ,等 于 把 它 分 成 6 段 和 的 5 次 宕 ,有 
10896201253125 二 (108 十 96 十 20 十 125 十 31 十 25)5 (4) 
式 (4) 即 为 14 位 6 段 和 5 次 宕 式 。 
分 段 和 索 式 是 一 类 新 颖 有 趣 的 数 式 , 所 涉 范围 相当 广泛 ,内 容 非常 丰富 。 事 实 上 ,第 
1 章 的 卡 普 雷 卡 数 及 上 面 的 卡 普 雷 卡 平方 式 ,都 是 分 段 和 告 式 的 原型 。 
注意 到 分 段 需要 应 用 到 分 位 组 合 , 因 而 搜索 分 段 和 老式 也 是 组 合 的 应 用 案例 。 
输入 位 数 n(3 三 n 志 15) 、 段 数 r(r 二 n) 与 蜂 指 数 ml(m 三 7) ,搜索 并 输出 所 有 mn 位 r 段 
和 m 次 寡 式 。 


1. 编程 设计 要 点 

(1) 数据 结构 设置 。 

为 适当 扩大 位 数 n, 把 整数 a 及 其 相关 变量 设置 为 双 精度 double 型 。 

设置 数组 t(k)(k 王 0,1,…,r) 存 储 分 段位 置 ;数组 p(k)(k 二 1,…,r) 存 储 被 分 段 的 + 
个 整数 。 

(2) 设置 枚 举 循 环 。 

设 a 为 b 的 m 次 寡 , 由 a 为 n 位 整数 可 求 取 b 的 起 始 数 c 与 终止 数 d。 

设置 枚 举 b(c 一 d) 循 环 , 循 环 内 的 a=pow(Cb,m) 即 为 b 的 m 次 寡 。 

(3) 回溯 探求 分 段位 组 合 。 
注意 到 r 段 对 应 r 一 1 个 分 段位 置 .在 n 个 数字 之 间 共 有 n 一 1 个 分 段位 置 ,应 用 回溯 
法 在 这 n 一 1 个 位 置 中 选取 r 一 1 个 分 段位 置 t(i) 的 组 合 。 

为 实现 从 1~n 一 1 这 n 一 1 个 数 中 每 次 取 r 一 1 个 数 的 组 合 , i 从 1 开始 取 值 ,t(1) 从 1 
开始 取 值 。 约 定 t(k) 按 升序 排列 , 即 1<t(1) 过 t(2) 达 … 达 t(r 一 DD) 二 n 一 1。 

注意 到 tGD 后 有 r 一 i 一 1 个 大 于 t(i) 的 元 素 , 其 中 最 大 取 值 为 n 一 1, 显 然 t( 让 最 多 取 
n 一 rf 十 i, 即 t(GD 回 溯 的 条 件 为 t(i) 一 n 一 r 十 i。 

当 i<r 一 1 时 ,i 增 1,t(i) 从 t(i 一 1) 十 1 开始 取 值 ,直至 一 r 一 1 时 完成 一 组 r 一 1 个 位 
置 的 组 合 选 定 , 随 后 即 可 根据 这 r 一 1 个 位 置 计算 分 割 的 r 个 整数 。 

当 t(D 一 n 一 ri 时 ,实施 i=i 一 1 回溯 ,直至 i=0 时 结束 插入 乘 号 位 置 选择 。 

(4) 计算 分 割 的 整数 并 求 和 。 

设置 分 割 特征 变量 w,w 二 pow(10,t(k) 一 t(k 一 1))(k 二 1~r, 约 定 t(0) 二 0)。 

在 经 “u 二 a;”( 以 确保 操作 中 整数 a 不 变 ) 赋 值 后 ,应 用 求 余 函数 p(k) 二 fmod(u,w) 
与 取 整 函数 u==floor(u/w) 计 算 位 于 t(k 一 1) 与 t(k) 之 间 的 数字 组 成 的 整数 p(k) 。 

在 分 段 操作 的 循环 中 ,每 一 组 分 段 得 正 整数 p(k)(k 二 1,2,…,r) 并 求 其 和 s。 

(5) 分 段 和 条 件 检验 。 

注意 : 最 后 一 个 u 即 最 前 一 个 分 段 数 , 必 须要 加 到 和 中 。 
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检验 若 b=s+u, 则 满足 分 r 段 和 宕 条 件 。 

如 果 分 段 中 的 某 一 段 的 首位 为 零 . 则 所 分 r 个 整数 的 位 数 之 和 要 小 于 n, 这 是 不 允许 

的 。 因 而 在 条 件 中 加 上 pLkj 二 floor(w/10) ,确保 各 段 的 首位 数字 不 为 0, 从 而 确保 各 段 

位 数 之 和 与 原 数 的 位 数 n 相同 。 

引入 变量 {=1, 循 环 中 车 分 段 有 p[k] 一 floor(Cw/10) ,或 出 现 和 s 这 =b, 则 f=0 后退 

出 ,该 分 段 组 合 放弃 。 

因此 ,在 条 件 检验 中 ,除了 检验 b=s+u 之 外 , 需 加 上 条 件 f, 以 排除 段 首 为 零 的 情形 。 
若 搜索 到 一 个 n 位 z 段 和 m 次 徊 并 输出 后 , 即 用 “i 二 0;break;” 退 出 该 宪 数 的 其 他 分 

段 ,约定 一 个 寡 只 要 求 一 种 分 段 即 可 。 


2. 分 段 和 圭 式 程序 设计 


/搜索 n 位 r 段 和 mm 次 寡 式 

# include < stdio.h> 

# include < math. h> 

void main0 

{ double a,b,e,s,u,w,p[16]; int f,i,k,m,n,r,x,t[16]; long c,d; 
printf(” 请 输入 位 数 n(3<=n<=15): "); scanf("%d",&n); 
printf(” 请 输入 段 数 r(r<=n):"); scanf("%d",&r); 
printf(” 请 输入 寡 指 数 mm=m: "); scanf ("%d", &m) ; 
for (e=1,k=2;k<=n;k+ +) 


{ printf(” %2d: %.O0f= (%.0f",++x,a,u); 
for (k=r-1;k>=1;k-—) 
printf ("+%.0f",p[k]); 
printf(")” %d\n",m); 
i=0;break; 


ex*=10; //e 为 最 小 的 n 位 数 
c= (long) pow(e, 1.0/m) ;d= (long)pow(ex 10-1,1.0m) ; 
x=0; 
for b= c+1;bC=dib++) 
{ a=pow(b,m); i=1;t[1]=1;t[0]=0; //a 为 n 位 m 次 宪 
while(1) 
{ if(i==r-1) 
{ ua;s=0;f=1; 
for (k=1;k<=r-1;k++) 
{ w=pow(10, t[k]- t[k- 1]); 
p[k]= fmod (u, w) ;u= floor (u/w) ; 
s= stp[k]; 1/ 计算 r 段 之 和 
if (p[k]< floor (w/10) || s>=b) // 为 确保 段 首 不 为 0 
{f=0; break;} // 分 段 出 现 0, 放弃 
} 
if (f && st u==b) // 分 r 段 和 条 件 检验 


// 输 出 一 个 解 


// 一 个 老 只 要 求 一 种 分 段 


109 


| 起 二 妨 学 及 编程 芯 关 


else {i++; t[i]=t[i- 1]+1; continue;} 
while(t[i]==n- r+i) i--; // 调 整 或 回溯 或 终止 
if(i>0) t[i]++; 
else break; 
. 

| 

if(x>0) printf(” 共 以 上 %d 个 %d 位 %d 段 和 %d 次 短 。\n",x,n,r,m); 

else printf(” 没有 %d 位 %d 段 和 %d 次 宕 。\n" nrm; 

j 


3. 程序 运行 示例 与 分 析 


请 输入 位 数 n(3<=n<=15): 15 

请 输入 段 数 r(r<=m:6 

请 输入 寡 指 数 mm<=m :5 

1: 346531411903049= (346+ 53+ 141+ 190+ 30+ 49) “5 
共 以 上 1 个 15 位 6 段 和 5 次 寒 。 


运行 程序 , 若 输入 n=15,r=5,m 一 4, 则 搜索 并 输出 14 个 15 位 5 段 和 4 次 宕 。 

程序 枚 举 b 的 频数 为 10%", 分 段 的 运算 数 为 正 , 因 而 程序 的 时 间 复 杂 度 为 
On?10""), 在 n 不 超过 15 范围 内 还 是 较为 快捷 的 。 

程序 有 n,r,m 共 3 个 参量 输入 ,可 见 程 序 的 功能 范围 非常 广泛 。 


4. 概括 与 变通 
概括 : 本 节 从 简单 的 普 雷 卡 数 步 步 深入 ,其 拓展 轨迹 可 用 具体 数 式 清晰 展示 ,如 下 
所 示 。 


(30 十 25)* 二 3025 (简单 原型 ) 

过 493817284 二 (4938 十 17284)* (广度 拓展 至 n 位 ) 

过 918330048 二 (91 十 833 十 48)* 〈 深 度 拓 展 至 n 位 3 段 3 次 寡 ) 

一 346531411903049 王 (346 十 53 十 141 十 190 十 30 十 49)5 (深度 拓展 至 n 位 r 段 m 
次 宕 ) 

变通 : 如 果 把 n 位 整数 分 成 * 段 ,插入 的 r 一 1 个 运算 符号 由 以 上 的 全 为 十 号 实 
以 下 改变 : 保留 第 一 个 符号 为 十 号 ,其 余 十 号 都 改 为 X 号 ,将 得 n 位 r 段 “综合 和 ” 
次 宕 。 

为 了 实现 mn 位 z 段 综合 和 m 次 寡 , 对 以 上 程序 进行 局 部 修改 。 

(1) s 一 0; s 一 s 十 pLk]; 改 为 ===1; s 一 sx* p[kj];。 

(2) 输出 部 分 相应 修改 如 下 所 示 。 


m 


printf(" %.0f= (%.0f+",a,u); // 保 留 第 1 段 后 的 “+ "号 
for(k=r;k>=2;k--) 
printf("% .OfX",p[k]); // 其 余 r-2 个 改 为 “<X” 号 


printf("%.0f)”  %d\n",p[1],m; 


以 上 局 部 修改 后 即 可 搜索 到 n 位 r+ 段 综合 和 m 次 客 。 
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例如 ,得 到 有 趣 的 12 位 5 段 综合 和 2 次 寡 式 
216463145536 一 (21646 十 31 X 45 X 53 Xx 6)? (36) 
其 中 的 5 段 综合 和 为 21646 十 31X45X53X6, 是 在 保持 左边 12 位 数 各 数字 顺序 不 变 前 提 
下 ,把 12 位 数 分 为 5 段 ,前 两 段 中 插入 一 个 加 号 ,后 面 各 段 间 插 入 乘 号 的 综合 运算 结果 的 
2 次 寡 。 
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方程 经 典 汇 趣 


解 方程 (不 等 式 ) 是 数学 的 基本 课题 之 一 ,许多 实际 应 用 问题 的 求解 往往 归结 为 解 某 
一 方程 (不 等 式 ) 或 方程 组 来 完成 。 

本 章 汇聚 韩信 点 兵 、 百 鸡 问题 、 羊 犬 鸡 兔 问题 .牛顿 * 牛 吃 草 问题 *、n! 结 尾 有 多 少 个 零 
等 古今 中 外 喜闻乐见 的 趣 算 经 典 ; 探 求 双 和 与 和 积 不 定 方程 组 .和 与 积 的 整数 部 分 ;探索 
佩 尔 方程 .调和 数列 不 等 式 、 代 数 和 不 等 式 的 求解 ;首次 把 出 自 名 家 的 “猴子 分 桃 ” 与 “水 手 
分 椰子 ”这 两 个 著名 趣 题 联系 起 来 ,并 统一 编程 拓展 ;最 后 的 亮点 无 疑 是 “应 用 连 分 数 高 精 
求解 佩 尔 方程 ” ,摆平 自然 界 对 人 类 智慧 的 挑战 。 

本 童生 动 地 体现 了 数学 推理 与 编程 拓展 相辅相成 的 交汇 融合 。 


4.1 韩信 点 兵 


在 中 国 数学 史上 ,广泛 流传 着 “韩信 点 兵 ” 的 故事 。 

韩信 和 是 汉 高 祖 刘邦 手下 的 大 将 ,他 英勇 善战 ,智谋 超群 ,为 汉 朝 建立 了 卓越 功勋 。 据 
说 韩信 的 数学 水 平 也 非常 高 超 , 他 在 点 兵 的 时 候 , 为 了 知道 有 多 少 个 兵 , 同 时 又 能 保守 军 
事 机 密 , 便 让 士兵 排队 报 数 : 按 从 1 至 5 报 数 , 记 下 最 末 一 个 士兵 报 的 数 为 1; 再 按 从 1 至 
6 报 数 , 记 下 最 末 一 个 士兵 报 的 数 为 5; 再 按 1 至 7 报 数 , 记 下 最 末 一 个 报 的 数 为 4; 最 后 按 
1 至 11 报 数 , 最 末 一 个 士兵 报 的 数 为 10。 

【问题 】 你 知道 韩信 的 排队 中 至 少 有 多 少 个 兵 吗 ? 

【探求 】 设 兵 数 为 正 整数 x, 则 x 满足 下 述 的 不 定 方程 组 。 

x 一 5y 十 1， mod(x,5)=1; 

x=6z 十 5， mod(x,6)=5; 

x 二 7u 十 4， mod(x,7) 一 4; 

x 一 11v 十 10， mod(x,11)=10; 
其 中 y,z,u,v 都 为 正 整数 。 试 求 满足 以 上 不 定 方程 组 的 最 小 正 整 数 x。 

变量 x 从 某 一 个 整数 开始 递增 1 取 值 , 每 一 个 取 值 检查 是 否 满足 以 上 4 个 方程 。 这 
样 实施 当然 可 行 , 但 不 必要 。 事 实 上 枚 举 次 数 可 联系 问题 的 具体 实际 大 大 缩减 。 

(1) 变量 x 的 取 值 公式 。 

由 以 上 第 2,4 两 方程 知 x 十 1 为 11 的 倍数 ,也 为 6 的 倍数 。 而 11 与 6 互 素 ,因而 x 十 
1 必 为 66 的 倍数 。 
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于 是 取 x 二 65 十 66k(k 二 1,2,…), 对 每 一 个 k, 只 要 判别 满足 mod(x,5) 王 1 与 
mod(x,7) 二 4 这 两 个 方程 即 可 。 

(2) 对 mod(x,5) 一 1 与 mod(x,7) 一 4 的 判别 。 

事实 上 ,由 x==65 十 66k 二 (65 十 65k) 十 k 可 知 , 式 中 括号 内 为 5 的 倍数 。 要 求 mod(x， 
5) 王 1, 只 要 求 mod(k,5) 王 1 即 可 ,也 就 是 说 只 要 取 k 王 5m 十 1(m 王 1,2,…) 即 可 确保 
mod(x,5)=1。 

同时 ,由 x 一 65 十 66k 一 (63 十 63k) 十 3k 十 2, 式 中 括号 内 为 7 的 倍数 ,要 求 mod(x,7) 一 4， 
只 要 求 mod(3k 十 2,7) 二 4 即 可 。 

以 k==5m 十 1 代入 3k 十 2 可 得 3k 十 2 王 3(5m 十 1) 十 2 一 (14m 十 7) 十 m 一 2。 

上 式 括 号 内 为 7 的 倍数 ,要 求 mod(3k 十 2,7)=4 全 mod(m 一 2,7) 二 4。 

显然 , 取 m==6, 即 k= 二 31 时 ,得 x=65 十 31 * 66 一 2111。 

结论 : x 二 2111, 这 就 是 韩信 点 兵 至 少 人 数 。 

顺便 指出 ,韩信 的 排队 中 至 少 有 2111 个 兵 , 事 实 上 还 有 其 他 许多 整数 满足 以 上 4 个 
方程 。 例 如 , 按 上 面 所 述 , 取 m==13, 则 k==66, 算 得 x 二 4421 也 满足 以 上 报 数 要 求 。 

【编程 拓展 】 

把 报 数 遍 数 一 般 化 为 报 n 遍 数 : 第 i 次 从 1 至 p(i) 报 数 时 ,最 末 一 名 士兵 报 数 为 
r(i) ,这 里 ij 一 1,2，…,n。 

从 键盘 输入 n 及 各 个 p(Gi) 与 r(iD) ,计算 并 输出 满足 这 n 遍 报 数 的 3 个 最 少 人 数 。 


1. 编程 设计 要 点 

首先 ,从 键盘 确定 报 数 n 遍 数 ,n 为 正 整数 。 

(1) 设置 循环 检测 。 

对 于 第 i 遍 报 数 p(i) ,最 后 一 名 为 rGD ,设计 iC1~n 一 1) 循 环 输入 p(Ci ,r(Ci) 。 

设 变 量 x 为 探求 人 数 ,m 为 探求 最 少 人 数 的 个 数 。 建 立 条 件 循环 m 二 3 &&& x 二 
lel7, 即 当 探求 最 少 人 数 小 于 3 个 且 人 数 不 足 1e17( 人 为 限制 上 限 ) 时 继续 探求 。 

(2) 设置 处 理 循 环 。 

取 初 值 x=rCn) 十 pCn) ,设置 处 理 循 环 i(1 一 n 一 1): 在 i 循环 中 如 果 出 现 

fmod(x,p[i])! = r[i](i=1~n—1) 

即 不 满足 第 i 个 报 数 数据 , 则 退出 让 变量 增值 x 二 x 十 p(n) ,再 进入 循环 测试 ,直到 满足 循 
环 中 的 所 有 n 一 1 个 报 数 要 求 , 则 输出 满足 全 部 n 个 报 数 要 求 的 最 少 人 数 x。 

(3) 报 数 中 的 归 零 。 

特别 指出 ,如 果 在 报 数 中 出 现 r(GD 一 p(iD ,这 在 报 数 过 程 中 是 可 能 的 。 例 如 ,r(Ci) 一 
p(GD 王 10, 即 在 1 至 10 报 数 时 ,最 后 一 个 人 报 10 ,显然 此 时 人 数 为 bp(D 王 10 的 整数 倍 ,r(Ci) 

因而 , 当 输入 数据 中 若 出 现 rGD) 一 p(CiD 时 ,统一 归 零 为 ri) 一 0。 


2. 程序 设计 


// 韩 信和 点 兵 : 每 轮 报 数 , 按 1 至 p 报 数 ,最 末 一 人 报 数 为 上 
# include < stdio. h> 
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# include < math. h> 
voidmain0 
{ int i,m,n,t; double x,p[100],r[100]; 
printf(” 报 数 n 轮 , 请 输入 n:" ); scanf("%d",&n); 
for (i=1;i<=n;i++) 
{ printf(” 第 %1d 轮 , 请 输入 p,r:", 站 ); 
scanf ("% 1f,% If", &p[i], &r [i]); // 输 入 n 轮 报 数 的 数据 
if (r[i]==p[i]) r[i]=0; 
| 


nm-0;x=p[n]+r[n]; // 循 环 外 赋 初 值 
while(m3 && x<1e17) 
{ t=0;x=x+p[n]; // 人 数 x 为 若干 p[n] 加 r[n] 
for (i=1;i<=n-1;i++) 
if (fmod (x, p[i])!=r[i]) {t=1;break:} // 检 测 x 满足 其 他 nr- 1 轮 报 数 
if (t==0) 


printf(” 第 %d 小 人 数 为 :%.0f 个 。\n",++m,x); 
} 
3. 程序 运行 示例 与 讨论 


报 数 n 轮 , 请 输入 n: 7 

第 1 轮 , 请 输入 p,r: 5,3 
第 2 轮 , 请 输入 p,r: 7,5 
第 3 轮 , 请 输入 p,r: 8,6 
第 4 轮 , 请 输入 p,r: 9,7 
第 5 轮 , 请 输入 p,r: 11,11 
第 6 轮 , 请 输入 p,r: 13, 13 
第 7 轮 , 请 输入 p,r: 17,17 
第 1 小 人 数 为 : 1307878 个 。 
第 2 小 人 数 为 : 7433998 个 。 
第 3 小 人 数 为 : 13560118 个 。 


满足 上 述 不 定 方程 组 的 正 整 数 解 有 无 穷 多 组 ,程序 输出 的 只 是 满足 条 件 的 最 小 3 个 
正 整数 解 。 
如 果 输 入 前 面 韩信 点 兵 数据 , 则 输出 的 3 个 最 少 人 数 分 别 为 : 2111,4421,6731 个 。 


4.2 古代 趣 算 


我 国 古代 数学 家 研究 了 很 多 涉及 社会 生活 各 个 方面 的 有 趣 计 算 问 题 ,其 求解 通常 归 
结 为 解 不 定 方程 或 多 元 线性 方程 组 。 

本 节 论 述 其 中 在 世界 上 最 有 影响 的 “ 百 鸡 问题 "与 “ 羊 犬 鸡 兔 问题 ”, 前 者 为 解 不 定 方 
程 组 的 代表 ,后 者 则 是 解 多 元 线性 方程 组 的 范例 。 
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4.2.1 百 鸡 问题 


公元 前 5 世纪 ,我 国 古代 数学 家 张 丘 建 在 ( 张 丘 建 算 经 》 一 书 中 记载 有 一 个 有 趣 的 数 
学 问题 。 
今 有 鸡 全 一 值钱 五 , 鸡 母 一 值钱 三 , 鸡 锥 三 值钱 一 。 用 百 钱 买 鸡 百 只 , 问 鸡 俩 、 母 ,. 针 
各 几何 ? 
这 就 是 “ 百 鸡 问题 "。“ 百 鸡 问 题 " 是 数学 史上 一 个 有 名 的 问题 ,对 后 世 影 响 都 很 大 。 
其 他 各 国 也 有 相 类 似 问 题 流传 。 例 如 ,印度 算 书 和 阿拉 伯 学 者 艾 布 . 卡 米 勒 的 著作 
中 有 百 钱 买 百 禽 的 问题 ,与 ( 张 丘 建 算 经 ) 中 的 “ 百 鸡 问题 "大 同 小 异 。 
到 了 清 代 , 研 究 百 鸡 术 的 人 渐 多 ,1815 年 骆 腾 凤 使 用 “大 衍 求 一 术 ” 解 决 了 百 鸡 问题 。 
在 此 前 后 日 醇 推 广 了 百 鸡 问题 , 作 《 百 鸡 术 衍 》, 从 此 百 鸡 问题 和 百 鸡 术 广 为 人 知 。 
百 鸡 问题 的 表述 : 用 100 个 钱 买 100 只 鸡 , 其 中 公鸡 5 个 钱 1 只, 母 鸡 3 个 钱 1 只 ,小 
鸡 1 个 钱 3 只 。 
【问题 】 问 公鸡 、 母 鸡 与 小 鸡 各 买 了 多 少 只 ? 
【求解 】 设 公鸡 、 母 鸡 . 小 鸡 数量 分 别 为 x,y,z, 依 题 意 列 出 方程 组 如 下 所 示 。 
x 十 y 十 z = 二 100 (1) 
5x 十 3y 十 z/3 = 100 (2) 
以 上 两 个 一 次 方程 3 个 未 知 数 , 称 为 3 元 一 次 不 定 方程 组 。 下 面 采用 加 减 消 元 法 求 
解 这 个 3 元 一 次 不 定 方程 组 的 非 负 整数 解 。 式 (2)X3 一 (1) ,消去 z 得 


14x 十 8y = 200 
整理 即 
7x 十 4y 一 100 
解 得 
y 一 (100 一 7x)/4 (3) 


要 使 y 为 非 负 整数 ,经 试验 可 知 : x 分 别 取 0,4,8,.12;y 依次 得 25,18,11,4; 代 入 
式 (1) 分 别 得 z 为 : 75,78,81,84。 因 而 得 原 3 元 一 次 不 定 方程 组 的 4 组 非 负 整 数 解 为 


x=0 x 二 4 x=8 x=12 
y=25 y=18 y=11 y=4 
z=75 2 一 78 2 一 81 z=84 


以 上 4 组 解 给 出 了 公鸡 、 母 鸡 与 小 鸡 各 买 只 数 的 4 组 答案 。 
【编程 拓展 】 对 小 鸡 价 格 实施 差异 化 处 理 。 
注意 到 公鸡 与 母 鸡 基 本 定形 ,价格 稳定 在 公鸡 5 个 钱 1 只 , 母 鸡 3 个 钱 1 只。 而 小 鸡 
差异 较 大 ,因而 小 鸡 价格 变化 明显 。 

拓展 百 鸡 问题 表述 : 

用 100 个 钱 买 100 只 鸡 , 其 中 公鸡 5 个 钱 1 只 , 母 鸡 3 个 钱 1 只 ,小 鸡 1 个 钱 d 只 。 整 
数 d 从 键盘 输入 确定 。 问 公鸡 、 母 鸡 与 小 鸡 各 买 了 多 少 只 。 

(1) 编程 设计 要 点 。 

设 公鸡 . 母 鸡 .小 鸡 数 量 分 别 为 x,y,z, 依 题 意 列 出 方程 组 如 下 所 示 。 
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x 十 y 十 z= 二 100 

5x 十 3y 十 z/d 王 100 

设计 程序 求解 这 个 3 元 一 次 不 定 方 程 组 的 非 负 整 数 解 ,其 中 正 整数 d 从 键盘 输入 。 
建立 x(0 一 100/5) ,y(0 一 100 一 x) 循 环 , 计 算 z 一 100 一 x 一 y( 确 保 x 十 y 十 z 一 100) 。 
判别 : z 宇 0 and mod(z,d) 一 0 and 5* x++3*y+tz/d=100。 

对 满足 以 上 条 件 的 解 打印 输出 。 

(2) 程序 设计 。 


// 拓 展 百 鸡 问题 
# include < stdio.h> 


voidmain0 
{ long d,x,y,z,n; 

printf(” d 个 小 鸡 一 个 钱 ,请 确定 d:"); scanf ("% 1d", &d) ; 

m0; 

for (x= 0;x< = 100/5;x+ + ) 

for (y= 0;y<=100- x;y++) 

{ z=100-x-y; // 确 保 x+ y+ z= 100 
if(z>=0 && z% d==0 && 5x x+ 3x y+z/d==100) 
{ printf(” %1d: x=%2d,y=%2d,z=%2d \n",++n,x,y,2); 
break; // 满 足 条 件 时 输出 解 


} 
if(n>0) printf(” 共 以 上 %1d 组 解 。\n",n); 
else printf(” 此 百 鸡 问题 无 解 。\n"); 
} 


(3) 程序 运行 结果 与 说 明 。 


d 个 小 鸡 一 个 钱 ,请 确定 d:9 
1: x=4, y=24, z=72 
2: x=17, y=2, z=81 

共 以 上 2 组 解 。 


以 上 运行 输入 d= 二 9, 即 1 个 钱 9 个 小 鸡 , 有 以 上 两 组 解 。 

车 输入 d= 二 3, 则 输出 以 上 求解 的 4 组 解 。 

车 要 求 3 种 鸡 每 种 鸡 都 有 ,只 要 修改 以 上 程序 中 的 循环 起 始点 从 1 开始 即 可 。 
与 百 鸡 问题 相 类 似 的 还 有 我 国民 间 流 传 的 “ 百 鱼 百 斤 趣 题 。 

百 条 鲜 鱼 一 百 斤 , 大 的 每 条 重 十 斤 ; 

中 号 一 条 一 斤 重 ,正好 上 席 待 贵宾 ; 

小 的 每 条 重 一 两 ,自己 食用 不 嫌 轻 。 

大 中 小 号 各 多 少 , 才 是 百 鱼 一 百 斤 ? 

请 修改 以 上 程序 求解 “ 百 鱼 百 斤 ”( 注 : 古代 一 斤 为 16 两 ) 。 
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4.2.2 羊 犬 鸡 兔 问题 
我 国 古代 《 九 章 算 术 ) 中 的 “ 羊 犬 鸡 免 问 题 "表述 为 : 


5 只 羊 .4 只 


犬 .3 只 鸡 与 2 只 免 共 值 1496 个 钱 ; 


4 只 羊 .2 只 犬 .6 只 鸡 与 3 只 免 共 值 1175 个 钱 ; 


3 只 羊 .1 只 


犬 .7 只 鸡 与 5 只 免 共 值 958 个 钱 ; 


2 只 羊 .3 只 犬 .5 只 鸡 与 1 只 免 共 值 861 个 钱 。 

求 每 只 羊 . 犬 . 鸡 、 免 价值 各 为 多 少 个 钱 (整数 )。 

该 题 出 自 ( 九 童 算术 ) 的 方程 章 , 该 书 给 出 的 解法 “方程 术 ”, 又 称 * 直 除法 ”, 与 现代 代 
数 中 的 加 减 消 元 法 基本 一 致 , 比 西方 早 了 1400 多 年 。 

以 下 应 用 枚 举 编程 求解 羊 犬 鸡 免 问题 是 简便 的 ,充分 考虑 到 所 求 4 个 价格 均 为 正 整 


数 的 特点 。 


1. 设计 要 点 


设 一 只 羊 价 为 x, 犬 为 y, 鸡 为 z, 免 为 u, 根 据 题 意 可 得 4 元 一 次 方程 组 如 下 所 示 。 
5x 十 4y 十 3z 十 2u 一 1496 

4x 十 2y 十 6z 十 3u 一 1175 

3x 十 y 十 7z 十 5u 一 958 

2x 十 3y 十 5z 十 u 一 861 

在 正 整数 范围 内 (约定 x,y,z,u 为 正 整数 ) 解 方程 组 ,可 以 应 用 枚 举 判 定 完成 求解 。 
设置 x,y,z,u 循环 ,对 每 一 组 x,y,z,u 值 判别 是 否 同时 满足 4 个 方程 。 


注意 到 第 3 个 方程 中 变量 y 的 系数 为 1, 设 计 中 可 精简 一 个 循环 ,选取 其 中 x,z,u 这 


3 个 变量 设置 循环 。 
x: 1 一 958/3( 以 第 3 个 方程 为 依据 ,价格 至 少 为 1 ,不 可 能 为 0) 
z: 1 一 (958 一 3* x)/7( 以 第 3 个 方程 为 依据 ) 
u: 1 一 (958 一 3x* x 一 7*z)/5( 以 第 3 个 方程 为 依据 ) 
在 循环 中 ,对 每 一 组 x,z,u, 计 算 y= 二 958 一 3* x 一 7* z 一 5x ui (确保 第 3 个 方程 满足 ) 。 
若 所 算出 的 y 为 正 , 且 同时 满足 方程 组 的 另外 3 个 方程 , 则 输出 一 组 解 。 
这 样 设计 处 理 是 适宜 的 ,可 减少 循环 枚 举 次 数 。 


2. 程序 设计 


// 枚 举 探求 羊 犬 鸡 免 价格 
# include < stdio. h> 


voidmain0 


{ int x,y,z,u; 


printf(" 
printf(" 
printf(" 
printf(" 
printf(" 


求解 四 元 一 次 方程 组 的 正 整数 解 :\n"); 
5x+ 4y+ 3z+ 2u= 1496\n") ; 

4x+ 2y+ 6z+ 3u= 1175\n") ; 

3x+ y+ 7z+ 5u= 958\n") ; 

2x+ 3y+ 5z+ u= 861\n") ; 
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for (x= 1;x<=958/3;x++) // 改 进 x,z,u 循 环 终 值 以 减少 循环 次 数 
for (z=1;z<= (958- 3* x)/7;z++) 
for (u= 1;u<= (958- 3* x-7* z)/5;ut +) 


{ y=958-3x*x-7*2z-5xu; // 取 y 满 足 一 个 方程 
if (y< 0) break; // 判 别 另 三 个 方程 同时 满足 
if(5* xt4x yt+3x z+2xU==1496 && 4* x+2x*y+6Oxz+3xu=11758&8&2x* x+3xy+5#Z+U= 
=861) 


{ printf(” 方程 组 的 正 整 数 解 为 :\n"); 
printf("” x=%d,y=%d,z=%d,u=%d, \n",x,y,z,U); 
} 


} 
3. 程序 运行 结果 与 说 明 


求解 四 元 一 次 方程 组 的 正 整数 解 : 
5x+ 4y+ 3z+ 2u= 1496 
4x+ 2y+ 6z+ 3u= 1175 
3x+ y+ 7z+ 5u= 958 
2x+ 3y+ 5z+ u= 861 
方程 组 的 正 整数 解 为 : 
x= 177, y= 121, z= 23, u= 29。 


由 程序 运行 结果 即 得 羊 犬 鸡 兔 问题 的 答案 为 : 羊 价 177 个 钱 /只 , 犬 价 121 个 钱 /只 ， 
鸡 价 23 个 钱 /只 ,和 兔 价 29 个 钱 /只 。 

注意 : 编程 的 前 提 是 x,y,z,u 为 正 整 数 ,也 就 是 说 ,只 有 在 正 整 数 范围 内 才能 应 用 上 
述 设 计 求 解 。 如 果 各 变量 为 实数 ,涉及 实数 的 方程 组 不 可 能 通过 以 上 枚 举 设计 求解 。 

程序 找到 一 个 满足 4 个 方程 的 整数 解 ,输出 解 后 并 没有 返回 。 就 是 说 如 果 问 题 存在 
有 多 组 解 ,程序 会 一 一 找到 并 输出 。 从 结果 看 ,问题 只 有 唯一 的 一 组 解 。 


4.3 国外 趣 算 


外 国 数学 史 中 也 有 很 多 趣 算 问题 ,其 中 许多 问题 与 我 国 古 代 的 趣 算 相同 或 相近 。 
这 里 试 举 与 我 国 古代 趣 算 不 同 的 两 例 : 一 个 是 解 多 元 方程 组 的 “ 牛 吃 草 问 题 ”, 另 一 
个 是 国外 最 早 涉 及 的 “阶乘 "计算 问题 。 


4.3.1 牛顿 * 牛 吃 草 问题 ” 


英国 的 著名 科学 家 牛顿 (Newton) 曾 提出 过 有 趣 的 “ 牛 吃 草 问 题 ”, 很 有 启发 性 。 

有 一 牧场 ,已 知 养 牛 27 头 ,6 天 把 草 吃 尽 ; 养 牛 23 头 ,9 天 把 草 吃 尽 。 牧 场 上 的 草 是 
不 断 生长 的 。 

【问题 】 如 果 养 牛 21 头 , 多 少 天 把 草 吃 尽 ? 

【求解 】 牧场 的 草 由 原 有 草 量 与 每 天 生长 的 草 量 两 部 分 组 成 。 
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不 妨 设 一 头 牛 一 天 所 吃 牧草 为 1, 牧 场 原 有 草 量 为 x, 每 天 新 长 草 量 为 y,21 头 牛 z 天 


根据 题 意 得 三 元 一 次 方程 组 


x 二 6y= 二 27X6 
x 二 9y = 二 23X9 
x+zy=21Xz 


或 ( 护 一 式 (1) 克 3y 一 45 
解 得 y=15 
代入 式 (1) 解 得 x 一 72 
以 x,y 的 值 代 入 式 (3) 有 72 十 15z 一 21z 
解 得 z 一 12 
即 得 结果 : 21 头 牛 12 天 把 草 吃 尽 。 


(1) 
(2) 
(3) 


如 果 15 头 牛 无 论 多 少 天 都 不 能 把 草 吃 尽 ,因为 15 头 牛 每 天 所 吃 草 量 恰 等 于 牧场 一 
天 新 长 草 量 (y==15) ,牧场 原 有 草 量 不 会 减少 。 

【编程 拓展 】 拓展 为 随机 产生 数据 的 探求 游戏 。 

把 牛顿 牛 吃 草 问题 中 的 5 个 整数 由 系统 随机 产生 ,由 游戏 者 提供 答案 ,主持 给 出 评 
判 , 如 果 参 赛 者 答案 错误 , 则 给 出 正确 解答 。 

(1) 程序 设计 。 

// 测 试 拓展 牛 吃 草 问题 及 其 解 

# include < stdio.h> 


# include < stdlib. h> 
# include < time.h> 


voidmain0 


{ inta,b,o,e,k,t,x,y,z; 
t= time (0)% 1000; srand (t) ; // 随 机 数 发 生 器 初始 化 
for (k=1;kK=3;k++) // 测 试 3 次 


{ 


printf(” 随机 提出 牛 吃 草 问题 : \n"); 

a=rand0%4+6; 

if (a% 2> 0) a=at 1; // 确 保 a 为 偶数 
b=at rand 0%7+4; c=a+b+4; 

printf(” 有 一 牧场 ,已 知 养 牛 %d 头 ,%d 天 把 草 吃 尽 ;", 3x b+ c,a); 
printf(" 养 牛 %d 头 ,%d 天 把 草 吃 尽 ;\n",3x arc,b); 

printf(” 问 :如 果 养 %d 头 ,多 少 天 把 草 吃 尽 ?\n", e+ 6); 

printf(” 某 参 赛 者 给 出 答案 : "); 

scanf ("%d", &e) ; // 等 待 参 赛 者 输入 答案 
if(e==ax b/2) printf(” 参赛 者 解答 正确 1\n "); 


else // 评 判 , 如果 不 正确 则 给 出 解答 


{ printf(” 解答 错误 ! 请 看 以 下 参考 解答 。\n "); 
printf(” 解 :不 妨 设 一 头 牛 一 天 所 吃 牧 草 为 1 牧场 原 有 草 量 为 x, \n"); 
printf(" 每 天 新 长 草 量 为 y, 设 %d 头 牛 z 天 把 草 吃 尽 。\n", c+ 6); 
printf(” 得 方程 组 :\n"); // 列 出 方程 组 
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printf("” (1) x+%dxy=%dx%d\n",a,3xb+c,a): 

printf(” (2) x+%dxy=%dx%d\n",b,3x atc,b); 

printf(” (3) xtzxy=%dx*z\n",c+6); 

printf(” (2)- (1) 得 : %dxy=%d\n",b-a, (b-a) * 0); 

printf(” 解 得 : y=%d\n", ce); // 逐 步 求解 
printf(” 代入 (1D) 解 得 : x=%d\n",3xaxb); 

printf(” 代入 (3) 解 得 : z=%d\n",ax b/2); 

printf(” 答案 :如 果 养 %d 头 ,%d 天 把 草 吃 尽 。\n", cr 6,ax b/2); 


] 
(2) 程序 运行 示例 。 


随机 提出 牛 吃 草 问题 : 
有 一 牧场 ,已 知 养 牛 70 头 ,10 天 把 草 吃 尽 ; 养 牛 58 头 ,14 天 把 草 吃 尽 ; 
问 : 如 果 养 34 头 ,多 少 天 把 草 吃 尽 ? 
某 参 赛 者 给 出 答案 :6 
解答 错误 ! 请 看 以 下 参考 解答 。 
解 :不 妨 设 一 头 牛 一 天 所 吃 牧 草 为 1, 牧 场 原 有 草 量 为 x， 
每 天 新 长 草 量 为 y, 设 34 头 牛 z 天 把 草 吃 尽 。 
得 方程 组 : 
(人 x+10x*y=70* 10 
(2) x+14* y=58* 14 
(3) x+zxy=34* 工 
(D)- (D) 得 : 4* y=112 
解 得 : y=28 
代入 疏解 得 : ”x=420 
代入 (3) 解 得 : z=70 
答案 :如 果 养 34 头 ,70 天 把 草 吃 尽 。 


【变通 】“ 牛 吃 草 问题 ”的 男 一 个 版 本 。 

3 头 牛 在 2 个 星期 中 吃 完 2 亩 草地 上 的 草 ,2 头 牛 在 4 个 星期 中 吃 完 2 亩 草地 上 的 
草 , 问 多 少 头 牛 在 6 个 星期 中 吃 完 6 亩 草地 上 的 草 ? 

假设 牛 未 吃 草 时 , 草 是 一 样 高 , 且 草 的 生长 速度 是 不 变 的 。 

(1) 思考 与 求解 。 

设 n 头 牛 在 6 个 星期 中 吃 完 6 亩 草地 上 的 草 。 

该 问题 的 关键 在 于 每 一 头 牛 每 星期 吃 的 草 量 v 是 一 样 的 , 设 牛 开始 吃 草 时 每 亩 草 量 
x, 每 亩 草 每 星期 生长 量 为 y, 则 得 方程 式 如 下 所 示 。 


3X2v 一 2x 十 2X2y (4) 
2X4v 一 2x 十 2X4y (5) 
nxX6v= 6x+6X6y (6) 


以 上 3 个 方程 有 4 个 未 知 数 n,v,x,y, 称 为 不 定 方程 组 ,需求 n 的 正 整数 解 。 
式 (4) 与 式 (5) 两 边 同 除 以 y 得 
6(v/y) 一 2Cx/y) 十 4 
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8(v/y) = 2(x/y)+8 
以 上 两 式 消去 x/y, 化 简 有 
Wi 
即 得 v=2y, x=4y, 代 入 式 (6) 有 
nxX12y= 60y (7) 
解 得 n=5 
答案 : 5 头 牛 在 6 个 星期 中 吃 完 6 亩 草地 上 的 草 。 
(2) 问题 变通 。 
【变通 1】 4 头 牛 在 多 少 个 星期 中 吃 完 6 亩 草地 上 的 草 ? 
【求解 】 设 4 头 牛 在 m 个 星期 中 吃 完 6 亩 草地 上 的 草 。 以 上 式 (4) 和 式 (5) 不 变 ， 
式 (6) 改 写 为 
4Xmv= 6(x+ my) (8) 
以 v=2y, x 二 4y 代入 式 (8) 解 得 m 一 12, 因 而 得 : 4 头 牛 在 12 个 星期 中 吃 完 6 亩 草 
地 上 的 草 。 
【变通 2】 最 多 多 少 头 牛 在 6 亩 草地 上 可 以 一 直 有 草 吃 ? 
【求解 】 如 果 牛 群 所 吃 的 草 量 超过 草地 的 生长 量 , 则 不 管 原 有 草 量 x 有 多 大 ,都 会 在 
一 定时 间 内 把 草 吃 尽 。 要 达到 牛 群 在 草地 上 一 直 有 草 吃 , 则 牛 群 所 吃 的 草 量 必须 与 草地 
的 草 的 生长 量 持平 。( 或 低 于 草地 生长 量 ) 
由 v/y=2, 即 v 一 2y, 即 每 一 头 牛 每 星期 吃 的 草 量 v 是 2 亩 草地 每 星期 生长 量 , 也 就 
是 说 3 头 牛 每 星期 吃 的 草 量 是 6 亩 草地 每 星期 生长 量 。 可 知 3 头 牛 所 吃 的 草 量 与 6 亩 草 
地 的 生长 量 持平 。 因 而 得 : 最 多 3 头 牛 在 6 亩 草地 上 可 以 一 直 有 草 吃 。 


4.3.2 1001! 结 尾 多 少 个 0 


涉及 阶乘 运算 的 问题 最 先 出 自 国外 。 本 节 将 从 一 个 简单 的 具体 阶乘 问题 求解 开始 ， 
然后 逐步 展开 。 

【问题 1】 试 确定 100! 的 结尾 有 几 个 0。 

【思考 】 转换 为 统计 5 因数 的 个 数 。 

一 个 整数 的 结尾 有 多 少 个 0, 就 包含 了 多 少 个 因数 10 。 
因 10==2X5, 注 意 到 在 100! 中 因数 2 的 个 数 多 于 因数 5 的 个 数 ,显然 100! 的 结尾 
0 的 个 数 等 于 100! 中 因数 5 的 个 数 。 

在 100! 中 ,含有 20 个 能 被 5 整除 的 数 ,其 中 还 有 4 个 25 的 倍数 25,50,75,100, 即 
100! 中 因数 5 的 个 数 为 20 十 4 一 24。 

所 以 ,1001! 的 结尾 有 24 个 0。 

【编程 拓展 】 试 编程 求解 以 下 两 个 问题 。 

对 于 指定 的 正 整 数 n, 试 确定 阶乘 n! 二 1X2X3X… Xn 的 结尾 0 的 个 数 。 

对 于 指定 的 正 整数 m, 试 确定 k! 的 结尾 至 少 有 m 个 0 的 整数 k 的 最 小 值 。 


1. 设计 要 点 
(1) 探求 n! 结尾 0 的 个 数 。 
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注意 到 n! 结 尾 零 是 n! 中 各 相 乘 数 2.3.…:,n 中 2 的 因子 与 5 的 因子 相 乘 所 得 ,一 个 2 
的 因子 与 一 个 5 的 因子 得 一 个 尾部 0。 
显然 ,n! 中 各 个 相 乘 数 2,3,…,n 中 2 的 因子 数 远 多 于 5 的 因子 数 ,因而 n! 尾 部 零 的 
个 数 完全 由 n! 中 各 个 相 乘 数 2,3,…,n 中 的 5 因子 个 数 决定 。 
设 n! 中 各 个 相 乘 数 2,3,…,n 中 5 的 因子 个 数 为 s, 显 然 有 
s 一 [号 ]+ [ 襄 ]+ 一 十 [地 ] to 
其 中 [zx 为 不 大 于 x 的 最 大 正 整数 , 正 整数 m 满足 5 过 n<5"” 。 
这 里 统计 s 只 需 设 计 一 个 简单 的 条 件 循环 即 可 实现 。 
(2) 探求 k! 的 结尾 至 少 有 m 个 0 的 整数 kk 的 最 小 值 。 
注意 到 k! 的 结尾 0 的 个 数 取 决 于 k! 中 5 因数 的 个 数 。 同 时 ,k! 结 尾 0 的 个 数 随 着 k 
的 增长 而 增加 , 且 在 k 增长 过 程 中 只 当 k 为 5 的 倍数 时 0 的 个 数 才 增加 。 也 就 是 说 ,k! 的 
结尾 有 至 少 m 个 0 的 整数 k 的 最 小 值 为 5 的 倍数 。 
当 k 增 长 为 5 的 倍数 时 , 若 此 时 整数 k 含 有 j 个 5 因数 , 则 k! 的 结尾 0 的 个 数 增 
加 j 丫 。 
为 确定 k! 的 结尾 有 至 少 m 个 0, 设 变量 d 统计 k! 结 尾 0 的 个 数 。 设 置 条 件 循 环 , 当 
d<m 时 循环 , 若 d>m 时 则 脱离 循环 。 
循环 前 初 值 : k= 二 5;d 二 1( 即 51 有 一 个 0) 。 
循环 中 : k=k+5;( 只 当 k 为 5 的 倍数 时 0 的 个 数 才 增 加 ) 
i=k;j=0; (避免 在 试 商 时 改变 k) 
while(i%5==0) {j++;i= i/5;] (统计 整数 k 中 5 因子 j 个 ) 
d+j;(k! 的 0 个 数 增加 j 个 ) 
循环 结束 ,说 明 此 时 d 三 m, 输 出 k! 结尾 至 少 有 m 个 0 的 最 小 值 为 k。 
2. 程序 设计 
// 探 求 n! 结 尾 0 的 个 数 及 至 少 m 个 0 的 k 最 小 值 
# include < stdio.h> 


voidmain0 


{ long d,i,j,k,m,n,s,t; 
printf(” 请 输入 正 整 数 n,m: "); scanf("%1d,%1d", &n, &m) ; 


s=0;t=1; 
while(t<=n) 
{t=t* 5;s= st n/t;} // 统 计 n! 中 5 因子 个 数 
printf(”%1d! 结尾 共有 % 1d 个 0。\n ,ns); // 输 出 结果 
k=5;d=1; Wk,d 赋 初 值 
while(d<m) 
{ k=k+5;i=k;j=0; /k 按 步 长 5 增长 
while(i%5==0) /测试 k 的 5 因子 个 数 
{j++ ;i= i/5;} 
dj; Wk! 的 0 个 数 增加 j 个 
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printf(” k! 结尾 至 少 %1d 个 0 的 k 最 小 值 为 % 1d。\n",m,k) ; 


3. 程序 运行 示例 与 说 明 


请 输入 正 整 数 n,m: 2019, 1000 
2019! 结尾 共有 502 个 0。 
k! 结尾 至 少 1000 个 0 的 k 最 小 值 为 4005。 


应 用 统计 5 因子 设计 求 n! 结 尾 0 的 个 数 ,大 大 扩展 了 n 的 范围 

例如 ,输入 mn 为 20192020, 得 到 20192020! 结尾 共有 5048001 个 0。 

探求 k! 结尾 至 少 有 m 个 0, 应 用 在 k 增长 过 程 中 只 当 k 为 5 的 倍数 时 0 的 个 数 才 增 
加 ,简化 了 设计 过 程 。 

探讨 一 般 阶 乘 n! 中 结尾 0 的 个 数 估计 是 有 趣 的 。 

为 叙述 方便 , 记 阶 乘 n! 中 结尾 0 的 个 数 为 h(n)。 

【问题 2】 试 回答 关于 h(n) 的 以 下 两 个 问题 : 

(1) n 增长 无 限 ,h(n) 的 增长 是 否 无 限 ? 

(2) 在 hn) 的 增长 过 程 中 ,是 否 会 有 h(n) 记 n 的 情形 出 现 ? 

【求解 】 事实 上 ,由 式 (9) 可 知 


DU Be i 
一 十 京 十 京 十 (10) 


当 n 无 限 增 长 时 ,由 以 上 无 穷 递 缩 等 比 数列 ,有 极限 
im 人 aa )= 下 (11) 


mol n 4 
根据 式 (11) 可 知 ,hCn) 随 nm 的 无 限 增长 而 无 限 增长 ;但 不 会 出 现 hCn) 二 n 的 情形 ,确切 地 
说 ,h(n) 不 会 超过 n 的 1/4。 


4.4 ”加 减 得 1 游戏 


为 了 增添 数学 的 趣味 性 与 娱乐 性 ,不 妨 以 游戏 的 形式 提出 问题 。 

游戏 主持 人 给 出 两 个 整数 ,参与 游戏 者 对 这 两 个 整数 通过 简单 的 加 减 运算 ,使 最 终 答 
案 等 于 1。 经 最 少 加 减 运算 次 数 得 到 1 者 为 胜 。 

主持 人 给 出 16 ,9 ,至 少 加 减 运算 多 少 次 能 得 到 1? 

甲 、 乙 两 游戏 者 的 答案 分 别 如 下 所 示 。 

甲 经 10 次 加 减 运算 得 到 1: 16 十 16 十 16 十 16 一 9 一 9 一 9 一 9 一 9 一 9 一 9 一 1 。 

乙 经 13 次 加 减 运算 得 到 1: 9 十 9 十 9 十 9 十 9 十 9 十 9 十 9 十 9 一 16 一 16 一 16 一 16 
16=1。 

显然 , 甲 的 运算 次 数 少 而 获胜 。 

【问题 】 主持 人 现 给 出 两 个 整数 37,72 .至少 加 减 运算 多 少 次 能 得 到 1? 

【求解 】 设 x,y 为 正 整数 ,满足 


eo 
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37x 一 72y = 士 1 (1) 

求 满足 不 定 方程 (1) 的 正 整 数 x,y, 并 求 取 x 十 y 的 最 小 值 ( 即 至 少 经 过 x 十 y 一 1 次 加 
减 运算 得 1) 。 

(1) 由 式 (1) 右 边 取 十 号 得 

ea 由 2 

要 使 x 为 正 整数 , 则 2y 一 1 能 被 37 整除 。 

设 y==37k 十 z, 这 里 为 非 负 整数 ,z= 二 0,1,2,… ,36; 即 要 求 2y 一 1 一 74k 十 2z 一 1 能 被 
37 整除 。 

逐一 试验 知 当 z=19 时 ,2y 一 1==74k 十 37 能 被 37 整除 ,代入 式 (2) 得 


(2) 


x = 72k 十 37 
Cay 
y 一 37k 十 19 
于 式 (3) 取 k 王 0, 得 x==37,y 王 19 满足 式 (1) , 即 
37X37—72X19=1 (4) 
可 知 经 x 十 y 一 1 王 37 十 19 一 1 一 55 次 加 减 运 算得 1(37 个 37 减 去 19 个 72 得 1)。 
(2) 由 式 (1) 右 边 取 一 号 得 
72y 一 1 2y 十 1 
9 2y 二 (5) 


要 使 x 为 整数 , 则 2y 十 1 能 被 37 整除 。 

设 y=37k 十 z, 这 里 卡 为 非 负 整 数 ,z= 二 0,1,2,…,36; 即 要 求 2y 十 1 一 74k 十 2z 十 1 能 被 
37 整除 。 

逐一 试验 知 当 z= 二 18 时 ,2y 十 1 二 74k 十 37 能 被 37 整除 ,代入 式 (5) 得 


x 一 72k 十 35 
(6) 
有 一 37k 十 18 
据 式 (6), 取 k=0, 得 x 二 35,y 二 18 满足 式 (1) , 即 
37X35—72X18=—1 Ky 


可 知 经 x 十 y 一 1 一 35 十 18 一 1 一 52 次 加 减 运算 得 1(18 个 72 减 去 35 个 37 得 1)。 
(3) 比较 得 出 结论 。 
由 于 52 二 55, 因 而 得 结论 : 经 最 少 52 次 加 减 运 算 (18 个 72 减 去 35 个 37 得 1) 得 1。 
【编程 拓展 】 输入 两 个 不 同 的 正 整数 a,b(1 二 b 二 a) ,输出 得 到 1 的 最 少 运算 次 数 及 
运算 式 。 如 果 无 法 得 到 1, 则 予以 说 明 。 


1. 编程 设计 要 点 
(1) 归结 为 解 不 定 方程 。 
要 求 最 少 加 减 运算 次 数 , 则 对 同一 个 数 (a 或 b) 不 可 能 又 加 又 减 , 即 简单 的 加 减 运算 
为 x 个 a 相 加 ,再 减 去 y 个 b; 或 y 个 b 相 加 ,再 减 去 x 个 a。 
可 知 , 该 游戏 实际 上 是 求 已 知 的 正 整 数 a,b 的 二 元 一 次 不 定 方程 
ax 一 by == 土 ] (8) 
的 正 整数 解 x,y 之 和 x 十 y 的 最 小 值 ,游戏 的 最 少 加 减 次 数 n 二 x 十 y 一 1。 
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(2) 对 输入 数 a,b 的 筛选 。 
如 果 a,b 不 互 素 , 即 a,b 存在 大 于 1 的 公 因 数 , 上 述 二 元 一 次 不 定 方程 无 解 。 
因为 如 果 a,b 存在 大 于 1 的 公 因 数 t, 则 无 论 x,y 如 何 取 值 ,方程 的 左边 的 值 为 t 的 


倍数 或 者 为 0, 不 可 能 为 十 1。 例 如 , 若 a,b 都 为 偶数 时 ,方程 的 左边 为 偶数 ,不 可 能 为 土 1。 
因此 检测 a,b 是 否 存 在 大 于 1 的 公 因数 是 必要 的 。 如 果 a,b 存在 大 于 1 的 公 因数 , 则 输 
出 “不 可 能 得 到 1” 后 退出 。 


(3) 循环 设置 。 
设置 xl 递增 1 循环 ,计算 d=a* xl, 判别 : 若 整数 d 一 1 能 被 b 整除 ,yl 一 (d 一 1)/b， 


则 经 xl 二 yl 一 1 次 运算 得 到 1, 退出 循环 输出 结果 后 结束 ;否则 ,xl 增 1 后 再 试 。 


同时 设置 x2 递增 1 循环 ,计算 d 一 a* x2, 判 别 : 若 整数 d+1 能 被 b 整 除 ,y2 一 (d 十 


1)/b, 则 经 x2 十 y2 一 1 次 运算 得 到 1, 退 出 循环 输出 结果 后 结束 ;否则 ,x2 增 1 后 再 试 。 


(4) 比较 最 小 值 。 
比较 xl 十 yl 与 x2 十 y2, 取 较 小 者 即 得 最 少 加 减 次 数 。 
为 避免 解 太 大 而 失去 游戏 趣味 性 .有 必要 添加 一 强行 结束 条 件 ,例如 ,搜索 到 xl 及 


x2 都 大 于 等 于 1000000 还 未 出 现 解 ,即行 退出 。 


2. 程序 设计 


// 拓 展 2 个 整数 加 减 得 1 的 最 少 运算 次 数 
# include < stdio.h> 
void main() 
{ long a,b,c,d, t,x,x1,x2,y1,y2; 
printf(” 请 输入 整数 a,b: "); scanf ("% 1d,% 1d", &a, &b) ; 
c= (a> b?b:a); 
for (t=2itC=cit++) 
if(a% t==0 && b% t==0) //a,b 存 在 大 于 1 的 公 因 数 t 
{printf(” 不 可 能 得 到 1\n") ;return;} 
x1= 0; 
while (x1< 1000000) 
{ x1++; d=x1x ai 
if((d- 1)%b==0) {y1= (d- 1)/b; break;} // 满 足 加 减 结 果 为 1 
} 
x2= 0; 
whi le (x2< 1000000) 
{ x2++; d=x2x ai 
if((d+ 1)%b==0) {y2= (d+ 1)/b; break;} // 满 足 加 减 结 果 为 1 
} 
if (x1> = 1000000 && x2> = 1000000) 
{printf(” 未 找到 得 1 运算 1\n") ;return;} 
if (x1+ y1< x2+ y2) 
{ printf(” %IdX%1d-%IdxX%1d=1\n", a,x1,b,y1); 
printf(” %1d 个 %1d 中 为 +,%1d 个 %1d 前 为 -,",x1,a,y1,b); 
printf(" 至 少 %1d 次 运算 得 1.\n",x1+y1-); 
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} 


else 
{ printf(” %1dX%1d-%1dXx%1d=1 成 立 。\n",b,y2,a,x2); 
printf(” %1d 个 %1d 中 为 +,% 1d 个 %1d 前 为 -,",y2,b,x2,a); 
printf(" 至 少 %1d 次 运算 得 1。\n",x2+y2-1) ; 


】 

3. 程序 运行 示例 与 说 明 

请 输入 整数 a,b: 2019, 623 
2019X 54- 623X 175=1 


54 个 2019 中 为 +,175 个 623 前 为 -, 至 少 228 次 运算 得 1。 


程序 中 x 从 1 递增 ,比较 了 式 (8) 右 边 为 1 或 一 1 这 两 种 情形 ,因而 所 得 是 最 小 值 。 


4.5 ”多 元 不 定 方程 组 


本 节 探 求 两 个 有 趣 的 3 元 不 定 方程 组 : 双 和 不 定 方程 组 与 和 积 不 定 方程 组 。 
前 者 “ 双 和 ?表现 为 3 元 的 和 相等 且 倒 数 和 也 相等 ;后 者 “和 积 ” 表 现 为 3 元 的 和 相等 


且 积 也 相等 。 
4.5.1 双 和 不 定 方程 组 
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首先 求解 一 个 涉及 和 与 倒数 和 的 3 元 不 定 方程 组 。 
【问题 1】 设 x,y',z 为 正 整数 ,满足 方程 组 


x 十 y 十 z = 二 90 

(1) 
et 
x y 笑 6 


试 求 x,y,z( 约 定 x<y<z) 。 

【探求 】 第 2 个 方程 为 3 个 分 数 之 和 为 1/6 ,就 从 1/6 打开 缺口 。 

注意 到 6 的 因数 有 1,2,3, 选 择 其 中 两 个 进行 调整 探求 。 

(1) 选择 因数 2,3。 

由 分 数 式 二 十 二 十 十 一 1, 两 边 同时 除 以 6, 使 式 右边 为 1/6, 得 十 十 志 十 直 一 十 。 
由 于 12 十 18 十 36 一 66 一 90 ,不 符合 第 一 个 方程 。 


岩 
琼 
el 
溢 
忆 


| 本 由 由 
由 分 数 式 十 十 去 十 二 一 四 9 ,两 边 同时 除 以 10, 使 式 右边 为 1/6， ,得 击 十 去 十 击 一 6 
由 于 10 十 20 十 60 王 90 ,符合 要 求 , 因 而 得 一 组 解 (10,20,60) 。 


Rp 二 人 有 要 六 于 
分 数 式 Fh 6 "两 边 同时 除 以 9, 使 式 右 边 为 1/6, 得 上 十 57 十 57 Bi 
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由 于 9 十 27 十 54 二 90, 符 合 要 求 , 因 而 得 另 一 组 解 (9,27,54)。 
综合 以 上 ,得 不 定 方 程 组 (1) 以 下 两 组 解 : 
x 一 10 X 一 9 
| 对 be-” 
z=60 Z 一 54 
【编程 拓展 】 已 知 n 是 一 个 正 整 数 (n 二 100) ,求解 基于 mn 的 不 定 方程 组 (2) 。 
a 十 b 十 c 王 d4 十 e 十 { 王 mn 
(2) 
本 
例如 ,对 于 n 一 26 ,存在 基于 26 的 不 定 方程 组 (2) 的 解 (4,10,12),(5.6.15) 。 
4 十 10 十 12 一 5 十 6 十 15 一 26 
1/4 十 1/10 十 1/12 王 1/5 十 1/6 十 1/15 一 13/30 
从 键盘 输入 正 整 数 n, 求 出 方程 组 (2) 的 所 有 正 整数 解 ( 约 定 a<b<c,d<e<f,a<d) 。 
若 对 某 些 n 没有 解 , 则 输出 “无 解 ”。 
1. 设计 要 点 
注意 到 6 个 不 同 正 整数 之 和 至 少 为 21, 即 整数 n 三 11。 
(1) 枚 举 循环 设置 。 
设置 a,b 与 d,e 枚 举 循环 。 注意 到 a 十 b 十 c= 二 n, 且 a 二 b 过 ce, 因而 a,b 循环 取 值 如 下 
所 示 。 
a: 1 一 (n 一 3)/3; 因 bb 比 a 至少 大 1,c 比 a 至 少 大 2,a 的 值 最 多 为 (n 一 3)/3。 
b: a 十 1~~(n 一 a 一 1)/2; 因 c 比 b 至 少 大 1,b 的 值 最 多 为 (n 一 a 一 1)/2。 
c 二 n 一 a 一 b, 以 确保 a 十 b 十 c= 二 n。 
设置 d,e 循环 基本 同上 ,注意 到 e 之 da, 因 而 d 的 起 点 为 a 十 1,e 的 起 点 为 d 十 1。 
(2) 转换 倒数 和 相等 。 
把 比较 倒数 和 相等 1/a 十 1/b 十 1/c 二 1/d 十 1/e 十 1/f 转化 为 比较 整 式 
dxexfx(bxc 十 cxa 十 axb) 一 axbxcx(exf 十 fxd 十 dxe) (3) 
车 等 式 不 成 立 , 即 倒数 和 不 相等 , 则 返回 。 
(3) 省 略 相同 整数 的 检测 。 
注意 到 两 个 3 元 组 中 若 部 分 相同 部 分 不 同 , 不 可 能 有 和 相等 且 倒 数 和 也 相等 。 
事实 上 ,已 有 a 二 de, 若 b=e 且 c=f, 与 a 十 b 十 ce +e 二 f 矛盾 。 
车 只 有 一 组 相等 ,不 妨 设 c==f, 则 a 十 b==d 十 e,1/a 十 1/b==1/d 十 l/e 全 ab 一 de。 
由 a 二 d<e, 设 d=a 十 x(x 二 0), 由 a 十 b==d 十 e, 则 有 b==e 十 x。 
由 ab 一 de, 则 有 x(a 一 e) 王 0. 导 致 x 二 0 或 a 二 e, 巴 盾 。 
因而 由 满足 式 (2) 及 a 二 d<e, 可 排除 以 上 6 个 正 整数 中 存在 相等 的 可 能 。 
(4) 输出 结果 。 
若 比较 条 件 (3) 成 立 ,打印 输出 和 为 n 的 双 和 3 元 2 组 ,并 用 s 统计 和 解 的 个 数 。 
为 清楚 计 , 计 算 3 元 2 组 倒数 和 的 分 子 与 分 母 , 约 去 其 最 大 公约 数 后 输出 其 倒 
数 和 。 
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2. 双 和 3 元 2 组 程序 设计 


// 探 求 基于 n 的 双 和 3 元 2 组 
# include < stdio.h> 
voidmain0 
{ int ab,c,die,f,s,ni long &g,h,k; 
printf(” 请 输入 整数 n: "); scanf(%d",&n); 
s=0; 
for (a=1;a<= (n- 3)/3;at+) // 设 置 四 重 枚 举 循环 
for (b=at+ 1;b<= (n- a- 1)/2;b++) 
for (d=a+ 1;d<= (n- 3)/3;d++) 
for(e=dt+1;e<= (n-d-1)/2;et+) 


{ c=n-a-b; f=n-d-e; // 确 保 两 组 和 等 于 n 
if(laxbxcox (exf+fxddxe)!l=d*xexfx (bxcotrcxataxb)) 
cont inue; // 确 保 倒数 和 相等 


g=axb+bxcrcxaih=axbxci 
for (k=g;k>=1;k-—) 
if (ge% k==0 8&& h% k==0) break; 
Eg/k;h=h/k; // 计 算 其 最 简 倒 数 和 
printf(” %d: (%3d,%3d,%3d),",++s,a,b,c); 
printf(”(% 3d,%3d,%3d) ; 倒数 和 为 %1d/%1d。\n",d,e,f,g,h); 
} 
if(s>0) printf(” 共 以 上 %d 组 解 I\n", s); 
else printf(” 无 解 1\n"); 
} 


3. 程序 运行 示例 与 说 明 


请 输入 整数 n: 98 

1:( ”2，36，60)，( 3，5,90) ; 倒数 和 为 49/90。 
2: ( 7, 28, 63)，( 8，18，72) ; 倒数 和 为 7/36。 
3: ( 7，35，56)，( 8，20，70) ; 倒数 和 为 53/280。 
4:( 10，33，55)，( 12，20，66) ; 倒数 和 为 49/330。 
共 以 上 4 组 解 ! 


输入 n 一 26, 即 得 唯一 一 个 双 和 3 元 2 组 如 上 所 示 。 输 入 任何 小 于 26 的 整数 n 均 无 
解 。 可 见 基于 n 的 不 定 方程 组 (2) 有 解 的 n 最 小 值 为 n 一 26。 


4.5.2 和 积 不 定 方程 组 


首先 求解 一 个 涉及 和 与 积 的 3 元 不 定 方程 组 ,然后 编程 拓展 和 积 不 定 方程 组 。 
【问题 2】 设 x,y:,z 为 正 整数 ,满足 方程 组 
Xx 十 y 十 z 王 100 
(4) 
bs 三 28080 


试 求 x,y,z( 约 定 x<y<z) 。 
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【探求 】 因 28080 是 3 个 整数 的 乘积 ,首先 对 28080 实施 素 因 数 分 解 。 
28080 = 六 六 
调整 以 上 9 个 素 因 数 的 顺序 ,并 选择 其 中 3 个 X 号 改 为 十 , 变 为 3 个 数 乘积 相 加 , 选 
择 的 标准 是 使 3 个 整数 之 和 为 100。 
注意 到 3 个 整数 之 和 为 100, 则 3 个 整数 中 只 能 一 个 是 偶数 ,或 3 个 全 为 偶数 。 因 而 
4 个 2 因子 或 全 调整 到 一 个 整数 ,或 分 配 到 3 个 整数 之 中 。 
(1) 调整 为 一 个 偶数 。 
2XxX2xXx2X2++3X13 二 3X3X5==16 十 39 十 45 = 100 
(2) 调整 为 3 个 偶数 。 
2xX3X3+2X3X5+2X2X13=18 十 30 十 52 = 100 
2X2X5+2X13+2X3X3X3=20 十 26 十 54 = 100 
即 得 不 定 方程 组 (4) 有 3 组 解 : (16,39,45),(18,30,52),(20,26,54) 。 
【编程 拓展 】 
已 知 n 是 给 定 正 整数 ,求解 基于 n 的 不 定 方程 组 (5) 的 正 整数 解 。 
a 十 b 十 c 王 d 十 e 十 { 王 g 十 h 十 1 一 n 
ee 
从 键盘 输入 正 整数 n(n 夺 150), 试 求 出 方程 组 (5) 的 所 有 正 整 数 解 (为 不 至 重复 ,约定 
a<b<ce,d<e<f,g<h<i,a<d)。 
若 对 某 些 n 没有 解 , 则 输出 “无 解 1”。 
1. 设计 要 点 
注意 到 9 个 不 同 正 整数 之 和 至 少 为 45, 因 而 可 知 正 整数 n>14。 
(1) 设置 枚 举 循环 。 
注意 到 a 十 b 十 c==n, 且 a 三 b 达 ce, 因而 a,b 循环 取 值 如 下 所 示 。 
a: 1 一 (n 一 3)/3; 因 bb 比 a 至少 大 1,c 比 a 至少 大 2, 即 a 至 多 为 (n 一 3)/3。 
b: a 十 1 一 (n 一 a 一 1)/2; 因 c 比 b 至 少 大 1, 即 b 至 多 为 (n 一 a 一 1)/2。 
c 二 n 一 a 一 b, 以 确保 a 二 b 二 c 且 a 十 b 十 c= 二 n。 
设置 d,e 循环 与 g,h 循环 基本 同上 ,只 是 注意 到 d>a, 因 而 d 的 起 点 为 a 十 1;g 记 d， 
因而 g 的 起 点 为 4 十 1。 
(2) 检测 和 积 相等 。 
在 设置 的 枚 举 循环 中 ,确保 了 3 个 3 元 组 和 相等 。 
若 ax*bxc 一 dxexf 一 gxhxi' 即 积 也 相等 ,满足 和 积 相等 条 件 ,搜索 到 基于 n 的 一 
组 和 积 3 元 3 组 ,用 s 统 计 组 数 。 
(3) 省 略 相同 整数 的 检测 。 
注意 到 两 个 和 相等 的 3 元 组 中 , 若 等 号 两 边 有 部 分 数 相同 ,部 分 数 不 同 ,不 可 能 有 积 
相等 (证 略 )。 因 而 可 省 略 排除 以 上 9 个 正 整 数 中 是 否 存 在 相同 整数 的 检测 , 即 在 检测 积 
相等 时 已 排除 出 现 整数 相同 的 可 能 。 


(5) 
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2. 和 积 3 元 3 组 程序 设计 


// 探 求 基于 n 的 和 积 3 元 3 组 
# include < stdio.h> 
voidmain0 
{ inta,b,c,d,e,f,g,h,i,j,s,n;long t; 
printf(” 请 输入 整数 n: "); scanf("%d",&n) ; 
s=0; 
for (a= 1;ak= (n- 3)/3;at +) // 设 置 枚 举 循 环 
for (b=at+ 1;b<= (n- a-1)/2;b++) 
for (d=at+1;d<= (n- 3)/3;d++) 
for(e=d+1;e<= (n-d-1)/2;et+) 
for(g= dt1;g<= (n- 3)/3;g+t +) 
for(h=g+1;h<= (n- g- 1)/2;h++) 
{ c=n-a-b; f=n-d-e;i=n-g-h; t=ax*xb*oe; // 确 保 3 数 为 正 ,3 组 和 等 于 n 
if(dxexf==t && gx*h* i==t) // 确 保 积 相等 
{ printf(” %d:%3d%3d%3d; ",++s,a,b,c); 
printf ("% 3d % 3d % 3d; "de,f); 
printf ("%3d %3d%3d; %1d)\n",g,h, i,t); 


} 
if(s>0) printf(” 共 以 上 %d 组 解 I\n",s); 
else printf(” 无 解 1\n"); 

} 


3. 程序 运行 示例 与 说 明 


请 输入 整数 n: 150 

1: 8 65 77; 11 35104; 14 26110; (40040) 
2:20 64 6%6; 22 48 80; 30 32 88; (84480) 
3:34 56 60; 35 51 64; 40 42 68; (114240) 
共 以 上 3 组 解 ! 


车 输入 n= 二 100, 则 输出 前 面 探 求 结论 的 3 个 解 。 
请 运行 程序 ,探索 存在 基于 n 的 和 积 3 元 3 组 的 整数 n 至少 为 多 大 。 


4.6 解 不 等 式 


某 些 涉及 整数 的 不 等 式 求解 用 通常 推理 的 方法 是 无 法 完成 的 ,这 就 为 应 用 程序 设计 
解 这 些 不 等 式 提供 了 空间 。 

本 节 探 索 求 解 有 代表 性 的 “调和 数列 不 等 式 ” 与 “代数 和 不 等 式 ”, 开 启 应 用 程序 设计 
解决 通常 推理 所 无 法 完成 的 不 等 式 求解 的 先河 。 
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4.6.1 调和 数列 不 等 式 


在 求解 调和 数列 不 等 式 之 前 , 先 了 解 两 个 有 趣 的 发 散 和 。 
1. 调和 级 数 的 发 散 性 证 明 
由 调和 数列 各 元 素 相 加 所 得 的 和 为 调和 级 数 ,s 一 >) 二 在 级 数 中 扮演 着 重要 的 角 


色 , 它 通常 作为 去 判断 另外 一 个 级 数 发 散 的 标准 ,许多 级 数 的 证 明 都 与 它 有 关 . 因 此 ,对 调 
和 级 数 的 敛 散 性 的 研究 是 非常 重要 的 。 


【命题 1】 调和 级 数 s 一 > 工 是 发 散 的 。 
n=1 
[征明 1 中 世纪 后 期 数学 家 Oresme 在 1360 年 就 证 明了 调和 级 数 是 发 散 的 。 其 


证 明 过 程 如 下 所 示 。 


S =1 十 1/2 十 1/3 十 1/4 十 1/5 十 1/6 十 1/7 十 1/8 十 … 
三 1 十 1/2 十 (1/3 十 1/4) 十 (1/5 十 1/6 十 1/7 十 1/8) 十 (1/9 十 1/10 十 … 十 1/16) 十 … 
之 1 十 1/2 十 (1/4 十 1/4) 十 (1/8 十 1/8 十 1/8 十 1/8) 十 (1/16 十 1/16 十 … 十 1/16) 十 … 
一 1 十 1/2 十 1/2 十 1/2 十 … 

注意 : 这 样 的 1/2 有 无 穷 多 个 ,所 以 S 趋 向 无 穷 大 ,从 而 证 得 调和 级 数 是 发 散 的 。 

【证 明 2】〗 应 用 以 下 的 反 证 法 证 明 调和 级 数 发 散 也 颇 有 特色 。 


假设 调和 级 数 > 二 收敛 于 S, 可 知 


S 六 1 十 去 十 言 十 十 十 … 十 一 十 址 1 
和 1) 十 | 元 2 二 冯 外 

之 1+ 当 + (去 + 二 有 +( 直 + 去 上 + 
Ed 

本 


因而 有 S> 读 十 S, 矛 盾 ,所 以 假设 不 成 立 , 即 调和 级 数 必 发 散 。 


顺便 指出 , 欧 拉 在 1734 年 利用 Newton 的 成 果 , 首 先 获得 了 调和 级 数 有 限 多 项 和 的 
。 结 果 是 


1 十 1/2 十 1/3 十 1/4 十 … 十 ln 二 ln(n 十 1) 十 r(r 为 常量 ) 人 
这 里 r 约 为 0.577 215 664 9, 这 个 数字 就 是 后 来 的 欧 拉 常数 。 
由 以 上 欧 拉 等 式 , 因 lnCn 十 1) 是 发 散 的 ,可 知 调和 级 数 是 发 散 的 。 
调和 级 数 的 分 母 为 所 有 正 整数 ,事实 上 ,分母 为 正 整数 的 某 些 子 集 的 分 数 之 和 也 可 能 


发 散 。 例 如 ,有 以 下 更 有 趣 的 命题 。 
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【命题 2】 分 母 的 高 位 是 9 的 分 数 之 和 是 发 散 的 。 

【证 明 】 首先 探讨 高 位 是 9 的 k 位 整数 的 个 数 。 

当 k 王 1 时 ,只 有 一 个 , 即 整数 9; 

当 k 一 2 时 ,高 位 是 9 的 2 位 整数 有 10 个 , 即 90,91,…,99; 

当 二 3 时 ,高 位 是 9 的 3 位 整数 有 100 个 , 即 900,901,…,999; 
一 般 地 ,高 位 是 9 的 kk 位 整数 有 10e!: 个 : 9X1loe! 一 10* 一 1。 
因而 ,分 母 为 所 有 高 位 是 9 的 分 数 之 和 


1 1 a 1 项 1 CE 1 | 。。 
S= +90+ol Do OT 


10 现 10"! 项 


本 
>10 + 10 习 而 


即 证 得 分 母 为 所 有 高 位 是 9 的 分 数 之 和 发 散 。 


当然 ,把 上 述 命题 中 的 数字 9 换 成 数字 8 或 其 他 非 零 数字 ,命题 也 成 立 。 
2. 解 调和 数列 不 等 式 
对 指定 的 正 数 x,y(2 二 x 二 y) , 试 求 满足 调和 数列 不 等 式 (2) 的 正 整数 n。 
站 1 

让 寺 二 证 卡 0 十 十" 之 cy 
输入 正 整 数 x,y, 输 出 正 整数 n 的 取 值 范围 。 
(1) 设计 要 点 。 
设 和 变量 为 s, 在 s 三 x 的 条 件 循环 中 ,n 从 1 开始 递增 1, 对 每 一 个 n 求 和 s=s 二 1/n， 


直至 出 现 s>x 退出 循环 ,赋值 c= 二 n, 所 得 整数 c 即 为 解 区 间 的 下 限 。 


继续 在 s 二 y 的 条 件 循环 中 ,n 继续 递增 1, 对 每 一 个 n 求 和 s==s 十 1/n, 直 至 出 现 s 宇 y 


退出 循环 ,赋值 4 二 n 一 1, 所 得 整数 d 即 为 解 区 间 的 上 限 。 
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打印 输出 不 等 式 的 解 区 间 [c,d]。 
(2) 程序 设计 。 


// 求 解 调和 数列 不 等 式 
# include < stdio. h> 
voidmain0 
{ long c,d,n; double x,y, s, s1, s2, s3, s4; 
printf(” 请 输入 正 数 x,y (2< x<y): ");scanf("% 1f,% 1f", &x, &y) ; 


n=0;s=0; 
while(s<=x) // 循 环 求 和 探索 n 的 下 确 界 
s=st1.0/(++n); 
c=n;s2= s;s1= s2- 1. 0/n; // 记 录 c 及 其 前 一 整数 时 和 值 
do 
s=st1.0/(++n); // 循 环 求 和 探索 n 的 上 确 界 d 
while(s<y); 
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dn-1;s3s-1.0/n;s4- s; // 记 录 d 及 其 后 一 整数 时 和 值 
printf(” 满足 不 等 式 的 解 为 : %1d<n<% Id \n",c,d); 
printf(” 注 :n=%1d 时 s=%2.8f;n=%1d 时 s=%2.8f\n",c-1,s1,c, s2); 
printf(” n=%1d 时 s=%2.8f;n=%1d 时 s=%2.8f\n",d,s3,d+1,s4); 
} 


(3) 程序 运行 示例 与 说 明 。 


请 输入 正 数 x,y (2< x<y): 10,15 

满足 不 等 式 的 解 为 : 12367<n<1835420 

注 :n= 12366 时 s=9.99996215;n= 12367 时 s= 10. 00004301 
n= 1835420 时 s= 14. 99999983;n= 1835421 时 s= 15. 00000038 


程序 中 记录 并 输出 了 n 取 上 下 限 附 近 时 和 s 的 值 , 是 为 了 说 明 结 论 的 精准 性 。 
尽管 调和 级 数 的 和 可 达 无 限 大 ,但 输入 的 正 数 x,y 不 能 太 大 。 对 于 x 一 10,n 达 5 位 
数 ;y 二 15,n 达 7 位 数 ,可 见 n 随 x 或 y 的 增 大 而 迅速 增 大 。 


4.6.2 代数 和 不 等 式 
试 解 下 列 关 于 正 整 数 n 的 代数 和 不 等 式 
yr 
V2 V3 V4 V5 6 Vn 
(表达 式 中 符号 为 两 个 十 号 后 一 个 一 号 ) 
从 键盘 输入 正 数 d(d 二 1) ,输出 正 整数 n 的 值 。 
1. 设计 要 点 
(1) 寻求 区 间 解 。 
设置 条 件 循环 ,从 第 2 项 开始 每 3 项 (十 ,一 ,十 ) 一 起 求 和 。 
赋 初 值 n= 二 1,s==1, 通 过 循环 求 和 
s= s+ 1.0/sqrt (n+ 1)- 1.0/sqrt (n+ 2)+1.0/sqrt (n+ 3); 


当代 数 和 s 二 二 d 时 ,退出 循环 。 

所 求 大 于 d 的 和 s 即 为 s(n 十 3), 易 知 后 面 的 s(n 十 4) ,s(n 十 5),… 全 都 大 于 s(n 十 
3) ,因而 得 一 个 区 间 解 Ln 十 3,cc] ,并 注 明 大 于 d 的 和 s(n 十 3)。 

(2) 注意 探求 离散 解 。 

离散 解 只 可 能 在 减 项 的 前 一 项 。 还 不 易 证 明 离 散 解 的 个 数 ,因而 设置 循环 检测 。 

设置 条 件 循环 (条 件 m 所 =n 一 2, 以 确保 离散 解 在 区 间 解 之 前 ) ,从 第 3 项 开始 每 3 项 
(一 ,十 ,十 ) 一 起 求 和 。 

赋 初 值 m= 二 2,s 二 3/2, 通过 循环 求 和 


s= s- 1.0/sqrt (mt 1)+ 1.0/sqrt (mt 2)+ 1.0/sqrt (m+ 3); 


若 代 数 和 s 二 二 d, 则 这 里 所 得 到 的 大 于 d 的 和 s 即 为 s(m 十 3), 因 而 得 一 个 离散 解 
n 一 m 十 3 ,并 注 明 大 于 d 的 和 sCm 十 3) 。 


远 诅 (3) 
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2. 程序 设计 
// 解 涉及 根 号 的 代数 和 不 等 式 
# include < stdio.h> 
# include < math. h> 
voidmain0 
{ double d,m,n,s,t; 
printf(” 请 输入 正 数 d(d> 1):"); scanf("% 1f",&d) ; 
m1;s=1; 
while(1) 
{ s= s+1.0/sqrt (n+ TD)-1.0/sqrt (n+2)+1.0/sqrt(n+ 3); 
if(s>=d) break; 
n= n+3; // 每 3 项 一 组 求 和 
printf(” ”区间 解 :n 宇 %.0f ",n+ 3); // 打 印 区 间 解 [n+ 3,…] 
printf(" 注 :s (%.0f)=%.8f\n", n+ 3, s); 
m2;s=1+1.0/sart (2); 


while(m=n-2) 
{ s=s-1.0/sqrt(mt 1)+1.0/sqrt (mt 2)+1.0/sqrt (mt 3); 
if(s>=d) 
{ printf(" 离散 解 :n=%.0f ",mt 3); // 打 印 离散 解 


printf(" 注 :s(%.0f)=%.8f\n",mt 3, s); 
} 
mM mt 3; // 每 3 项 一 组 求 和 


} 

3. 程序 运行 示例 与 说 明 

请 输入 正 整 数 d(d> 1) :100 

区 间 解 :n 宇 22399 ” 注 :s (22399)= 100. 00233432 


离散 解 :n= 22397 ” 注 :s(22397)= 100. 00233447 


如 果 遗 漏 离散 解 ,将 导致 求解 不 等 式 解 的 不 完整 。 

随 着 d 的 增加 , 解 值 n 会 迅速 增长 而 变 得 非常 大 ,甚至 超出 相应 变量 的 范围 或 计算 机 
的 计算 范围 ,这 时 就 不 可 能 得 到 不 等 式 的 正确 解 。 

变通 : 把 不 等 式 中 “二 正 一 负 ” 的 规律 改变 为 “三 正 一 负 ”, 程 序 应 如 何 修改 ? 试 求 出 
修改 后 的 不 等 式 大 于 5 的 解 。 


4.7 和 与 积 的 整数 部 分 


解 不 等 式 与 解 方程 紧密 关联 ,有 时 候 处 理 不 等 式 的 技巧 要 求 更 强 。 
本 节 求 解 两 例 涉及 平方 根 的 和 ,平方 根 倒数 和 及 涉及 分 数 连 乘 积 的 不 等 式 , 用 以 确定 
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涉及 平方 根 的 和 、 平 方 根 倒数 和 及 涉及 分 数 连 乘积 的 整数 部 分 ,并 实施 编程 拓展 至 一 般 
情形 。 


4.7.1 平方 根 的 两 个 和 


本 节 先 解决 具体 涉及 正 整 数 的 平方 根 和 与 平方 根 倒数 和 的 整数 部 分 ,然后 统一 编程 
拓展 解决 一 般 区 间 [c,d] 上 的 整数 平方 根 和 与 平方 根 倒数 和 的 整数 部 分 。 
【问题 1】 试 求 以 下 涉及 平方 根 和 
si 二 1 十 V2 十 V3 十 … 十 V900 Kl 
的 整数 部 分 [si ]。 
【思考 】 根据 第 13 届 普 特 南 数 学 竞赛 给 出 的 涉及 前 n 个 正 整 数 的 平方 根 和 不 等 式 


SnVa <1+y 本 皇宫 Vi < 3a (2) 
以 n==900 代入 (2) 化 简 可 得 
18000 二 1 十 VE 十 V3 十 … 十 V900 < 18015 


因为 不 等 式 (2) 精 度 不 够 ,上 下 限 相差 15, 无 法 求 出 [si]。 

看 来 要 求 出 [si] ,可 以 从 加 强 关 于 si 的 不 等 式 的 精度 入 手 。 如 果 不 等 式 的 精度 能 使 
si 的 上 下 限 都 处 于 某 两 个 相 邻 整数 之 间 , 则 [si] 可 求 。 

【命题 1】 对 任意 正 整 数 n 有 不 等 式 


2n + + 3 <B< 1 (C9) 
【证 明 】 ey 
当 n 王 1 时 , 式 (3) 显 然 成 立 等 号 。 
假设 当 n= 二 k(k 宇 1) 时 命题 成 立 , 当 n 二 k 十 1 时 ,要 证 式 (3) 左 端 下 限 不 等 式 成 立 ,只 
要 证 


2 十 D) 十 2 ET 二 全 十 2 RE ETT 
3 3 
化 简 即 


(zk 一 1 十 V2) Vk+1 < (2k 十 V2) Vk 
© (2k 一 1 十 V2)2(k 十 1) < (2k 十 V2)2 。k 
全 3 一 2V2 入 (3 一 2V2)k 
因 3 之 2 V2,k 宇 1, 上 式 显然 成 立 , 即 式 (3) 左 端 下 限 不 等 式 成 立 。 
当 n= 二 =k 十 1 时 ,要 证 式 (3) 右 端 上 限 不 等 式 成 立 , 只 要 证 


3 VE VETI< HD+ rar 


化 简 即 
(4k 十 3) Vk < Ak+1) Vk+1l 
全 16ks 十 24k: 十 9k 过 16k? 十 24k? 十 9k 十 1 
上 式 显 然 成 立 , 即 式 (3) 右 端 上 限 不 等 式 成 立 。 


185 ， 
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因而 不 等 式 (3) 得 证 。 
【求解 】 于 式 (3) 取 n 一 900, 有 
18000 el =s =18015 一 18015 
注意 到 
PD 1 > 14©29>419 1682> 1681 
因而 得 


18014 = s = 18015 (4) 
于 是 得 [si] 王 18014。 

由 这 一 问题 求解 可 见 , 不 等 式 (3) 的 精度 高 于 式 (2)。 

能 依据 不 等 式 (3) 求 得 前 900 个 正 整数 的 平方 根 和 的 整数 部 分 ,难能可贵 。 如 果 更 进 
一 步 求 前 2019 个 正 整 数 的 平方 根 和 的 整数 部 分 ,那么 不 等 式 (3) 也 无 能 为 力 , 可 借助 程序 


设计 求解 。 
【问题 2】 试 求 以 下 涉及 平方 根 倒数 和 
和 1 
| (5) 
EY V2019 
的 整数 部 分 [s; ] 。 
【思考 】 据 美国 新 数学 丛书 4 几何 不 等 式 》 给 出 的 涉及 正 整数 n 的 不 等 式 
2 VETi ?< 后 <2W 2 Va—1 (6) 
n 
可 得 
2 AT ?< 六 二 <2W 1 (7) 


因为 式 (7) 精 度 不 够 , 取 n 一 2019 时 所 得 ss 的 上 下 限 相差 较 大 ,所 以 无 法 求 出 [s,]。 

从 加 强 关 于 正 整数 的 平方 根 倒数 和 的 不 等 式 的 精度 入 手 。 如 果 不 等 式 的 精度 能 使 ss 
的 上 下 限 都 处 于 某 两 个 相 邻 整数 之 间 , 则 [ss] 可 求 。 

【命题 2】 对 任意 正 整数 n 的 平方 根 倒数 有 不 等 式 


2 /n+ 亩 一 n 一 让 过 十 mS /n /n (8) 


【证 明 】 式 (8) 右 端 不 等 式 即 


L 1 1 2 
2 J 2 /mn ~ 
/ 2 2 
a Vn n+ 二 十 作 一 去 
2 2 
[ls 1 
(| n+ 5 丰 .1 | <4n nm 4 过 酒 


式 (8) 左 端 不 等 式 即 
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可 和 
( /n+ 其 十 /In dh n 之 1 


显然 成 立 。 不 等 式 (8) 得 证 。 
于 式 (8) 取 n 为 1,2,…,n, 求 和 相 消 ,得 平方 根 倒数 和 不 等 式 


9 1 
2 ja n 十 吉 一 "2 (9) 
【求解 】 于 式 (9) 取 n 一 2019 ,注意 到 


88=2 j2019+ 访 一 守之 2 2019 十 去 一 /2 之 89 


因而 得 ss 的 整数 部 分 [ss] 二 88。 
能 依据 不 等 式 (9) 求 得 前 2019 个 正 整 数 的 平方 根 倒数 和 的 整数 部 分 ,说 明 式 (9) 的 精 


度 比 较 高 。 
【编程 拓展 】 一 般 地 , 试 求 区 间 [c,d] 上 整数 的 平方 根 和 sl 与 平方 根 倒数 和 s2 
sl 一 \ce 十 Vc 十 1 十 … 十 Vd (10) 
S61 L 颖 年 并 (11) 


Ac ES Vd 
的 整数 部 分 Ls1],[s2]。 
(1) 设计 要 点 。 
设置 区 间 [c,dj 的 条 件 循环 ,通过 累加 求 正 整数 k(c 一 d) 的 平方 根 和 sl, 同时 求 正 整 
数 k(c 一 d) 的 平方 根 倒数 和 s2(sl 与 s2 均 设 置 为 双 精 度 变量 )。 
后 输出 s1,s2 的 整数 部 分 。 
(2) 程序 设计 。 


// 探 求 区 间 上 平方 根 和 与 平方 根 倒数 和 的 整数 部 分 
# include《“math.h> 
# include < stdio. h> 
voidmain0 
{ int c,d,k; double s1,s2; 
printf(" 请 指定 区 间 [c,d] 的 正 整 数 c,d:"); 
scanf ("% d, %d", &c, &d) ; 


k= c-1;s1= s2= 0; /Wk, s1, s2 赋 初 值 
while(k<d) // 区 间 [c,d] 上 循环 求 和 
{ k++; 
s1= s+ sqrt (k) ; // 累 加 求 平 方 根 和 s1 
s2= s2+ 1/sqrt (k) ; // 累 加 求 平方 根 倒数 和 s2 


} 
printf(” 区 间 中 平方 根 和 的 整数 部 分 [s1]=%. 0f.\n", floor (s1)); 
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printf(” 区 间 中 平方 根 倒数 和 的 整数 部 分 [s2]=%.0f. \n"，floor (s2)) ; 
} 


(3) 程序 运行 示例 与 说 明 。 


请 指定 区 间 [c,d] 的 正 整 数 c,d: 1000, 2019 
区 间 中 平方 根 和 的 整数 部 分 [s1]= 39436. 
区 间 中 平方 根 倒数 和 的 整数 部 分 [s2]= 26. 


如 果 输 入 c 一 1, 即 得 前 面 的 前 d 个 正 整 数 的 平方 根 和 及 倒数 和 的 整数 部 分 。 以 上 程 
序 把 范围 从 1~n 拓展 到 一 般 区 间 [c,d] ,应 用 更 为 灵活 方便 。 

上 面 据 不 等 式 (2) 推 出 n 一 900 时 的 整数 部 分 ,这 只 是 一 些 个 例 ,并 非 对 所 有 小 于 900 
的 n 都 能 推出 ;而 运行 以 上 拓展 程序 求 指定 整数 平方 根 和 的 整数 部 分 都 能 畅通 无 误 。 


4.7.2 分 数 连 乘积 


探求 分 数 连 分 数 的 整数 部 分 , 另 有 一 番 乐 趣 。 
【问题 3】 试 求 分 数 连 乘积 
2。4。…。1200 


下 (12) 


的 整数 部 分 [全]。 
【思考 】 建立 相应 的 不 等 式 作为 求解 依据 。 
根据 N. D. 卡 扎 里 诺 夫 的 《几何 不 等 式 》( 北 京 大 学 出 版 社 ,1986) 所 给 出 的 不 等 式 


VFI < VinTtl (13) 


因为 该 不 等 式 的 上 下 限 的 差距 太 大 ,所 以 不 能 求 取 T 的 整数 部 分 。 
对 于 了 给 出 的 分 数 乘积 ,有 更 为 精细 的 一 般 不 等 式 。 
【命题 3】 对 正 整数 n, 有 不 等 式 
4n 十 2 7 2。4。…。(2n) 4n 十 1 
vn i I 
当 且 仅 当 n==1 时 式 (14) 等 号 成 立 。 
【证 明 】 用 数学 归纳 法 证 。 
当 n=1 时 显然 成 立 等 号 。 
假设 n 时 不 等 式 (14) 成 立 , 下 面 证 n 十 1 时 式 (14) 也 成 立 。 
证 当 n 十 1 时 式 (14) 左 端 不 等 式 成 立 , 只 要 证 


4 二 ID 二 2， 三 了 n+2. /7 .2Cn 十 1) 
3 4Cna 十 D) 十 3 3 4n 十 3 ” 2n 十 1 
化 简 即 


4 6 7 一 各 +2. /7 .22 年 十 3 2n+2 
3 4n 十 7 8 4 十 3 ”25 十 1 4n 十 7 26 十 3 
4n 十 3 4n2z 十 8n 十 4 


4n 7 < an 2 9 


全 27 一 28 


(14) 


(4n 十 3)(4n2z 十 12n 十 9) 过 (4n 十 7)(4m 十 8n 十 4) 
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显然 成 立 , 即 式 (14) 左 端 不 等 式 成 立 。 
证 当 n 十 1 时 式 (14) 右 端 不 等 式 成 立 , 只 要 证 


tnF1 .2 十 1) nF FI 
2 
化 简 即 


2 /Ee <2 nt2) VnTFI< (2n 十 1) VinTs 


2n + 
S (4n2 十 8n 十 4)(4n 十 1) < (4n2 十 4n 十 1)(4n 十 5) 舍 4 过 5 
显然 成 立 , 即 式 (14) 右 端 不 等 式 成 立 。 
因而 不 等 式 (14) 得 证 。 
【求解 】 于 不 等 式 (14) 取 n= 二 600, 注 意 到 
43 < 4X600+2 EE />t a 
即 式 (12) 给 出 的 连 乘积 T 的 整数 部 分 为 [T] 一 43。 
【编程 拓展 】 对 于 给 定 的 区 间 [c,d] ,探求 分 数 乘积 


《2 的 KG 二 
eI et Dd 


以 上 分 数 乘积 式 中 ,分 子 全 为 偶数 ,分 母 全 为 奇数 ,各 个 分 子 比 相应 分 母 多 1。 

试 求 T(c,d) 的 整数 部 分 LTCc,d)]。 

(1) 设计 要 点 。 

设置 条 件 循环 控制 k 取 指定 区 间 [c,dj] 上 的 整数 ,对 每 一 个 k, 把 (2 x k)/(2x*k 一 1) 
累 乘 到 双 精 度 变 量 t 中 。 

最 后 输出 t 的 整数 部 分 floor(t)。 

(2) 程序 设计 。 


// 探 求 区 间 上 分 数 乘积 的 整数 部 分 

# include < math. h> 

# include < stdio. h> 

voidmain0 

{ int c,d,k; double t; 
printf(" 请 指定 区 间 [c,d] 的 正 整数 c,d: "); 
scanf ("% d, %d", &c, &d) ; 


(15) 


Tec,d) 


k=o-1;t=1; /Wk,s 赋 初 值 
while(k<d) // 区 间 [c,d] 上 循环 求 和 
{ k++; 
t=tx (2xk)/(2xk- 1); // 累 乘 求 分 数 乘积 t 


} 
printf(” 区 间 上 分 数 乘积 的 整数 部 分 [T]=%.0f。\n ", floor (t)); 
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(3) 程序 运行 示例 与 说 明 。 


请 指定 区 间 [c,d] 的 正 整 数 c,d: 1,2019 
区 间 上 分 数 乘积 的 整数 部 分 [T]= 79。 


如 果 输 入 ec 一 1,d 一 600, 即 可 得 到 前 面 求解 的 分 数 乘 积 的 整数 部 分 。 


4.8 猴子 分 桃 与 水 手 分 椰子 


本 节 论述 的 “猴子 分 桃 ”与 “水 手 分 椰子 ”这 两 个 著名 趣 题 , 都 涉及 “分 ”, 而 且 分 的 形式 
基本 相同 。 
为 避免 把 这 两 个 问题 相 混 , 本 节 痢 析 两 者 的 联系 及 其 区 别 ,并 统一 编程 拓展 。 


4.8.1 猴子 分 桃 


1979 年 , 诺 贝尔 奖 获 得 者 李 政道 教授 到 中 国 科 技 大 学 讲学 ,他 给 少年 班 的 同学 出 了 
这 样 一 道 算术 题 : 

有 5 只 猴子 在 海边 发 现 一 堆 桃子 ,决定 第 二 天 来 平分 。 第 二 天 清晨 ,第 一 只 猴子 最 早 
来 到 , 它 左 分 右 分 分 不 开 , 就 朝 海里 扔 了 一 只 ,恰好 可 以 分 成 5 份 , 它 拿 上 自己 的 一 份 走 
了 。 第 2,3,4,5 只 猴子 也 遇 到 同样 的 问题 ,采用 了 同样 的 方法 ,都 是 扔 掉 一 只 后 ,恰好 可 
以 分 成 5 份 。 

【问题 1】 问 这 堆 桃 子 至 少 有 多 少 只 。 

据说 当时 没有 一 个 同学 能 当场 做 出 答案 。 怎 么 解 ? 

【 递 推 求解 】 设 原 有 桃子 x 个 ,最 后 剩 下 y 个 


第 一 个 狭 子 连 拿 带 扔 为 十 1 pe 人 4 一生 (x 十 4 一 4。 


后 (x+4) 一 = 


第 2 个 猴子 连 拿 带 扔 为 -一 | 人 全, 利 下 二 (Gxt) 一 4 一 音 (x+D 


2 
每 (x+ 和 一 4。 


第 3 只 猴子 又 从 剩 下 的 桃 中 扔 掉 一 个 , 拿 去 4/5。 
以 此 类 推 , 第 5 人 拿 去 4/5, 得 剩 下 桃 数 为 


y 一 fd 


. 
要 使 y 为 整数 ,x 十 4 至 少 为 55 二 3125, 因 而 得 x 至 少 为 3121 个 ,此 时 y= 人 一 4 二 1020。 
【 妙 思 巧 解 】 如 果 借 4 个 桃子 .恰好 每 次 都 能 平分 成 5 份 。 
设 开始 有 x 个 桃子 借 了 4 个 后 就 是 (x 十 4) 个 桃子 。 每 次 就 余下 前 次 对 应 的 4/5, 借 
了 4 个 桃子 后 等 第 5 只 猴子 来 过 后 应 该 余下 的 桃子 是 (4/5)5 (x 十 4 个 ,x 十 4 必须 是 5 的 
5 次 方 的 倍数 。 
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注意 到 5 一 3125, 即 x 十 4 至 少 是 3125, 即 x 至 少 是 3121。 

此 时 余下 的 桃子 是 1024 个 ,但 借 了 的 4 个 要 还 回去 ,实际 余下 的 是 1020 个 。 
一 道 经 典 难题 就 轻松 解决 了 ,我 们 学 习 数 学 就 是 去 享受 思考 的 乐趣 。 

下 面 拓 展 到 一 般 的 n 猴 分 桃 问题 。 


1. n 猴 分 桃 问题 

有 mn 只 猴子 在 海边 发 现 一 堆 桃 子 ,决定 第 二 天 来 平分 。 第 二 天 清晨 ,第 一 只 猴子 最 早 
来 到 , 它 左 分 右 分 分 不 开 ,就 朝 海 里 扔 了 一 只 ,恰好 可 以 分 成 mn 份 , 它 拿 上 自己 的 一 份 走 
了 。 第 2,3,…,n 只 猴子 也 遇 到 同样 的 问题 ,采用 了 同样 的 方法 ,都 是 扔 掉 一 只 后 ,恰好 可 
以 分 成 n 等 份 。 

输入 猴子 数 n(1 二 n=9) ,输出 这 堆 桃 子 至 少 有 多 少 只 ,并 逐次 输出 分 桃 数量 。 


2. 编程 设计 要 点 

设置 y 数 组 ,y(k)(k 二 1,2,…,n 十 1) 为 第 个 猴 所 面临 的 桃子 数 , 其 中 y(n 十 1) 为 一 
个 整数 。 要 求 这 堆 桃 子 至 少 有 多 少 只 , 即 求 y(1) 至 少 为 多 大 。 

(1) 建立 递 推 关系 。 

建立 相 邻 y 数组 元 素 之 间 的 递 推 关 系 是 编程 的 关键 所 在 。 

第 i 个 猴 面临 yGD 个 桃 , 扔 掉 一 只 后 变 为 y(D 一 1, 分 为 n 等 份 后 拿 去 一 份 ,余下 n 一 1 
份 即 为 下 一 个 猴 面临 的 桃 数 Ci 十 1) , 即 


yGi+D = 2 二 LoyGD 一 1) (1) 


这 就 是 y 数 组 的 递 推 关系 ,由 y(GD 即 可 推出 yGi 十 DD, 即 yD>y(2) 一 … 一 y(n) 王 y(n 十 1)。 

注意 : 最 后 推出 y(n 十 1) ,这 里 只 要 y(n 十 1) 为 整数 即 可 。 

问题 是 这 里 的 y(1) 所 求 的 原 有 桃 数 , 即 y(1) 并 不 知道 ,可 令 y(1) 取 某 一 个 初始 值 , 按 
公式 (1) 若 不 可 连续 推出 n 个 整数 , 则 y(1) 增 1 后 再 试 ,直到 可 连续 推出 n 个 整数 y(2),…， 
y(n) ,y(n 十 1), 则 y(1) 为 所 求 的 原 有 最 少 桃 数 。 

按 公 式 (1) 递 推 从 第 一 个 猴 开 始 , 这 是 自然 的 。 因 为 y(1) 比 y(2) 大 ,y(2) 比 y(3) 大 ， 
按 公式 (1) 递 推 是 由 大 推 小 实施 。 

以 下 编程 按 公 式 (1) 递 推展 开 。 

(2) 建立 循环 。 
建立 ii~n 二 1) 循环, 在 循环 中 若 y(GiD) 不 为 整数 , 则 中 止 递 推 ,y(1) 重 新 增值 后 再 行 
递 推 ,直到 所 有 mn 个 y() (i 二 n 十 1,…,2) 都 为 整数 ,得 y(1) 即 为 所 求 的 原 有 最 少 桃 数 , 退 
出 循环 。 

设 y(G1) 取 初 值 k, 注 意 到 y(1) 一 1 必须 被 n 整除 ,因而 k 初 值 可 取 n 十 1, 并 取 步 长 为 
n, 可 提高 探索 效益 。 

(3) 输出 结果 。 

为 了 使 输出 的 结果 更 清晰 也 更 有 说 服 力 ,除了 输出 y(1) 即 原 有 桃子 数 外 ,还 循环 输 
出 每 一 猴子 所 面临 的 桃 数 及 其 所 藏 的 桃 数 。 
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3. 程序 设计 

// 拓 展 n 猴 分 桃 递 推 设计 

# include < math. h> 

# include < stdio.h> 

void main0 

{ int i,n; double k,x,y[11] ; 
printf(" 请 输入 猴子 数 n(1<n<9): "); scanf("%d",&n) ; 
i=0;k=n+ 1;y[1]=k; 


while(i<n) 
{ i++; 
y[i+ 1]= (y[i]- 1D/n* -1); // 递 推 求 后 一 个 猴子 时 的 桃 数 
if(y[i+ 1]!=floor (y[i+ 1])) 
{k=k+n; y[1]=k;i=0; } // 确 保 k-1 为 n 整除 


} 

printf(" 原 有 桃子 数 至 少 为 :%.0f 个 .\n",y[1]); 

for(i=1;i<=n;i++) 
{printf(" 第 %2d 个 猴 面 临 桃 数 :%.0f=%dx%.0f+1 个 ,",i,y[i],n,y[i+1]/(m 人); 

printf(" 拿 走 %.0f 个 。\n",y[i+1]/(m- 人 1)); 

ll 

printf(" 最 后 余下 桃子 数 为 :%.0f 个 。\n",y[n+1]); 

} 


4. 程序 运行 示例 与 说 明 


请 输入 猴子 数 n(1<n<9): 5 
原 有 桃子 数 至 少 为 :3121 个 。 
第 1 个 猴 面临 桃 数 :3121= 5* 624+ 1 个, 拿 走 624 个 。 
第 2 个 猴 面 临 桃 数 :2496= 5* 499+ 1 个 , 拿 走 499 个 。 
第 3 个 猴 面 临 桃 数 :1996= 5* 399+ 1 个 , 拿 走 399 个 。 
第 4 个 猴 面 临 桃 数 :1596= 5* 319+ 1 个 , 拿 走 319 个 。 
第 5 个 猴 面临 桃 数 :1276= 5* 255+ 1 个 , 拿 走 255 个 。 
最 后 余下 桃子 数 为 :1020 个 。 


这 就 是 原 题 5 猴 分 桃 的 答案 。 
以 上 “5 猴 分 桃 ”的 前 身 是 曾 流行 美国 的 “5 水 手 分 椰子 ”, 或 者 说 “5 猴 分 桃 ”可 能 是 
“5 水 手 分 椰子 ”简化 而 来 。 


4.8.2 水 手 分 椰子 


“5 水 手 分 椰子 ”这 一 个 趣 题 见 趣 题 大 师 M. 加 德 纳 最 早 发 表 在 (科学 的 美国 人 》1958 
年 第 4 期 上 的 (数学 游戏 ) 一 文 。 该 题 在 美国 (星期 六 晚 邮 报 》 上 介绍 后 更 是 广 为 流 传 。 

为 便于 比较 ,把 “5 水 手 分 椰子 ”问题 表述 于 下 : 

5 个 水 手 来 到 一 个 岛 上 , 采 了 一 堆 椰 子 后 ,因为 疲劳 都 睡 着 了 。 一段 时 间 后 ,第 一 个 
水 手 醒 来 ,悄悄 地 将 椰子 等 分 成 5 份 ,多 出 一 个 椰子 , 便 给 了 旁边 的 猴子 ,然后 自己 藏 起 一 
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份 ,再 将 剩 下 的 椰子 重新 合 在 一 起 ,继续 睡觉 。 不 久 , 第 二 个 水 手 醒 来 ,同样 将 椰子 等 分 成 
5 份 ,恰好 也 多 出 一 个 ,也 给 了 猴子 。 然 后 自己 也 藏 起 一 份 ,再 将 剩 下 的 椰子 重新 合 在 一 
起 。 以 后 每 个 水 手 都 如 此 分 了 一 次 并 都 藏 起 一 份 ,也 恰好 都 把 多 出 的 一 个 给 了 儿子。 第 
二 天 ,5 个 水 手 醒 来 ,发 现 椰子 少 了 许多 ,心照 不 宣 , 便 把 剩 下 的 椰子 分 成 5 份 ,恰好 又 多 
出 一 个 ,给 了 猴子 。 

【问题 2】 问 原来 这 堆 椰 子 至 少 有 和 多少 个 。 

“5 猴 分 桃 ”与 “5 水 手 分 椰子 ”的 区 别 在 于 :“5 猴 分 桃 ” 对 5 猴 按 特定 规则 分 后 所 余下 
的 桃 数 并 未 作 要 求 , 只 要 是 整数 就 行 。“5 水 手 分 椰子 ” 则 要 求 5 水 手 按 特定 规则 分 后 所 
余下 个 数 还 要 通过 如 上 规则 再 分 一 次 ,因而 要 求 更 高 ,分 的 次 数 要 多 一 次 ,导致 所 得 数额 
也 更 大 些 。 

也 许 会 认为 “5 水 手 分 椰子 ” 比 “5 猴 分 桃 ”多 分 一 次 ,只 要 运行 上 述 拓 展 程序 时 输入 
n 二 6 就 行 了 。 实 际 情况 没有 这 么 简单 .输入 n=6 是 分 了 6 次 ,但 每 次 都 是 分 为 6 份 多 一 
个 ,与 5 水手 分 椰子 每 次 只 分 为 5 份 多 一 个 完全 不 同 。 

【 妙 思 巧 解 】 如 果 借 4 个 椰子 ,恰好 每 次 都 能 平分 成 5 份 。 

设 开 始 有 x 个 椰子 , 借 了 4 个 后 就 是 (x 十 4) 个 椰子 。 每 次 就 余下 前 次 对 应 的 4/5, 借 
了 4 个 椰子 后 等 5 个 水 手 分 别 分 过 之 后 ,一 起 醒 过 又 分 一 次 后 应 该 余下 的 椰子 是 (4/5)5 
(x 十 4 个 ,x 十 4 必须 是 5 的 6 次 方 的 倍数 。 
注意 到 5 一 15625, 即 x 十 4 至 少 是 15625 ,x 至 少 是 15621。 
【统一 拓展 】 联系 分 桃子 与 分 椰子 两 趣 题 统一 拓展 。 
注意 到 分 桃子 与 分 椰子 的 分 法 相同 ,只 是 所 分 的 次 数 存在 有 一 次 差异 ,因此 把 这 两 个 
问题 一 并 处 理 , 作 类 型 d 选择 。 

d= 二 0; 水 手 分 椰子 ; 

d 王 1: 猴 分 桃子 。 

除 主体 数 确定 为 一 般 n(2 一 8) , 即 n 个 水 手 或 n 个 猴 外 ,对 每 次 分 时 多 余数 拓展 为 每 
一 次 分 时 多 m(0 一 m<n) 个 。 


1. 程序 设计 要 点 

设置 y 数 组 ,y(k)(k 王 1,2,…,n 十 1) 为 第 k 个 次 分 时 所 面临 的 椰 桃 数 , 其 中 yCn 十 1) 
为 一 个 整数 。 要 求 这 堆 椰 桃 至 少 有 和 多少 只 , 即 求 y(1) 至 少 为 多 大 。 
(1) 建立 递 推 关 系 。 
建立 相 邻 y 数组 元 素 之 间 的 递 推 关 系 是 编程 的 关键 所 在 。 

第 i 个 锋面 临 y 中 个 椰 桃 , 扔 掉 m 只 后 变 为 y(i) 一 m, 分 为 n 等 份 后 拿 去 一 份 ,余下 
n 一 1 份 即 为 下 一 个 猴 面 临 的 椰 桃 数 y(i 十 1) , 即 


yitD = ty) —m) (2) 
这 就 是 y 数组 的 递 推 关系 ,由 y(D 即 可 推出 y(i 十 1)。 
试 把 式 (2) 变 形 为 
yGD = 一 。y(Gi 十 1) 十 mm (3) 
和 一 也 
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由 y(i 十 1) 推 出 GD , 即 yn 十 1) 一 yCn) 一 … 一 y(d) 。 

按 公 式 (3) 递 推 由 后 往 前 推 , 可 能 不 习惯 。 因 为 yn 十 1) 比 yCn) 小 ,yCn) 比 y(n 一 1) 
小 , 即 递 推 是 由 小 推 大 , 递 推 效 益 比 由 大 推 小 要 高 。 

水 手 分 椰子 时 ,d= 二 0, 推 至 y(0) 即 为 原 有 至 少 椰子 数 。 

猴子 分 桃子 时 ,d 二 1, 推 至 y(1) 即 为 原 有 至 少 桃子 数 。 

显然 ,水 手 分 椰子 比 猴子 分 桃子 多 分 一 次 ,符合 题目 的 要 求 。 

具体 递 推 : 可 令 yCn 十 1) 取 某 一 个 初始 值 , 按 公式 (3) 若 不 可 连续 推 至 yCd) , 则 yCn 十 1) 
增值 后 再 试 ,直到 可 连续 推出 整数 y(n),…,y(d), 则 y(d) 为 所 求 。 

以 下 按 公 式 (3) 编 程 递 推 求 y(d) 。 

(2) 建立 循环 。 
建立 in 十 1 一 d) 循 环 ,在 循环 中 若 y(GiD) 不 为 整数 , 则 中 止 递 推 ,yCn 十 1) 重 新 增值 后 再 
行 递 推 , 直 到 所 有 y(i) (i 二 n,…,d) 都 为 整数 ,得 y(d) 即 为 所 求 的 原 有 最 少 个 数 ,退出 
循环 。 

设 y(n 十 1) 取 初 值 k, 注 意 到 y(n 十 1) 必 须 被 n 一 1 整除 ,因而 k 初 值 可 取 n 一 1, 并 取 
步 长 为 n 一 1, 可 提高 探索 效益 。 

(3) 输出 结果 。 

为 了 使 输出 的 结果 更 清晰 也 更 有 说 服 力 , 除 了 输出 yCd) 即 原 有 数 外 ,还 循环 输出 每 
一 轮 所 面临 数 及 其 所 藏 数 。 

注意 到 这 两 个 问题 综合 拓展 ,输出 时 个 别 不 同 语句 分 别 进行 输出 。 


2. 程序 设计 


// 拓 展 分 桃 与 分 椰子 综合 编程 

# include < math. h> 

# include < stdio. h> 

voidmain0 

{ intd,i,j,m,n; double k, x,y[11]; 
printf(” 请 确定 类 型 d( 水 手 分 椰子 0, 猴 分 桃 1): "); scanf("%d",&d); 
printf(” 请 输入 分 的 主体 数 n(1<n<9): "); scanf ("%d",&n) ; 
printf(” 请 输入 每 次 分 时 所 抛 数 m(0<m<n): "); scanf ("%d", &m); 


i=n+t 1;k=n- 1;y[n+t 1]=k; 


while(i> d) 
{ i--;yr=y[i+ 人 xm-TD+m; // 递 推 求 前 一 个 猴 时 的 桃 数 
if (y[i]!= floor (y[i])) 
{ k=ktm1; // 确 保 每 次 递 推 时 k 能 被 -1 整除 


y[n+ 1]=k;i=nt+ 1; 
} 
} 
printf(” 所 求 原 有 数 至 少 为 :%.0f 个.\n",y[d]); 
for (j=0, i=d;i<=n;i++) 
Es 


if(d==0 8&8 i==n) 
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{ printf(” 最 后 一 起 分 时 有 椰子 数 :%.0f=%dx%.0f+%d 个 ,",y[i],n,y[i+1]/(n-1),m); 
printf(" 每 人 得 :%.0f 个 。\n",y[i+1]/(n-1)); 
} 
else 
{ printf(” 第 %2d 个 分 时 面临 数 :%.0f=%dx%.0f+%d 个 ,",j,y[i],n,y[i+1]/(n-1),m; 
printf(" 藏 %.0f 个 .\n",y[i+ 1]/(n- 人)); 
} 
} 
if(d==1) printf(" 最 后 剩余 下 的 桃子 数 为 :%.0f 个 。\n",y[n+ 1]); 
} 


3. 程序 运行 示例 与 说 明 


请 确定 类 型 d( 水 手 分 椰子 0, 猴 分 桃 1) : 0 

请 输入 分 的 主体 数 n(1<n<9): 5 

请 输入 每 次 分 时 所 抛 数 m(0<m<n): 1 

所 求 原 有 数 至 少 为 :15621 个 。 

第 1 个 分 时 面临 数 :15621= 5* 3124+ 1 个, 藏 3124 个 。 

第 2 个 分 时 面临 数 :12496= 5* 2499+ 1 个， 藏 2499 个 。 

第 3 个 分 时 面临 数 : 9996= 5* 1999+ 1 个, 藏 1999 个 。 

第 4 个 分 时 面临 数 : 7996= 5* 1599+ 1 个, 藏 1599 个 。 

第 5 个 分 时 面临 数 : 6396= 5* 1279+ 1 个 , 藏 1279 个 。 

最 后 一 起 分 时 有 椰子 数 : 5116= 5* 1023+ 1 个, 每 人 得 :1023 个 。 


若 输 入 d==1,n 二 5,m 二 1, 即 输出 5 猴 分 桃 的 结果 。 有 兴趣 的 读者 不 妨 就 不 同 的 类 型 
d, 不 同 的 主体 数 n 与 不 同 的 多 余数 m 运行 程序 ,感受 拓展 程序 的 功能 与 所 及 的 范围 。 

如 果 较 大 的 数据 一 时 还 难 理解 ,还 可 以 从 n= 二 2,3 这 些 较 小 的 主体 数 运行 。 例 如 , 运 
行 4=1,n 一 3,m 一 1 的 结果 如 下 ,分析 逐 次 所 分 个 数 就 比较 清楚 了 。 

请 确定 类 型 d( 水 手 分 椰子 0, 猴 分 桃 1): 1 

请 输入 分 的 主体 数 n(1<n<9): 3 

请 输入 每 次 分 时 所 抛 数 m(0< mn): 1 

所 求 原 有 数 至 少 为 :25 个 。 

第 1 个 分 时 面临 数 :25=3* 8+1 个 , 藏 8 个 。 

第 2 个 分 时 面临 数 :16=3x 5+1 个 , 藏 5 个。 

第 3 个 分 时 面临 数 :10=3x 3+1 个 , 藏 3 个 。 

最 后 剩余 下 的 桃子 数 为 :6 个 。 


4.9 解 佩 尔 方程 


佩 尔 (PelD 方 程 是 关于 整数 x,y 的 二 次 不 定 方程 ,表述 为 
x’ 一 ny 一 1 (其 中 m 为 非 平方 正 整 数 ) (1) 
相传 最 早 求解 这 一 不 定 方程 的 是 印度 数学 家 婆 什 伽 罗 。 这 方程 传 到 欧洲 后 ,欧洲 人 
称 为 佩 尔 方程 ,这 实际 上 是 数学 家 欧 拉 的 误会 引起 的 。 实 际 上 佩 尔 并 未 解 过 这 一 方程 , 倒 
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是 费 马 解 过 ,因此 有 人 把 这 一 方程 称 为 费 马 方程 。 

当 x 二 1 或 x 二 一 1,y 二 0 时 ,显然 满足 方程 (1)。 常 把 x,y 中 有 一 个 为 零 的 解 称 为 平 
凡 解 ,我 们 要 求 佩 尔 方程 的 非 平凡 解 。 

佩 尔 方程 的 非 平凡 解 很 多 ,这 里 只 要 求 出 它 的 最 小 解 , 即 x,y 为 满足 方程 的 最 小 正 数 
的 解 ,又 称 基本 解 。 求 出 了 基本 解 ,其 他 解 可 由 基本 解 推出 。 

对 于 有 些 非 平方 正 整数 n, 尽 管 是 求 最 小 解 ,其 数值 也 大 得 惊人 。 例 如 , 当 n 二 991 
时 , 佩 尔 方程 的 基本 解 达 30 位 。 著 名 的 阿 基 米 德 “ 牛 问题 ”的 求解 ,包含 8 个 未 知 数 ,可 转 
化 为 求解 以 下 的 佩 尔 方程 : 


x2 —4729494y* 一 1 (2) 
其 基本 解 超过 40 位 。 
这 人 么 大 的 数值 ,如 何 精准 求 得 ? 其 基本 解 具体 为 多 少 ? 可 以 说 这 是 自然 界 对 人 类 智 
能 的 一 个 挑战 。 
由 此 可 见 , 佩 尔 方程 的 求解 是 有 趣 的 ,其 计算 也 是 繁琐 的 。 


4.9.1 枚 举 试探 求解 


17 世纪 曾 有 一 位 印度 数学 家 说 过 ,要 是 有 人 能 在 一 年 时 间 内 求 出 x 一 92y’ 二 1 的 非 
平凡 解 ,他 就 算得 上 一 名 真正 的 数学 家 。 
【问题 】 试 求解 佩 尔 方程 
x*—92y: 一 1 (3) 
【探求 】 对 于 如 何 解 佩 尔 方程 (1) 的 有 理 数 解 , 有 一 印度 数学 家 给 出 了 以 下 方法 。 
任 取 整数 x 9?y1，X2，y2 ; 令 


对 一 nyi 一 b 
准 一 ny; = bz 
两 式 相 乘 有 
(xx 一 nyi)(Cx — nyi) = bb; 
左边 变形 得 


(nyiys 十 xi xz )2 — n(xiys 十 xzyl)2 一 blb: 
令 习 一 zy 一 史 :此 时 必 有 bi 一 bz , 则 上 式 化 为 


nyf+t+xi 1 ) 
( 加 ) a " 


Yt x 人 至 衬 
这 样 ,就 得 到 佩 尔 方程 (1) 的 上 述 有 理 数 解 。 

例如 ,对 于 n==92, 取 x 二 20,y 二 2, 则 有 20? 一 92X22 一 32, 显 然 bl 一 32。 代 入 式 (4) 
即 得 方程 (3) 的 有 理 数 解 


因此 得 


(4) 


x 一 24,y 一 地 (5) 
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整数 属于 有 理 数 ,只 要 选择 x ,yi 适当 , 按 上 述 方法 也 有 可 能 求 出 佩 尔 方程 的 整数 解 。 
试 把 有 理 数 解 (5) 代 入 方程 (3) 有 
5 


2 一 关 斌 () 一 1 
上 式 两 边 同 乘 4 得 
482 一 92X5 一 4 (6) 


由 式 (6) ,相当 于 取 x 二 48,y 一 5,b: 王 4, 代 入 式 (4) 即 得 


ni x 25 iio 
bi 4 
_2xy _ 2X48X5_ 
二 一 120 


以 x 王 1151,y 王 120 代入 方程 (3) 成 立 , 即 佩 尔 方程 (3) 的 解 。 

退 一 步 说 ,就 是 采用 尝试 法 令 y= 二 2,3,… ,逐一 验证 92y’ 十 1 是 否 为 一 个 整数 x 的 平 
方 来 求解 ,当然 比 上 述 求解 要 繁复 ,但 也 不 至 于 需要 一 年 时 间 。 

【编程 拓展 】 下 面 应 用 编程 探求 佩 尔 方程 (1) 的 基本 解 。 

1. 设计 要 点 

尝试 令 y= 二 2,3,…, 逐 一 验证 ny 十 1 是 否 为 一 个 整数 x 的 平方 。 若 尝试 到 某 一 整数 
y 使 得 ny’ 十 1 为 一 个 整数 x 的 平方 ,所 得 到 的 x,y 就 是 该 佩 尔 方程 的 基本 解 。 

(1) 设置 递增 1 枚 举 循环 。 

为 了 提高 求解 方程 的 范围 ,数据 结构 设置 为 双 精 度 型 。 

设置 y 从 1 开始 递增 1 取 值 , 对 于 每 一 个 y 值 ,计算 a=nx*yx*y 后 判别 。 

若 a 十 1 为 某 一 整数 x 的 平方 , 则 (x,y) 即 为 所 求 佩 尔 方程 的 基本 解 。 

若 a 十 1 不 是 平方 数 , 则 y 增 1 后 再 试 ,直到 找到 解 为 止 。 

应 用 以 上 枚 举 探求 ,如 果 解 的 位 数 不 太 大 ,总 可 以 求 出 相应 的 基本 解 。 

(2) 设置 一 个 枚 举 上 限 。 

如 果 基 本 解 太 大 ,应 用 枚 举 无 法 找到 基本 解 , 此 时 可 约定 一 个 枚 举 上 限 。 

例如 ,可 把 y 二 1e7 作为 循环 条 件 , 当 y 二 二 1e7 时 结束 循环 ,输出 “未 求 出 该 方程 的 基 
本 解 1” 而 结束 。 

这 里 要 注意 , 枚 举 上 限 不 可 设置 太 大 ,例如 , 当 设 置 为 le8 或 1e9 时 ,可 能 使 a 一 nx 
yxy 超 出 双 精 度 范 围 而 出 错 。 


2. 程序 设计 


// 简 单 试探 求解 佩 尔 方程 
# include <math. h> 
# include < stdio. h> 


void main0 


{ double a,m,n,x,y; 
printf(” 解 佩 尔 方程 : x*2-ny 2=1。\n"); 
printf(” 请 输入 非 平方 整数 n: "); scanf("%1f",&n) ; 
m= floor (sqrt (n+ 1)); 
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ifmx m==n) 
{printf(” n 为 平方 数 ,方程 无 正 整数 解 I\n") ; return; } 

y=1; 

while(y< 1e7) 

EC yr 1/ 设置 y 从 1 开始 递增 1 枚 举 
a=nx* y* y;x=floor (sqrt (a+ 1)); 
if(xx x==at1) // 检 测 是 否 满足 方程 


{ printf(” 方程 x*2-%.0fy“2=1 的 基本 解 为 :\n",n); 
printf(" x=%.0Of, y=%.Of\n",x,y); 
return; 
} 
} 
if (y>= 1e7) 
printf(” 未 求 出 该 方程 的 基本 解 !1"); 
} 


3. 程序 运行 示例 与 说 明 


解 佩 尔 方程 : x*2- ny“2=1。 
请 输入 非 平方 整数 n: 73 

方程 x*2- 73y 2= 1 的 基本 解 为 : 
x= 2281249，y= 267000 


如 果 设 置 为 整 型 或 长 整 型 ,方程 的 求解 范围 比 设置 为 双 精度 型 要 小 。 例 如 n 一 73 时 ， 
设置 整 型 或 长 整 型 就 不 可 能 求 出 相应 方程 的 解 。 可 见 , 数 据 结构 的 设置 对 程序 的 应 用 范 
目 有 着 直接 的 影响 。 

以 上 设计 是 递增 枚 举 , 枚 举 复杂 度 与 输入 的 mn 没有 直接 关系 ,完全 取决 于 满足 方程 的 
y 的 数量 。 解 的 y 值 小 , 枚 举 的 次 数 就 少 ; 解 的 y 值 大 , 枚 举 的 次 数 就 多 。 

对 某 些 n, 相 应 佩 尔 方程 解 的 位 数 太 大 , 枚 举 求解 无 法 完成 ,可 进一步 考虑 应 用 连 分 
数 实施 高 精度 求解 。 


4.9.2 ”应 用 连 分 数 高 精 求解 
试 求解 佩 尔 方程 


到 一 99] 开 一 1 | 

以 上 佩 尔 方程 的 基本 解 非常 大 ,以 至 超出 计算 机 的 有 效 数字 范围 ,用 上 述 枚 举 探 求 已 
无 能 为 力 , 而 应 用 连 分 数 可 以 大 大 扩展 求 佩 尔 方程 的 范围 。 

应 用 连 分 数 求解 佩 尔 方程 是 数学 家 布 龙 克 尔 首先 提出 的 ,而 数学 家 拉 格 朗 日 给 出 了 
更 为 完备 的 论述 。 

1. 连 分 数 的 表示 

(1) 分 数 的 连 分 数 。 

所 谓 连 分 数 , 即 如 果 数 上 对 正 整数 al ,a2.…',am 有 以 下 表达 式 : 

数 r= 王 al 十 1/a2, 则 r 的 连 分 数 展 式 为 r* 王 [Lal,a2]; 
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数 r 二 al 十 1/(a2 十 1/a3), 则 了 工 的 连 分 数 展 式 为 r* 一 [al ,a2,a3];… 

例如 ,7/2==3 十 1/2==[3,2], 11/4==2 十 1/(1 十 1/3)= 二 [2,1,3], 等 等 。 

把 数 + 转 化 为 连 分 数 常 用 轧 转 相 除法 。 

(2) 无 理 数 的 连 分 数 。 

数学 家 拉 格 朗 日 证 明 : 一 个 二 次 无 理 数 的 连 分 数 展 式 , 从 某 一 项 后 是 循环 的 。 

例如 ,一 个 非 完 全 平方 整数 n 的 平方 根 的 连 分数 展 式 可 表 为 

Vn = [al;a2,…,am,2al] 

这 里 循环 从 a2 开始 到 2al 这 一 项 为 止 (a2 前 的 ;号 标明 循环 节 的 开始 ) 。 

(3) 渐 近 分 数 与 基本 解 。 

如 果 项 数 m 为 偶数 , 则 对 应 连 分 数 的 第 m 个 渐 近 分 数 pm/qm, 佩 尔 方 程 的 基本 解 为 
x 二 pm,y= qm,。 

如 果 项 数 m 为 奇数 , 则 对 应 连 分 数 展 式 须 向 后 移 一 个 循环 节 , 即 移 到 am 第 二 次 出 
现 ,此 时 的 第 2m 个 渐 近 分 数 p2m/q2m, 佩 尔 方程 的 基本 解 为 x==p2m,y==q2m。 

根据 输入 的 非 平 方 整数 n, 先 行 求 的 连 分 数 展 式 ,然后 再 求 相应 的 第 m 个 ( 当 m 为 
偶数 时 ) 或 第 2m 个 分 数 ( 当 m 为 奇数 时 ), 写 出 相应 的 基本 解 。 

例如 ,求解 佩 尔 方程 x 一 14y’ = 二 1 时 , 先 求 得 V14 一 [3;1,2,1,6],m 一 4,p4/q4 一 15/ 
4, 于 是 有 x 一 15,y 一 4。 

若 求解 佩 尔 方程 x 一 13y* 二 1, 先 求 得 V13==[3;1,1,1,1,6],m 二 5,p10/q10 二 649/ 
180, 于 是 有 x 一 649,y 一 180。 


在 算出 Vn 的 连 分 数 之 后 ,采用 倒 推 计算 渐 近 分 数 pm/qm( 或 bp2m/q2m) 。 


2. 求 Vn 的 连 分 数 展 式 的 递 推算 法 

要 把 无 理 数 Vn 转 化 为 连 分 数 , 如 果 取 它 的 前 若干 位 近似 值 来 做 轧 转 相 除 , 考 虑 到 不 可 
忽略 的 误差 ,有 时 是 行 不 通 的 。 

(1) 改进 的 胃 转 相 除 法 。 

这 时 采用 改进 的 驾 转 相 除 法 ,可 避免 对 Vn 的 具体 数值 计算 , 递 推 求 出 wa 的 连 分 数 展 
式 中 的 每 一 项 a(i)。 

初始 条 件 : 


i=h= 1;u= a(1)= sqrt (n); 
进入 循环 : 
truxu; 


a(++i)= (sqrt (n)+u) x* h/t; 
h=t/h; u=a(i)*h-ui 


(2) 计算 连 分 数 示 例 。 

例如 ,车 n= 二 2019, 按 以 上 操作 推导 M2019 的 连 分 数 ,如 下 所 示 。 

a(1) 一 sqrt(2019) 一 44, h=1, u=a(l)=44,t=2019—44* 44=83; 

a(2) 一 (44 十 44) * 1/83 一 1,h 一 83/1 一 83,u 一 1x 83 一 44 一 39,t 一 2019 一 39 * 
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39=498; 

a(3) 一 (44 十 39) * 83/498 一 13,h 一 498/83 一 6,u 一 13* 6 一 39 一 39,t 一 2019 一 39 x 
39=498; 

a(4) 一 (44 十 39) * 6/498 一 1,h 一 498/6 一 83,u 一 1* 83 一 39 一 44,t 一 2019 一 44 关 
44 一 83; 

a(5) 一 (44 十 44)83/83 一 88。 
由 于 a(5) 王 2* a(1) ,结束 操作 。 
因而 得 到 V2019 的 连 分 数 为 [44;1,13.1.88]。 


3. 渐 近 分 数 的 高 精度 算法 

为 了 准确 计算 佩 尔 方程 的 基本 解 ,根据 所 得 连 分 数 展 式 [al,a2,…',am,2al], 必 须 确 
定 高 精度 计算 渐 近 分 数 pm/qm( 或 p2m/q2m) 的 算法 。 

(1) 数组 设置 。 

计算 的 数值 可 能 非常 大 ,用 常规 运算 , 因 计算 有 效 数 字 的 约束 或 数值 溢出 会 造成 计算 
欠 准 。 为 此 ,引入 两 个 整 型 数组 x(100) ,y(100)( 即 预 置 解 最 多 100 位 ,必要 时 可 增 ) 来 作 
为 数值 计算 的 数位 处 理 。 

设置 x(1) 存 储 x 的 个 位 数字 ,x(2) 存 储 x 的 第 二 位 数字 ,……;y 数组 同样 ,以 此 
类 推 。 

(2) 高 精度 计算 渐 近 分 数 。 

我 们 依据 连 分 数 的 定义 从 后 向 前 具体 递 推 求 出 Vn 的 第 b 个 渐 近 分 数 ( 当 m 为 偶数 ， 
b= 二 m; 当 m 为 奇数 ,b= 二 2m)。 

对 于 a(i) 十 y/x, 算 出 w= 王 xx a(i) 十 y。 然 后 ,x 作为 下 一 轮 递 推 的 y,w 作为 下 一 轮 
递 推 的 x, 继 续 ( 引 入 t 作为 交换 x,y 操作 的 中 间 变 量 ) 。 

对 Vn 的 连 分 数 展 式 中 的 每 一 项 a(i) ,上 述 运算 都 必须 从 低位 到 高 位 逐 位 进行 ,同时 要 
注意 实施 进位 操作 ,为 此 引入 进位 数 h( 显 然 ,h 的 初始 值 为 0) 。 

在 计算 x 的 第 j 位 xG)(G 王 1,2,…,100) 时 ,计算 与 进位 操作 ,如 下 所 示 。 

w=x(j) x a(D 十 y(G) 十 h; (h 为 前 一 位 计算 时 给 出 的 进位 数 ) 


h=w/10; (w 的 从 第 2 位 起 的 数 作为 本 位 计算 的 进位 数 ) 
x(j) 一 w 一 nx 10; (Cw 的 个 位 数 作为 x 乘 a(i) 之 后 积 的 本 位 数 ) 


(3) 输出 方程 的 解 。 
因 预 设 位 数 为 j 二 100, 在 输出 方程 的 解 x,y 时 ,注意 去 掉 x,y 的 高 位 0。 


while(x[j]==0) j-- ;jx=j; 
while(y[j]==0) j-- ;jy=j; 


去 除 x,y 的 100 位 中 的 高 位 0 后 ,从 xj 位 开始 输出 x 的 各 位 数字 ,从 yj 位 开始 输出 
的 各 位 数字 。 

4. 连 分 数 法 求解 程序 设计 

// 应 用 连 分 数 解 佩 尔 方程 
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# include <math. h> 

# include < stdio.h> 

void main0 

{ int i,b, j,k, jx, jy; long n,m,w,h,t,u; 
static int a[100], x[100], y[100]; 
printf(” 请 输入 非 平方 正 整数 n: ") ;scanf ("% 1d", &n) ; 
mF (long) sqrt n) ; 


if (n==mx m) return; // 排 除 n 为 完全 平方 数 
i=1;a[1]= (int)sqrt (n) ;u= a[1];h= 1; // 计 算 根 号 n 的 连 分 数 
printf(” sqrt(%1d)= [%d;",n,a[1]); 

while(TD) 


{ t=n-uxu;a[t+i]= ((int)sqrt (n+u) * h/t; 
h=t/h;u=a[i] * hrui 
if(a[i]==2*x a[1]) break; // 结 束 求 连 分 数 ,退出 循环 
printf ("%d, ", a[i]); 
} 
printf("%d]\n ",2* a[1]); 
for (mi, j=2;j<= (m1)/2;j++) // 检 验 根 号 n 连 分 数 的 对 称 性 
if (a[j] != a[m- j+1]) return; 
y[1]=1;x[1]=afm 1] ;b=m 1; 
if (m% 2==0) // 当 i 为 偶数 时 推 下 一 循环 节 
{ for(j=mr1;j<=2xmr2;j++) 
a[j]=a[j-mt 1]; 
x[1]=a[2* m2];b=2* m- 2; 
} 
for (k=b;k> =2;k--) // 从 低位 到 高 位 倒 推 计算 基本 解 
for (h=0, j=1;j<=100; j++) 
{ t=x[j];w=x[j] * afk- 1]+y[j]+h; 
h=w/10;x[j]=w- hx 10;y[j]=t; 


} 
printf(” 佩 尔 方程 x**2-%1dy“2=1 的 基本 解 为 :\n",n); 
j=100; while(x[j]==0) j-- ;jx=j; // 去 掉 高 位 零 输 出 基本 解 


printf(" x="); 

for (i= jxii>=1;i--) printf ("%d", x[i]); 
printf(".( 共 %d 位 )\n",j); 

j=100; while(y[j]==0) j-- ;jy=j; 
printf(” y="); 

for(i=jy;i>=1;i--) printf ("%d", y[i]):; 
printf("。( 共 %d 位 )\n", Dj ; 


5. 程序 运行 示例 
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请 输入 非 平方 正 整数 n: 991 

sqrt (991)= [31;2, 12, 10,2,2,2,1,1,2,6,1,1,1,1,3,1,8,4 1,2,1,2,3,1,4 1,20,6,4 31,4 6,20,1,41,3,2,1,2,1, 
4,8,1,3,1,1,1,1,6,2,1,1,2,2,2,10,12,2,62] 

佩 尔 方程 x**2- 991y*2=1 的 基本 解 为 : 

x= 379516400906811930638014896080。( 共 30 位 ) 

y= 12055735790331359447442538767。( 共 29 位 ) 


程序 应 用 改进 的 递 推算 法 算出 Vn 的 连 分 数 , 并 在 解 出 方程 的 解 之 前 输出 Vn 的 连 分 数 


表示 。 从 输出 的 sqrt(991) 的 连 分 数 可 以 得 出 , 除 尾 项 62 是 其 首 项 31 的 2 倍 之 外 , 连 分 
数 的 其 他 项 关于 正中 项 31 对 称 。 


当 n 二 991 时 , 佩 尔 方程 (7) 的 解 多 达到 30 位 整数 。 


请 输入 非 平方 正 整数 n: 4729494 


sqrt (4729494)= [2174;1, 2, 1, 5, 2, 25, 3, 1, 1, 1, 1,1,1, 15, 1, 2, 16, 1, 2, 1, 1, 8, 6, 1, 21, 1, 1, 3, 1, 1, 1, 2, 2, 6, 1, 1, 
5,1,17,1,1,47,3,1,1,6,1,1,3,47,1,1,17,1,5,1,1,6,2,2,1,1,1,3,1,1,21,1,6,8,1,1,2,1,16,2,1,15,1,1,1, 
1,1,1,3,25,2,5, 1,2, 1, 4348] 


佩 尔 方程 x*2- 4729494y“2=1 的 基本 解 为 ; 
x= 109931986732829734979866232821433543901088049。( 共 45 位) 
y= 50549485234315033074477819735540408986340。( 共 41 位 ) 


这 就 是 阿 基 米 德 * 牛 问题 "的 佩 尔 方程 (2) 的 精准 解 ,多 达 40 多 位 。 
探求 这 么 大 规模 数据 的 精确 解 , 是 自然 界 留 给 考验 人 类 智慧 的 一 道 刁 钻 的 测试 题 。 


以 上 应 用 并 改进 “ 连 分 数 ”" 算 法 设计 ,解决 了 探求 佩 尔 方程 的 高 精 解 ,顺利 通过 了 这 一 测试 
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这 一 应 用 连 分 数 求解 佩 尔 方程 的 设计 说 明 ,程序 设计 离 不 开 数 学 专业 知识 的 支撑 。 


AAAAA 


精巧 求解 剖析 


精巧 求解 ,包括 高 精度 计算 ,是 最 具 吸引 力 的 亮点 ,也 是 让 人 望而却步 的 难点 。 

本 章 从 互 积 和 与 肉 套 根 式 和 的 巧 算 、 同 码 数 的 整除 及 同 码 数 求 和 规律 的 探索 ,到 建 模 
统计 ,分 类 统计 、 游 戏 中 的 素数 概率 求解 ,突出 一 个 “ 巧 ”* 字 。 同 时 ,从 探索 最 小 0-1 串 积 、 
指定 多 码 串 积 与 尾数 前 移 问 题 等 ,突显 一 个 “ 精 ” 字 。 

探讨 并 拓展 著名 的 梅 齐 里 亚 克 夸 码 问题 与 伯 努 利 装 错 信 封 的 排列 问题 ,是 “ 巧 " 与 “ 精 ” 
结合 的 典范 。 疆 逸 于 数学 殿堂 的 两 个 "幽灵 ”e 和 :凝聚 着 数学 的 精华 ,彰显 出 编程 的 卓越 。 


5.1 和 与 积 巧 算 


本 节 探 讨 简单 的 互 积 和 与 根 式 和 ,不 存在 难点 ,但 求解 技巧 颇具 启发 性 。 
5.1.1 互 积 和 


探求 已 知 整数 组 的 互 积 和 是 涉及 和 与 积 的 常规 题 ,有 和 较 强 的 技巧 性 ,常常 作为 数学 奥 
赛 的 培训 题 或 测试 题 。 

有 9 个 整数 : 一 3, 一 2, 一 1,0,1,2,4,8,16, 对 这 9 个 整数 求 任意 2 个 数 之 积 ,任意 3 
个 数 之 积 ,…… ,直至 所 有 9 个 数 之 积 。 把 所 有 这 些 积 之 和 称 为 这 些 整数 的 互 积 和 。 

【问题 】 试 求 这 9 个 整数 的 互 积 和 m。 

【分 类 求解 】 把 互 积 和 分 类 是 简化 求解 的 关键 。 

可 忽略 0, 因 凡 含有 0 的 积 结果 均 为 0, 对 最 后 结果 没有 影响 。 

注意 到 所 有 正 数 和 为 31, 分 以 下 5 类 情形 考虑 。 

(1) 所 有 正 数 互 积 和 , 设 为 si (不 含 单个 正 数 ) 。 

(2) 所 有 负数 互 积 和 : ss 二 2 十 3 十 6 一 6 二 5。 

(3) 含 1 个 负数 的 互 积 和 : ss 二 (一 1 一 2 一 3)X (si 十 31) 二 一 6s1 一 6X31。 

(4) 含 2 个 负数 的 互 积 和 : ss 二 11X (si 十 31)==11s1 十 11X31。 

(5) 含 3 个 负数 的 互 积 和 : ss 二 一 6X (si 十 31) 二 一 6s1 一 6 X31。 

以 上 5 项 求 和 ,巧妙 消去 其 中 尚未 算出 的 s ,得 到 互 积 和 m。 

m= 二 $1 十 ss 十 ss 十 $4 十 ss 二 5 一 31 = 一 26 
【 妙 思 巧 解 】 巧妙 构造 多 项 式 化 互 积 为 多 项 式 积 。 
记 8 个 非 零 整数 为 a ,as,… ,as ,构造 多 项 式 
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f(x) 一 (x 十 ai)(x 十 az)…(x 十 as) 一 xs 十 pix? 十 pzxs 十 … 十 px 十 ps (1) 
其 中 ,pi 为 8 个 数 之 和 25;ps 为 任意 2 个 数 积 之 和 ;ps 为 任意 3 个 数 积 之 和 ;…… ;ps 为 
所 有 8 个 数 之 积 。 显 然 , 所 求 互 积 和 m 一 pz 十 … 十 ps 

令 x 一 1, 由 式 (1) 左 边 知 {(1) 一 0( 因 有 一 整数 为 一 1); 同 时 ,由 式 (1) 右 边 有 f(1) 一 
1 十 pi 十 pz 十 … 十 ps 二 1 十 25 十 m, 因 而 所 求 结果 为 m 一 pz 十 … 十 ps 一 一 26。 

给 出 的 整数 中 有 一 1, 即 得 和 f(1) 二 0, 这 是 减少 计算 量 的 关键 所 在 。 

即使 给 出 的 8 个 整数 中 没有 一 1, 计 算式 (1) 左 边 的 8 个 数 之 积 也 远 比 计算 “ 互 积 ”来 
得 简单 。 

【概括 】 以 上 两 个 求解 都 颇具 启发 性 。 如 果 按 “ 互 积 ” 的 定义 ,具体 实施 每 2 个 数 求 
积 ,每 3 个 数 求 积 ,…… ,这 一 思路 并 不 可 行 。 而 分 类 的 思想 和 建 多 项 式 的 思想 ,就 是 化 解 
“ 互 积 ”这 一 难点 的 巧妙 突破 点 。 

如 果 对 于 指定 的 一 般 n 个 整数 ,如 何 求 取 其 互 积 和 ? 

【编程 拓展 】 拓展 至 一 般 情形 ,探求 n 个 整数 的 互 积 和 。 

对 给 出 的 n 个 整数 ,计算 任意 2 个 数 之 积 , 任 意 3 个 数 之 积 ,…… ,直到 所 有 n 个 数 之 
积 。 定 义 所 有 这 些 积 之 和 为 这 n 个 整数 的 互 积 和 m。 

从 键盘 输入 mn 个 整数 ,探求 并 输出 这 nm 个 整数 的 互 积 和 m。 

(1) 设计 要 点 。 

按 上 述 巧 妙 构造 多 项 式 ,化 “ 互 积 ? 为 多 项 式 积 。 

设置 存储 n 个 整数 的 a 数组 ,从 键盘 输入 的 n 个 整数 存储 在 aL1],aL2],…,a[Ln]。 

同时 构造 关于 这 n 个 整数 的 n 次 多 项 式 

y(x) (Xx 十 ai)(x 十 az)…(x 十 as) x" 十 pix™ 十 px 十 … 十 pwix 十 p。 (2) 
其 中 ,pi 为 n 数 之 和 ;ps 为 任意 2 个 数 积 之 和 ;……:;pn-; 为 任意 n 一 1 个 数 积 之 和 ;pn 为 
所 有 n 个 数 之 积 。 显 然 ,m 王 pz 十 … 十 pa。 

令 x 一 1, 按 式 (2) 左 边 通过 循环 求 积 ,可 简单 得 出 (1); 按 式 (2) 右 边 有 y(1) 一 1 十 
pi 十 pz 十 … 十 pe- 十 ps; 同时 在 循环 中 求 出 nm 个 整数 之 和 pi ,显然 所 求 互 积 和 m 为 

m= y(1)—p—1 (3) 
循环 结束 , 即 按 式 (3) 输 出 所 求 n 个 整数 的 互 积 和 m。 
(2) 程序 设计 。 


// 求 n 个 整数 的 互 积 和 m 
# include < stdio.h> 
void main0 
{ long k,m,n,s,y,a[100]; 
printf(” 请 确定 整数 的 个 数 n:") ;scanf ("% 1d", &n) ; 
s=0;y=1; 
for (k=1;k<=n;k++) // 逐 个 输入 n 个 整数 
{ printf(” 请 输入 第 % 1d 个 整数 :",k) ; 
scanf("% 1d",&a[k]) ; 
s+=a[k]; y* = (1+a[k]); // 计 算 整数 和 s 及 f(1) 
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my-1-s; // 计 算 互 积 和 m 


printf(” 输入 的 %1d 个 整数 为 :%1d",n,a[1]); 
for (k=2;k<=n;k++) 

printf(", % 1d",a[k]): 
printf("\n 以 上 %1d 个 整数 的 互 积 和 m%1d。\n" ,mm; // 输 出 结果 


// 集 中 输出 n 个 整数 


(3) 程序 运行 示例 与 说 明 。 


请 确定 整数 的 个 数 n:8 
输入 的 8 个 整数 为 :-5, -3, -2, 3, 5, 8, 10, 13 
以 上 8 个 整数 的 互 积 和 号 - 266142。 


运行 程序 时 ,输入 n 个 整数 的 先后 顺序 对 互 积 和 结果 没有 影响 。 
以 上 程序 把 求 互 积 (若干 积 ) 转 化 为 求 一 个 积 , 是 简化 复杂 运算 的 技巧 所 在 。 
同时 ,程序 设置 在 输入 循环 中 输入 与 计算 (和 与 积 ) 同 步 进行 ,输入 循环 结束 ,计算 也 


随 之 完成 。 
如 果 运 行程 序 , 输 入 9 个 整数 一 3, 一 2, 一 1,0,1,2,4,8,16, 即 可 得 到 互 积 和 为 一 26， 
其 中 的 整数 一 1 是 一 个 简化 因子 。 


即使 没有 一 1 这 一 简化 整数 ,以 上 程序 实现 把 “ 互 积 ”难点 转化 为 在 循环 中 求 一 个 积 ， 


也 非常 精巧 。 
5.1.2 和 嵌 套 根 式 和 
试 求 以 下 两 个 嵌 套 根 式 和 
sl nl 了 3 十 … 十 n (4) 
I MR ( 式 中 有 n 个 5 与 n 个 3) (5) 


输入 正 整 数 n, 输 出 根 式 和 sl 与 s2( 精 确 到 小 数 点 后 8 位 )。 


1. 


设计 要 点 


对 于 给 定 的 正 整数 n, 在 sl 中 涉及 mn 层 开 方 ,而 s2 涉及 2n 层 开 方 ,新 颖 少见 。 

根 式 和 (4) 与 (5) 存 在 根 号 嵌 套 ,处 理 根 号 嵌 套 这 一 难点 是 设计 的 关键 。 

按 通常 由 起 点 1 到 终点 n 设置 循环 ,不 便于 处 理 根 号 嵌 套 这 一 难点 。 但 若 反 过 来 道 
向 设置 循环 ,解决 根 号 嵌 套 就 顺理成章 。 

(1) 实现 s1 求 和 。 

设置 aCn 一 1 一 1) 循 环 枚 举 整数 a, 循 环 外 赋 初 值 1 一 n; 循环 内 求 累加 和 。 


s1= at+ sqrt (s1); 


赋值 表达 式 中 的 sqrt(s1) , 即 可 实现 sl 的 根 号 嵌 套 。 


sl 


当 
当 


a 二 n 一 1 时 ,sl 二 (n 一 1) 十 sqrt(n); 实现 最 内 1 层 根 号 。 
a 二 n 一 2 时 ,sl 二 (n 一 2) 十 sqrt((n 一 1) 十 sqrt(n)); 实现 最 内 2 层 根 号 。 
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当 a 二 1 时 ,sl 实现 式 (4) 除 最 外 层 之 外 的 其 他 所 有 n 一 1 层 根 号 。 

最 后 一 层 根 号 在 输出 结果 时 完 

(2) 实现 s2 求 和 。 

同样 设置 an 一 1 一 1) 循 环 , 循 环 外 赋 初 值 2 一 5 十 sqrt(3); 循环 n 一 1 次 。 


s2= 5+ sqrt (3+ sqrt (s2)) ; 


赋值 表达 式 中 的 sqrt(s2) 即 可 实现 s2 的 根 号 幅 套 。 
当 a 二 n 一 1] 时 ,s2 二 5 十 sqrt(3 十 sqrt(5 十 sqrt(3))); 实现 最 内 3 层 根 号 。 


当 a 二 n 一 2 时 ,s2 二 5 十 sqrt(3 十 sqrt(5 十 sqrt(3 十 sqrt(5 十 sqrt(3))))); 实现 最 内 5 


层 根 号 。 


当 a 二 1 时 ,s2 实现 式 (5) 除 最 外 层 之 外 的 其 他 所 有 2n 一 1 层 根 号 。 
最 后 一 层 根 号 在 输出 结果 时 完 


2. 程序 设计 


// 探 求 两 个 根 式 和 

# include < stdio.h> 

# include < math. h> 

void main() 

{ double a,n, s1,s2; 
printf(” 请 输入 正 整 数 n(n> 1): "); scanf ("% 1f",&n); 
s1= nis2= 5+ sqrt (3) ; 


for(a=n-1;a>=1;a--) // 枚 举 n-1 至 1 的 整数 a 
{ si=at saqrt(s1); 
s2= 5+ sqrt (3+ sqrt (s2)); 
} 
printf(" si=%.8f\n",sqrt(s1)); // 最 后 的 和 s1 与 s2 需 开 平方 


printf(" s2=%.8f\n", sqrt(s2)); 
} 
3. 程序 运行 示例 与 变通 


请 输入 正 整 数 n(n> 1): 100 
s1=1. 75793276 
s2= 2. 71870969 


在 所 设置 的 a 循环 中 ,应 用 sl 二 a 十 sqrt(s1); 及 s2 二 5 十 sqrt(3 十 sqrt(s2)); 是 实现 根 
号 租 套 的 技巧 所 在 。 


变通 : 容易 修改 以 上 程序 ,探求 区 间 [c,dj 中 的 根 式 和 
sl ,rE (c 十 2) 十 … 十 Vd 


(6) 
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we (7) 


输入 区 间 上 下 限 正 整数 c,d(c 二 d) ,输出 根 式 和 sl 与 s2。 
5.2 同 码 数 汇 趣 


由 同一 个 数码 组 成 的 数 称 为 同 码 数 。 

例如 ,555,0.7777 都 是 同 码 数 , 前 者 是 同 码 整 数 ,而 后 者 则 是 同 码 小 数 。 

如 果 说 优美 数 要 求 数 字 不 重复 体现 和 谐 美 ,那么 同 码 数 强调 数码 相同 则 是 奇异 美的 
象征 。 本 节 探 讨 同 码 数 整除 问题 ,探求 同 码 整数 与 同 码 小 数 之 和 。 从 同 码 整数 之 和 与 同 
码 小 数 之 和 可 发 现 一 些 有 趣 的 规律 与 特点 。 


5.2.1 同 码 数 整除 


先 看 一 个 简单 的 同 码 数 整除 问题 。 

【命题 】 存在 正 整 数 nb 委 2019 ,使 得 n 个 1 组 成 的 同 码 整数 m 能 被 2019 整除 。 

【证 明 】 根据 余数 的 抽 居 原理 来 证 。 

分 别 由 n= 二 1 一 2019 个 由 1 组 成 的 同 码 整 数 除 以 2019, 其 余数 工 不 外 平 0,1， 
2018。 

如 果 存 在 某 一 n 值 ,n 个 1 组 成 的 同 码 数 除 以 2019, 余 数 r=0, 则 命题 成 立 。 

假设 分 别 由 n= 王 1 一 2019 个 由 1 组 成 的 同 码 数 除 以 2019 ,余数 中 不 存在 0, 这 2019 个 
余数 r 不 外 乎 1,…,2018。 根 据 抽 居 原理 ,2019 个 余数 中 必 存 在 至 少 两 个 余数 是 相同 的 。 

不 妨 设 1<m 二 ns 夺 2019, 由 ni 个 1 组 成 的 整数 mi 与 由 ms 个 1 组 成 的 整数 ms ,这 
两 个 同 码 数 除 以 2019 的 余数 相同 。 于 是 其 差 m 王 ms 一 mi 能 被 2019 整除 ,注意 到 


和 .小 3 
m= ms —m = 11…100…0 = 1]1"] X100…0 (1) 


整数 m 是 2 个 整数 之 积 , 后 者 只 有 2 与 5 因数 ,不 能 被 2019 整除 ,只 有 前 者 被 2019 整除 。 
注意 到 1 入 nm 一 m 过 2019, 即 存在 nm 一 ni 个 1 组 成 的 同 码 数 能 被 2019 整除 ,与 假设 矛盾 。 

因而 证 得 存在 正 整数 n 三 2019, 使 得 n 个 1 组 成 的 同 码 数 m 能 被 2019 整除 。 

【问题 】 至 少 需 要 多 少 个 1 组 成 的 同 码 整 数 m 能 被 2019 整除 。 

探求 由 1 组 成 的 同 码 整 数 ,至 少 需要 多 少 个 1 才能 被 2019 整除 ,可 实施 竖 式 除法 ,如 
图 5-1 所 示 。 


5503 
只 要 有 一 定 的 耐心 与 时 间 , 总 可 以 把 竖 式 除法 做 下 2019)111111111-…*1 
10095 


去 ,找到 最 小 的 整数 n, 使 得 n 个 1 组 成 的 同 码 数 m 能 被 Pa 
2019 整除 。 10095 

可 以 肯定 地 告诉 你 ,除法 不 可 能 无 限制 地 进行 下 去 ， 6097 
因为 有 n 三 2019。 至 于 n 至 少 为 多 大 . 则 必须 要 等 以 上 图 
示 的 试 商 结果 出 炉 。 9 


图 5-1 实施 竖 式 除法 示意 图 
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【编程 探求 】 探求 同 码 数 能 被 p 整除 。 

给 定 正 整数 p( 约 定 整数 p 为 个 位 数字 不 是 5 的 奇数 ) ,探求 最 小 的 正 整数 n, 使 得 n 
个 1 组 成 的 同 码 数 能 被 p 整除 。 

为 什么 要 约定 整数 p 为 个 位 数字 不 是 5 的 奇数 呢 ? 因为 偶数 的 积 只 能 是 偶数 ,个 位 
数字 为 5 的 奇数 的 乘积 个 位 数字 只 能 是 0 或 5 ,都 不 可 能 为 1。 

(1) 竖 式 除法 模拟 设计 要 点 。 

设 整数 竖 式 除法 每 次 试 商 的 被 除数 为 a, 除 数 为 bp( 即 给 定 正 整数 ) ,每 次 试 商 余数 
为 c。 

以 余数 c 取 0 作为 条 件 设 置 条 件 循环 ,循环 外 赋 初 值 : c= 二 1,n 二 1; 或 c==11,n 二 2 等 。 

被 除数 a 二 cx* 10 十 1, 试 商 余 数 一 a%p。 每 商 一 位 ,设置 统计 1 个 数 的 变量 n 增 
加 1。 

若 余 数 c= 二 0, 结 束 循环 ,输出 结果 。 

否则 ,继续 下 一 轮 试 商 ,直到 c 一 0 为止 。 

(2) 程序 设计 。 


// 探 求 整数 至 少 多 少 个 1 能 被 指定 整数 p 整除 
# include < stdio.h> 
voidmain0 
{ inta,c,p,n; 
printf(” 请 输入 整数 p: "); scanf("%d",&p) ; 
if(p%2==0 || p% 10==5) 
{printf(” 不 存在 同 码 数 整除 %d。",p) ; return; } 
m1; c=1; // 确 定 初始 值 n c 
while(c!=0) 
{a=cx 10+1; c=a%p; nt+ ;} // 实 施 除 乘 竖 式 计算 模拟 


printf(” 至 少 需 %d 个 1 的 整数 才能 被 %d 整除 。\n",n,p); 
| 
(3) 程序 运行 示例 与 说 明 。 


请 输入 整数 p: 2019 
至 少 需 672 个 1 的 整数 才能 被 2019 整除 。 


输出 结果 是 至 少 需 672 个 1 才能 被 2019 整除 , 靠 人 工 实施 竖 式 除法 , 想 得 出 这 一 结 
果 还 是 比较 繁复 的 。 

这 还 不 算 , 试 试 “至 少 需 多 少 个 1 才能 被 2017 整除 ”, 就 更 能 切身 体会 到 人 工 计 算 与 
程序 计算 的 效益 差别 。 


5.2.2 同 码 数 求 和 
本 节 探 索 n 个 同 码 数 求 和 ,包括 同 码 整 数 求 和 与 同 码 小 数 求 和 。 设 和 式 
s(Cd'n) 一 d4 十 dd 十 ddd 十 … 十 dd…dCn 个 d) (2) 
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f(d,n) 二 0.d 十 0. dd 十 0.ddd 十 … 十 0.dd…d( 小 数 点 后 n 个 d) (3) 

式 (2) 为 n 个 同 数码 4 整数 之 和 ,和 式 中 第 k 项 有 kk 位 数字 d(d 一 1,2,…,9)。 

例如 ,s(3,5) 一 3 十 33 十 333 十 3333 十 33333。 

式 (3) 为 n 项 同 数码 d 小 数 之 和 ,其 中 第 k 项 小 数 点 后 有 连续 k 个 数字 d(d=1， 
2,…,9)。 

例如 ,f(7,4) 王 0.7 十 0.77 十 0.777 十 0.7777 。 

【问题 1】 试 求 同 码 整数 和 s(3,30)。 

【求解 】 引入 中 间 量 s(9,30) 用 以 简化 求 和 。 

引入 中 间 量 s(9,30) 是 有 趣 的 ,因为 s(9,30) 与 s(3,30) 直 接 相 关 , 而 s(9,30) 可 以 直 
接 算 出 。 事 实 上 ,由 


s(3,30) = s(9,30)/9 X 3 = s(9,30)/3 (4) 
而 s(9,30) 一 9 十 99 十 … 十 99…9 
(10 一 1) 十 (100 一 1) 十 … 十 (103" 一 1) 
一 11…10 一 30 王 11…1080 (最 后 数 中 28 个 1) 


s(3,30) 一 11…1080/3 (被 除数 中 28 个 1) 
注意 到 1111/3 二 370, 余 数 1;1080/3 二 360, 因 而 得 
S(3,30) = 370…370360 (5) 


9 个 370 
有 趣 的 是 ,以 上 s(3,30) 的 结果 (5) 中 出 现 9 个 370 重复 节 , 耐 人 寻味 。 
【问题 2】 试 求 同 码 小 数 和 区 6,30) 。 
【求解 】 引入 中 间 量 {(9,30) 用 以 简化 求 和 。 
同样 引入 中 间 量 {(9,30) ,因为 f(9,30) 与 f(6,30) 直 接 相 关 , 而 且 (9,30) 可 以 直接 
算出 。 由 
{(6,30) = s(9,30)/9 X 6 = s(9,30) x 2/3 (6) 
而 
f(9,30) 二 0.9 十 0.99 十 … 十 0.99…9 = 30 一 0.11…1( 后 项 小 数 共 连续 30 个 1) 
则 
{(6,30) = (30 一 0.111…) X 2/3 一 (60 一 0.222…)/3 
因而 
f(6,30) 二 59.77…78/3 二 19 十 2.77…78/3 (其 中 后 项 小 数 有 连续 29 个 7) 
注意 到 2777/3 一 925 ,余数 为 2; 而 2778/3 一 926 ,因而 得 
{(6,30) 一 19. 925…925926 Cy 


9 个 925 


同样 耐人寻味 的 是 ,f(6,30) 的 结果 (7) 中 出 现 9 个 重复 节 925。 
【编程 拓展 】 探求 同 码 整数 和 s(d,n) 与 同 码 小 数 和 f(d,n)。 
输入 整数 d(1 三 d 三 9) ,及 整数 n(1 二 n 志 100) ,输出 s(d,n) 与 f(d,n)。 


1. 设计 要 点 
设置 s 数组 存储 和 s(d,n),s[L1j] 存 储 个 位 数字 ,sL2j] 存 储 十 位 数字 ,以 此 类 推 。 
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设置 f 数 组 存储 和 f(d,n) ,fL0] 存 储 小 数 和 的 整数 部 分 ,fL1] 存 储 小 数 点 后 第 1 位 ， 
f[2] 存储 小 数 点 后 第 2 位 ,…… ,fo] 存 储 小 数 点 后 第 n 位 。 

(1) 整数 求 和 。 

整数 和 式 中 共有 n 位 数 求 和 ,第 i 个 数 有 ji 位 (i 一 1,2,…','n), 每 一 位 数字 为 d。 

设置 i(1 一 D) 循 环 ,循环 n 次 ,实施 n 个 数 相 加 : i= 王 1 时 ,个 位 有 n 个 d 相 加 ,其 值 为 
nXd;i 二 2 时 ,十 位 有 n 一 1 个 d 相 加 ,其 值 为 (n 一 1) Xd; 一 般 第 i 位 ,有 n 一 i 十 1 个 d 相 
加 ,其 值 为 (n 一 i 十 1) Xd。 

完成 相 加 后 ,还 需 从 个 位 开始 , 逐 位 实施 进位 : 


s[j+ 1]=s[j+ 1]+ s[j]/10;s[j]=s[j]%10; = 位 mr- 


整数 输出 当然 是 从 高 位 开始 , 逐 位 向 低位 输出 。 

(2) 小 数 求 和 。 

同样 设置 i(1~~n) 循 环 ,循环 n 次 ,实施 n 个 数 相 加 : i 二 1 时 ,小 数 点 后 第 1 位 有 n 个 
d 相 加 ,其 值 为 nXd;i==2 时 ,小 数 点 后 第 2 位 有 n 一 1 个 d 相 加 ,其 值 为 (n 一 1) Xd; 一 般 
小 数 点 后 第 i 位 ,有 nn 一 i 十 1 个 d 相 加 ,其 值 为 (n 一 i 十 1) Xd。 

以 上 相 加 就 在 一 个 循环 中 实现 。 完 成 n 个 相 加 后 ,还 需 从 小 数 点 后 第 n 位 开始 , 逐 位 
实施 进位 。 

f[j-1]=f[j- 1]+ fF[j]/10;f[j]=fF[j]%10; (j=n" 人 


最 后 得 到 的 f[0] 即 为 小 数 和 的 整数 部 分 ,其 值 可 能 为 1 位 ,也 可 能 为 多 位 。 
小 数 和 输出 ,最 先 输出 整数 部 分 [0] 加 带 小 数 点 ,然后 从 小 数 点 第 1 位 开始 , 逐 位 输 
出 到 小 数 点 后 第 n 位 。 


2. 同 码 数 求 和 程序 设计 


// 求 整数 和 s(d,m=d+ ddt ddd+ …+dd…d(n 个 d) 
// 求 小 数 和 fld,n)=0.d+ 0.ddt 0.ddd+ …+0.dd…d(n 个 d) 
# include < stdio. h> 
voidmain0 
{ intd,i,j,n,s[5000], fF[5000]; 
printf(” 请 输入 整数 d,n: "); ”scanf("%d,%d", &d, &n) ; 
for (j=0;j<=n;j++) s[j]=f[j]=0; 
for (i=1;i<=n;i++) 
s[i]=f[i]= (nm i+1) *d; // 第 i 位 共 n+1-i 个 d 之 和 
for (j=1;j<=n-1;j++) // 加 完 n 个 整数 数 后 统一 进位 
{ s[j+1]=s[j+1]+s[j]/10;s[j]= s[j]% 10;} 
printf(” s(%d,%d)=",d,n); 


for(j=n;?=1;i-) // 从 高 位 开始 逐 位 输出 和 s(d,m 
printf("%d",s[j]); 
for (j=n;j>=1;j--) // 加 完 n 个 小 数 数 后 统一 进位 


{ F[j-1]=f[j-1]+f[j]/10;f[j]=f[j]% 10;} 
printf("\n f(%d,%d)=%d.",d,n,f[0]); 
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for(j=1;j<=n;j++) // 从 小 数 点 后 第 一 位 开始 逐 位 输出 和 
printf("%d",f[j]) ; 
printf(" \n"); 
} 


3. 程序 运行 示例 与 说 明 


请 输入 整数 d,n: 7, 30 
s (7, 30)= 864197530864197530864197530840 
f(7, 30)= 23. 246913580246913580246913580247 


从 上 述 整 数 求 和 结果 看 ,864197530 这 一 “重复 节 ” 在 和 中 重复 3 次 ,只 有 最 后 3 位 
840 不 属于 重复 节 。 

从 上 述 小 数 求 和 结果 看 ,小 数 点 后 除了 尾部 3 位 247 之 外 ,其 余 是 246913580 这 一 
“重复 节 ”, 重 复 3 次 。 

同 码 数 求 和 结果 中 的 “重复 节 ” 与 循环 小 数 的 “循环 节 ” 有 类 似 之 处 ,不 同 的 是 重复 节 
往往 在 前 面 , 而 循环 节 通 常 在 后 面 。 


5.3 统计 的 智慧 


本 节 探 讨 巧妙 建 模 .三角 网 格 与 交通 方 格 网 等 3 个 有 代表 性 的 统计 案例 ,其 统计 思路 
与 方法 颇 为 新 颖 。 


5.3.1 巧妙 建 模 


本 案例 探求 一 个 线性 不 定 方程 的 解 有 和 多少 组 ,应 用 建 模 简化 了 统计 过 程 。 

【问题 】 对 于 不 定 方程 x 十 y 十 z 二 15, 试 统计 : 

(1) x,y,z 为 非 负 整数 解 的 组 数 ; 

(2) xy,z 为 正 整数 解 的 组 数 ; 

(3) x,y,z 满足 x 三 一 3,y2,z 二 5 的 整数 解 的 组 数 。 

【 建 模 巧 解 】〗 拟 建立 投球 统计 模型 ,转化 为 组 合计 算 。 

(1) 把 问题 转化 为 15 个 相同 的 小 球 投放 到 3 个 分 别 标 有 x,y,z 标签 的 盒子 中 的 不 同 
的 投放 种 数 。 然 后 ,把 3 个 盒子 “抽象 ”为 并 排 设置 的 2 块 隔 板 ,这 2 块 隔 板 划 分 的 3 个 区 
域 相当 于 3 个 盒子 , 即 x,y,z 变量 。 于 是 把 15 个 小 球 与 这 2 块 隔 板 进行 排列 ,每 一 种 不 
同 的 排列 对 应 一 种 投球 结果 , 即 对 应 不 定 方程 x 十 y 十 z 二 15 的 一 组 解 。 排 列 种 数 等 于 
15 十 2 个 位 置 中 挑选 出 2 块 隔 板 位 置 的 组 合 数 C(15 十 2,2)。 因 而 x,y,z 为 非 负 整数 解 的 
组 数 为 C(17,2) 王 136 。 

(2) 若 x,y,z 为 正 整数 ,相当 于 每 一 个 盒子 至 少 要 投放 一 个 小 球 ,不妨 每 一 盒子 先 放 
一 小 球 。 然 后 15 一 3 一 12 个 小 球 与 2 块 隔 板 进行 排列 ,共有 组 数 即 为 组 合 数 C(12 十 2， 
2) 。 因 而 x,y,z 为 正 整数 解 的 组 数 为 C(14,2) 一 91。 

(3) 若 x,y,z 满足 x 宇 一 3,y 宇 2,z 宇 5, 令 a 二 x 十 3,b 二 y 一 2,c 二 z 一 5, 则 由 x 十 y 十 z 
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15 得 ab 十 c=11 (a,b,c 宇 0), 由 上 可 知 这 一 方程 的 非 负 整数 解 组 数 为 组 合 数 C(11 十 
2,2)。 因 而 x,y,z 满足 x 宇 一 3,y 宇 2,z 宇 5 的 整数 解 的 组 数 为 C(13,2) 二 78。 


【编程 拓展 】 
对 于 给 定 的 正 整 数 和 s, 对 于 3 个 变量 x,y,z 的 不 定 方程 x 十 y 十 z 二 s, 试 统计 x,y,z 


取 自 区 间 [c,dj(0 志 c 二 d,3c 志 s) 整数 解 的 组 数 。 


(1) 设计 要 点 。 
建立 x,y,z 循环 枚 举 区 间 [c,d] 上 的 所 有 整数 ,如 果 满 足 条 件 x 十 y 十 z 二 s 即 输出 方 


程 的 解 并 用 n 实施 统计 。 
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注意 到 3 个 变量 x,y,z 没有 大 小 约定 ,因而 循环 区 间 都 是 [c,d]。 
(2) 程序 设计 。 


// 不 定 方程 x+ y+ z= s 求解 与 统计 
# include < stdio.h> 
# include < math. h> 
voidmain0 
{ int co,d,n,s,x,y,z; 
printf(” 请 确定 各 变量 起 点 与 终点 d:"); scanf("%d,%d", &c, &d) ; 
printf(" 请 确定 和 s(3c< s< 3d): "); scanf("%d",&s) ; 
rn=0; 
for (x=c;x<=d;x++) // 设 置 3 重 循环 枚 举 x,y,z 
for (y=e;yC=d;y++) 
for (z=0;2L=d;z++) 
if (xt y+ z==s) // 满 足 条 件 时 统计 并 输出 解 
{ nt+; 
printf(” x=%d,y=%d,z=%d",x,y,2z); 
if(n% 3==0) printf("\n"); 


} 
printf("\n ” 共 %d 组 解 。\n",n); 
} 


(3) 程序 运行 示例 与 说 明 。 


请 确定 各 变量 起 点 与 终点 d: 5,9 

请 确定 和 s(3c< s< 3d) : 20 
x=5,y=6,z=9 x=5,y=7,z=8 x=5,y=8,z=7 
x=5,y=9,z=6 x=6,y=5,z=9 x=6,y=6,z=8 
x=6,y=7,z=7 x=6,y=8,z=6 x=6,y=9,z=5 
xTy5,28 7y6z7 x7y7,26 
x=7,y=8,z=5 x=8,y=5,z=7 x=8,y=6,z=6 
x=8,y=7,z=5 x=9,y=5,z=6 x=9,y=6,z=5 

共 18 组 解 。 


当 输 入 c= 二 0,d 二 15,s 二 15, 即 为 上 面 建 模 所 解 x+y 十 z 一 15 的 136 个 非 负 整数 解 。 
当 输 入 c= 二 1,d 二 15,s 二 15, 即 为 上 面 建 模 所 解 x 十 y 十 z 二 15 的 91 个 正 整 数 解 。 
区 间 [c,dj 的 起 始 整 数 c 也 可 以 取 负 整数 。 
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请 修改 程序 , 求 x,y,z 满足 x 之 一 3,y 之 2,z 之 5 的 不 定 方程 x 十 y 十 z 王 15 的 整数 解 。 


5.3.2 三 角 网 格 统计 


把 一 个 正三 角形 的 三 边 分 成 n 等 份 , 分 别 与 各 边 平行 连接 各 分 点 ,得 n- 三 角 网 格 。 例 
如 n=6 时 ,6- 三 角 网 格 如 图 5-2 所 示 。 
【问题 】 对 指定 正 整 数 n,n- 三 角 网 格 中 所 有 不 同 三 角形 
(大 小 不 同 或 方位 不 同 ) 的 个 数 为 s, 试 确定 s(n) 表 达 式 。 
【分 类 统计 】 把 所 有 统计 对 象 分 为 “ 正 立 ”与 “倒立 ”两 类 。 
设 三 角形 的 水 平 边 为 底 , 顶 角 在 上 称 为 正 立 ”, 项 角 在 下 称 
为 与 “倒立 ”。 所 有 不 同 三 角形 分 “ 正 立 ” 与 “倒立 ”两 类 分 别 统计 。 图 5-2 6- 三 角 网 格 
(1) 统计 正 立 三 角形 的 个 数 s1。 
正 立 三 角形 从 大 到 小 统计 : 边 为 n 的 三 角形 1 个 ; 边 为 n 一 1 的 三 角形 1 十 2 个 ;…… 
边 为 1 的 三 角形 1 十 2 十 … 十 n 个 。 
以 上 n 个 求 和 ,得 正 立 三 角形 的 个 数 
鱼 二 1 生 全 二 2 守 由 丰 十 从 征 开 十 CL 上 2 十 上 上 ) 
一 mm 十 2(n 一 切 十 3 人 一 2) 十 …… 十 (na 一 1[n 一 (na 一 2)] 十 nanLna 一 (an 一 1 让 
(1 十 2 十 … 十 nn 一 [1X2 十 2X3 十 … 十 (n 一 1)n] 
由 1X2 十 2X3 十 … 十 Cn 一 1)n 
(LL 如 和 -一 QL 十 2 二 sn》 
n(nt+1)(2nt+1)/6—n(n+1)/2=n(n’:—1)/3 


因而 
sl =m(n+1)/2— n(n —1)/3 

即 sl 一 nCn 十 1)(n 十 2)/6 i 

(2) 统计 倒立 三 角形 的 个 数 s2。 

倒立 三 角形 从 小 到 大 统计 : 边 为 1 的 三 角形 1 十 2 十 … 十 (n 一 1) 个 ; 边 为 2 的 三 角形 
1 十 2 十 … 十 (n 一 3) 个 ……… 

以 下 分 别 就 n 为 奇数 与 偶数 两 种 情形 求 和 。 

@ 当 n 为 偶数 时 ,不 妨 设 n 一 2m。 

边 长 为 m 的 三 角形 1 个 ; 

边 长 为 m 一 1(n 宇 4) 的 三 角形 1 十 2 十 3 个 ; 

边 长 为 m 一 2(n 之 6) 的 三 角形 1 十 2 十 3 十 4 十 5 个 ; 


s2 一 1 十 (1 十 2 十 3) 十 … 十 (1 十 2 十 … 十 (2m 一 1)) 
一 1 十 (3X4)/2 十 … 十 (2m)(2m 一 1)/2 一 1 十 2X3 十 3X5 十 … 十 m(2m 一 1) 
一 2(1 十 2 十 32 十 … 十 m2) 一 (1 十 2 十 … 十 m) 一 mCm 十 1)(2m 十 1)/3 一 mCm 十 1)/2 


一 m(m 十 1)(4m 一 1)/6 


转换 为 n 表达 式 为 
s2 一 n(n 十 2)(2n 一 1)/24 (2) 
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即 


即 


@ 当 n 为 奇数 时 ,不 妨 设 n 一 2m 十 1。 
边 为 m(n 宇 3) 的 三 角形 1 十 2 个 ; 
边 为 m 一 1(n 宇 5) 的 三 角形 1 十 2 十 3 十 4 个; 

边 为 mm 一 2(n 之 7) 的 三 角形 1 十 2 十 3 十 4 十 5 十 6 个 ; 


s2 一 (1 十 2) 十 (1 十 2 十 3 十 4) 十 … 十 (1 十 2 十 … 十 2m) 
1X3 十 2X5 十 … 十 m(2m 十 1) 
一 2(1 十 22 十 32 十 … 十 m2) 十 (1 十 2 十 … 十 m) 
ml(m 二 1)(2m 十 1)/3 十 m(m 十 1)/2 
mm 十 1)(4m 十 5)/6 
转换 为 n 表达 式 为 


s2 一 (n 一 1)(n 十 1)(2n 十 3)/24 (3) 
(3) 不 同 三 角形 总 个 数 s 一 s1 十 s2 。 
当 m 为 偶数 时 

s 一 nn 十 1)(n 十 2)/6 十 nn 十 2)(2n 一 1)/24 


s 一 n(n 十 2)(2n 十 1)/8 (4) 
当 n 为 奇数 时 
s 一 n(Cn 十 1)(n 十 2)/6 十 (n 一 1)(n 十 1)(2n 十 3)/24 


s 一 (n 十 1)(2n2 十 3n 一 1)/8 (5) 
以 上 式 (4) 和 式 (5) 就 是 所 求 n- 三 角 网 格 的 三 角形 数 s(n) 的 表达 式 。 
【编程 拓展 】 对 指定 正 整 数 n, 试 求 n- 三 角 网 格 中 所 有 不 同 三 角形 (大 小 不 同 或 方位 不 


同 ) 的 个 数 ,以 及 所 有 这 些 三 角形 的 面积 之 和 (约定 网 格 中 最 小 的 单位 三 角形 的 面积 为 1)。 


输入 整数 n(1 二 n 夺 100) ,输出 n- 三 角 网 格 中 不 同 三 角形 的 个 数 ,及 所 有 这 些 三 角形 


的 面积 之 和 。 


1. 设计 要 点 
(1) 设 mn- 三 角 网 格 中 所 含 单位 三 角形 数 为 bpCn) ,显然 从 最 上 层 开 始 的 第 1 层 为 1 个 ， 


第 2 层 为 3 个 ，…… ,底层 为 2n 一 1 个。 因而 有 
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p(n) = 二 1 十 3 十 … 十 (2Xn 一 1) 
一 般 地 , 设 -三角 网 格 中 所 含 单位 三 角形 数 为 p(k) , 则 
p(k) =1 十 3 十 … 十 (2Xk 一 1) (k=1,2,3,…,n) 
计算 出 p(1),p(2),…,p(n) ,为 后 续 计 算 面 积 和 时 调用 。 
(2) 统计 三 角形 数 与 面积 和 时 ,分 “ 正 立 ”与 “倒立 ”两 类 分 别 统 计 求 和 。 
设 正 立 三 角形 的 个 数 为 s1 ,其 面积 之 和 为 ssl。 
正 立 三 角形 从 大 到 小 统计 。 
边 为 n 的 三 角形 1 个 ,其 面积 为 p(n); 
边 为 n 一 1 的 三 角形 1 十 2 个 ,每 个 面积 为 p(n 一 1); 
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边 为 1 的 三 角形 1 十 2 十 … 十 n 个 ,每 个 面积 为 p(1)。 

sl 一 1 十 (1 十 2) 十 (1 十 2 十 3) 十 … 十 (1 十 2 十 … 十 n) 

ss1 王 1p(n) 十 (1 十 27p(n 一 1) 十 … 十 (1 十 2 十 … 十 n)p(1) 

(3) 设 倒 立 三 角形 的 个 数 为 s2 ,其 面积 之 和 为 ss2 。 

倒立 三 角形 从 小 到 大 统计 。 

边 为 1 的 三 角形 1 十 2? 十 … 十 (n 一 1) 个 ,每 个 面积 为 p(1); 

边 为 2 的 三 角形 1 十 2 十 … 十 (n 一 3) 个 ,每 个 面积 为 p(2); 

当 n 为 偶数 时 , 边 为 n/2 的 三 角形 1 个 ,每 个 面积 为 p(n/2)。 

s2 一 1 十 (1 十 2 十 3) 十 … 十 [1 十 2 十 … 十 Cn 一 1)] 

ss2 一 1Xp(n/2) 十 (1 十 2 十 3)Xp(Cn/2 一 1) 十 … 十 [1 十 2 十 … 十 (Cn 一 1)]Xp(1) 
当 n 为 奇数 时 ， 2 的 三 角形 1 十 2 个 ,每 个 面积 为 p((n 一 1)/2)。 
s2 二 (1 十 2) 十 (1 十 2 十 3 十 4) 十 … 十 [1 十 2 二 i 1)] 

ss2 一 (1 十 2) Xp(Cn 一 1)/2) 十 (1 十 2 十 3 十 4) Xp(CCn 一 1)/2) 十 … 十 [1 十 2 十 … 十 Cn 


1)]Xp(1) 


(4) 检验 与 输出 。 

所 求 n- 三 角 网 格 中 不 同 三 角形 的 统计 个 数 为 sl 十 s2, 所 有 这 些 三 角形 的 面积 之 和 ( 即 
含 单位 三 角形 的 个 数 之 和 ) 为 ss1 十 ss2。 

程序 的 统计 个 数 是 否 与 统计 公式 (4)、(5) 相 符 ? 

可 以 在 程序 中 进行 检验 : 统计 结果 sl 十 s2 与 公式 (4)、(5) 比 较 , 若 相符 , 则 输出 统计 


结果 sl 十 s2,ssl 十 ss2。 若 不 相符 ,说 明 公式 与 程序 至 少 有 一 方 出 错 ,检查 出 错 原 因 。 


2. 程序 设计 


//n- 三 角 网 格 中 的 不 同 三 角形 个 数 及 面积 之 和 

# include < stdio. h> 

voidmain0 

{ int k,m,n,u,p[1000]; long d, t,t1, +2, s1, s2, ss1, ss2; 
printf(” 请 输入 正 整 数 n(1Kn 受 100) : "); scanf("%d",&n); 
for (t=0, k=1;k<=n;k+ +) 

{t=t+ (2x* k-1);p[k]=t;} 

if (n% 2>0) d= (n+ 1) * (2x nxnt3x*n-1)/8; 


else d=nx (n+2)* (2x nt+1)/8; //d 为 三 角形 个 数理 论 公式 
t1= t2= s1= s2= ss1= ss2= 0; 
for (k=1;k<=n;kt++) // 求 正 立 三 角形 个 数 及 其 面积 之 和 


{ tl=tl+k; s1= s1+t1; 
ss1= ssl+ t1* p[n+1-k]; 
} 
mF (n%2==02?1:2) ; 
for (k=m;k<=n- 1;k=k+ 2) // 求 倒立 三 角形 个 数 及 其 面积 之 和 
{ t2=t2+ (k- D+k;u= (nt 1—k)/2; 
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s2= s2+ t2;ss2= ss2+ t2* p[u]; 
} 
if (st+ s2==d) // 检 验 结果 st+ s2 是 否 与 公式 相同 
{ printf(” 三 角 网 格 中 共有 三 角形 个 数 为 :%1d \n", s1+ s2) ; 
printf(” 三 角 网 格 中 所 有 三 角形 面积 之 和 为 :% 1d \n", ss1+ ss2) ; 
} 
} 


3. 程序 支行 示例 与 说 明 


请 输入 正 整数 n(1<n<<100) : 100 
三 角 网 格 中 共有 三 角形 个 数 为 :256275 
三 角 网 格 中 所 有 三 角形 面积 之 和 为 : 201941895 


程序 设置 的 检验 功能 ,循环 统计 的 结果 与 公式 (4)、(5) 相 同时 , 才 进行 输出 。 

本 题 求解 难点 在 于 统计 “倒立 ”三 角形 时 , 需 分 奇数 与 偶数 两 种 情形 分 别 总 结 规律 并 
实施 求 和 。 

另外 ,p 数组 的 建立 大 大 简化 了 求 三 角形 面积 之 和 的 计算 。 
5.3.3 交通 方 格 网 


某 市 的 交通 网 是 典型 的 矩形 方 格 网 ,如 图 5-3 所 示 ,起 点 在 左下 角 标 注 为 (0,0) ,终点 
在 右上 角 标 注 为 (m,n) ,示意 横向 有 m 个 方 格 ,纵向 有 nm 个 方 格 。 


(m,n) 


(0, 0) 
图 5-3 某 市 交通 方 格 图 


【问题 】 从 起 点 (0,0) 到 终点 (m,n) 共 有 多 少 条 不 同 的 最 短路 线 ? (所 谓 最 短路 线 ， 
就 是 不 走 回头 路 的 路 线 , 即 路 线 中 各 段 只 能 从 左 至 右 、 从 下 至 上 。) 

【思考 】 转化 为 组 合 数 以 简化 统计 。 

从 起 点 (0,0) 到 终点 (m,n) 的 每 一 条 最 短路 线 共 m 十 n 段 ,其 中 横向 m 段 ,纵向 n 段 。 
每 一 条 不 同 路 线 对 应 从 m 十 n 段 中 取 m 段 ( 以 放置 横向 段 ) ,相当 于 从 m 十 n 个 元 素 中 取 
m 个 元 素 的 组 合 数 。 
因而 不 同 最 短路 线条 数 为 
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(6) 


【编程 拓展 】 

某 城区 的 方 格 交通 网 如 图 5-4 所 示 , 城 区 有 A 段 从 (5,2) 至 (6,2) 与 B 段 从 (0,3) 至 
(0,4) 两 条 打 久 路 段 正 在 维护 ,禁止 通行 ;同时 有 十 字 路 口 (3,3) 正 在 提 质 改造 ,所 有 需 经 
该 路 口 的 横向 与 纵向 车 辆 不 能 通行 。 


(m,n) 


(0, 0) 
图 5-4 交通 网 格 示 意图 


试 统计 从 始点 (0,0) 到 终点 (m,n) 的 不 同 最 短路 线 ( 路 线 中 各 段 只 能 从 左 至 右 、 从 下 
至 上 ) 的 条 数 。 
输入 正 整 数 m,n(m 二 20,n 达 20), 输 出 从 始点 (0,0) 到 终点 (m,n) 的 最 短路 线 的 
条 数 。 
1. 递 推 设 计 要 点 
今 设置 了 诸多 障碍 ,可 应 用 递 推 设计 求解 。 
设 f(x,y) (0 二 x 和 m0 三 y 达 n) 为 从 始点 (0,0) 到 点 (x,y) 的 不 同 最 短路 线 的 条 数 。 
注意 到 最 短路 线 的 要 求 ,到 点 (x,y) 的 前 两 点 只 能 为 (x 一 1,y) 与 (x,y 一 1) ,因而 有 
(1) 递 推 关 系 。 
f(xsy) 一 f(x 一 1,y) 十 {Cxyy 一 1) (7) 
(2) 边界 条 件 。 
f(x,0) = 1 (0<x<m) 
注意 到 B 段 从 (0,3) 至 (0,4) 段 禁止 通行 , 即 (0,4),…,(0,n) 诸 点 均 不 能 经 过 , 则 
f(0,4),…,f(0,n) 均 为 0. 有 
入 0 二 王 开本 过 这 动 
f(o,y) =0 (3<y<m 
(3) 障碍 处 理 。 
城区 的 十 字 路 口 (3,3) 不 能 通行 ,可 令 f(3,3) 一 0。 
AA 段 从 (5,2) 至 (6,2) 段 禁止 通行 , 则 对 f(6,2) 的 赋值 只 有 {6,1), 即 f(6,2) 二 f(6,1), 设 
置 x,y 二 重 循环 实施 递 推 ,注意 边界 与 障碍 处 进行 特殊 处 理 即 可 。 
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2. 递 推 程序 设计 

// 带 障碍 的 方 格 交通 网 路 线 递 推 设计 

# include < stdio.h> 

void main0 

{ int mnmn,x,y; long f[30] [30] ; 
printf(” 请 输入 正 整 数 m,n (mK 20,n< 20) : "); scanf(%d%d" &m, &n) ; 
for (x=1;x<=m;x++) f[x] [0]=1; 


for (y=1;y=n;y++) // 确 定 边界 条 件 
if (y=3) f[0][y]=1; 
else f[0][y]=0; 上 B 段 初始 条 件 处 理 
for (x=1;x<=m;x++) 
for (y=1;yC=n;y++) // 二 重 循环 实施 递 推 
if (x==3 8&8 y==3) f[x][y]=0; 1/ 十字路 口 处 理 
else if(x==6 && y==2) 
f[x] [y]=f[x] [y- 1]; /人 A 段 维护 路 段 处 理 
else 
f[x] [y]=f[x- 1] [y]+ f[x] [y- 1]; // 其 他 点 递 推 


printf(” 最 短路 线条 数 为 :%1d \n",f[m] [n]); 
} 


3. 程序 运行 示例 与 说 明 
请 输入 正 整 数 m,n (mK 20, n< 20) : 13,16 
最 短路 线条 数 为 : 37340415 


本 问题 的 难点 在 于 网 格 中 的 障碍 处 理 。3 类 障碍 分 别 设计 进行 不 同 的 处 理 , 其 中 “ 维 
修 段 ”"B 段 需 在 初始 条 件 中 赋值 处 理 , 而 A 段 处 理 只 影响 {06,3) 一 个 点 的 赋值 。 


5.4 游戏 中 的 素数 概率 


本 节 探 讨 几 个 有 趣 的 抽 牌 概率 计算 ,其 中 摇 仍 子 是 常见 的 , 抽 单 色 的 数字 牌 也 比较 简 
单 , 而 抽 多 花色 扑克 组 成 的 数字 牌 涉及 编码 的 转换 ,其 设计 稍 显 复杂 ,但 更 具 吸 引力 。 

凡 涉 及 概率 计算 ,必须 统计 事件 的 总 体 数 与 满足 指定 条 件 事件 个 数 , 这 是 概率 计算 的 
基础 。 


5.4.1 从 播 山 子 到 抽 数 牌 


首先 看 一 个 熟悉 的 摇 仍 子 (俗称 色 子 ) 的 简单 趣 题 ,然后 拓展 到 抽 数 牌 。 

娱乐 时 常 有 摇 双 货 子 的 习惯 ,一 个 仍 子 有 6 个 面 , 面 上 分 别 标 刻 有 1 一 6 点 。 两 个 般 
子 点 数 之 和 m 为 区 间 [2,12] 中 的 某 个 正 整 数 。 

【问题 】 摇 双 人骨 出 现 两 个 角 点 数 之 和 m 为 素数 的 概率 有 多 大 (精确 到 小 数 点 后 
3 
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【探求 】 每 个 贷 上 有 1 一 6 点 , 摇 双 般 出 现 的 总 体 数 为 6X6 一 36。 

点 数 之 和 m 为 素数 的 种 数 如 下 所 示 。 

当 m 二 2( 唯 一 偶 素 数 ) 时 ,双人 骸 点 数 为 (1,1), 只 1 种 ; 

当 m= 二 3 时 , 双 骨 点 数 为 (1 ,2;2,1), 共 2 种; 

当 m= 二 5 时 , 双 货 点 数 为 (1,4;2,3;3,2;4,1), 共 4 种 ; 

当 m= 二 7 时 , 双 仍 点 数 为 (1.6;2,5;3,4;4,3;5,2;6,1), 共 6 种 ; 

当 m 二 11 时 , 双 货 点 数 为 (5.6;6.5), 共 2 种 ; 

统计 出 现 以 上 5 个 素数 的 种 数 , 共 15 种 。 

因而 得 播 双 蜗 点 数 和 为 素数 的 概率 为 15/36 一 0. 417。 

在 摇 双 骨 点 数 和 为 素数 中 ,最 有 可 能 出 现 的 素数 为 7, 其 概率 为 6/15 一 0.4。 

【编程 拓展 】 抽 数 牌 之 和 为 素数 的 概率 。 

有 n 张 数字 牌 ,数字 牌 上 分 别 标 有 整数 1,2,3,…,n。 

在 这 mn 张 数字 牌 中 抽取 2 张 ,探求 2 张 牌 上 的 整数 之 和 为 素数 的 概率 。 

在 这 n 张 数字 牌 中 抽取 3 张 ,探求 3 张 牌 上 的 整数 之 和 为 素数 的 概率 。 

输入 牌 的 张 数 n( 约 定 10 二 n 志 1000) ,分 别 计算 以 上 抽 2 张 与 抽 3 张 这 两 种 抽 牌 整数 
之 和 为 素数 的 概率 ,并 分 别 指出 出 现 概 率 最 高 的 素数 (精确 到 小 数 点 后 3 位 ) 。 


1. 设计 要 点 

抽 数 字 牌 与 播 双 仍 子 不 同 : 摇 双 仍 子 可 以 出 现 两 个 点 相同 的 局 面 , 因 mn 张 数字 牌 上 
的 数字 为 1 一 n 不 重复 ,因而 抽 数 字 牌 时 不 管 是 抽 2 张 还 是 3 张 ,都 不 可 能 出 现 有 相同 数 
情形 。 
注意 到 任 2 张 牌 整数 之 和 不 小 于 3 ,可 以 排除 唯一 偶 素数 2 。 

(1) 试 商 判 别 法 判别 素数 。 

判别 一 个 大 于 1 的 奇数 i 是 否 为 素数 ,最 简单 的 是 根据 素数 的 定义 应 用 试 商 判 别 法 
完成 , 即 用 奇数 j(3 一 sqrt(i)) 进 行 试 商 判 别 。 

为 方便 素数 检测 ,设置 数组 qd[ 订 ,对 3n 以 内 的 整数 i 通过 试 商法 给 qd[ 订 赋值 : 车 i 为 
素数 则 q[ 口 =1; 和 否则 q[i]==0。 

(2) 枚 举 循环 设计 。 

注意 到 任 取 2 张 牌 即 所 得 2 个 数 不 能 相同 ,因而 设置 的 i,j 二 重 枚 举 循环 的 取 值 范围 
分 别 为 i(1~n 一 1),j(i 十 1~n)。 

注意 到 任 取 3 张 牌 即 所 得 3 个 数 不 能 相同 ,因而 设置 的 i,j,k 三 重 枚 举 循环 ,其 中 i,j 
循环 同上 ,k 循环 的 取 值 范围 为 k(1~i 一 1)(k 坟 i 一 1)。 

这 样 的 枚 举 循 环 设置 ,确保 每 不 同 的 2 张 一 组 抽取 与 每 不 同 的 3 张 一 组 抽取 , 既 无 遗 
漏 ,也 无 重复 。 这 一 点 很 重要 ,如 果 枚 举 循环 设置 不 精准 .出 现 遗 漏 或 重复 .将 直接 导致 统 


计 结 果 错 误 。 
设 s2 为 从 n 张 中 取 2 张 的 总 数 ,s3 为 从 n 张 中 取 3 张 的 总 数 , 显 然 有 
s2=C? 一 (1) 
证 二 nn 1)(n—2) (2) 
E 3 
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在 循环 中 通过 w2 十 十 统计 所 有 抽 2 张 的 不 同 抽 牌 次 数 ,并 在 g[i 十 j= 二 1 即 i 十 j 为 素 
数 时 通过 m2 十 十 ;统计 和 为 素数 抽取 次 数 ,通过 p2[i 十 门 十 十 ;统计 素数 i 十 j 出 现 次 数 。 

同样 ,在 循环 中 通过 w3 十 十 统计 所 有 抽 3 张 的 不 同 抽 牌 次 数 , 并 在 gq[i 十 j 十 kj 二 1 即 
k 为 素数 时 通过 m3 十 十 ;统计 和 为 素数 抽取 次 数 ,通过 p3[i 十 j 十 kj 十 十 ;统计 素数 
k 出 现 次 数 。 

(3) 比较 出 现 概率 最 高 的 素数 。 

在 抽 2 张 的 w2 次 不 同 抽 牌 次 数 中 有 m2 次 其 和 为 素数 ,而 在 m2 次 和 为 素数 中 ,素数 
j 出现 有 p20j]Gj: 3 一 2n) 次 ,设置 比较 循环 求 出 p2[j] 的 最 大 值 max2 ,并 通过 k2 二 j 记录 
出 现 次 数 最 多 的 素数 。 

在 抽 3 张 的 w3 次 不 同 抽 牌 次 数 中 有 m3 次 其 和 为 素数 ,而 在 m3 次 和 为 素数 中 ,素数 
j 出 现 有 p30]G: 7 一 3n) 次 ,设置 比较 循环 求 出 p3[j] 的 最 大 值 max3 ,并 通过 k3 一 j 记录 
出 现 次 数 最 多 的 素数 。 

以 上 两 个 比较 循环 可 在 循环 j(3 一 3n) 中 实现 。 

(4) 计算 概率 。 

检验 程序 统计 的 实际 次 数 w2 与 w3 是 否 分 别 与 数 式 (1)、(2) 给 出 的 理论 次 数 s2 ,s3 
相等 。 若 w2 隆 s2, 或 者 w3 天 s3 ,说明 循环 统计 出 错 , 不 输出 ,直接 退出 程序 。 

只 有 当 w2 一 s2 且 w3 二 s3 时 , 才 输 出 两 个 概率 值 m2/w2 与 m3/w3; 同 时 输出 出 现 概 
率 最 高 的 素数 k2 与 k3 ,及 其 相应 的 概率 值 max2/m2 与 max3/m3。 


2. 程序 设计 


// 探 求 n 张 数字 牌 抽 2, 3 张 牌 和 为 素数 的 概率 
# include < stdio. h> 
# include < math. h> 
voidmain0 
{ int ij,k, nt,z,k2,k3,q[3000]; 
long m2, s2, w2, m3, s3, w3, max2, max3, p2[3000], p3[3000] ; 
printf(” 请 输入 牌 的 张 数 n(10< n< 1000) :") ;scanf ("% d",&n) ; 
for (i=1;i<=3x*n;it+) {p2[i]=0;p3[i]=0;q[i]=0;} 
for(i=3;iK=3x*nii=i+2) 
{ t=1;z= (int)saqrt(i); 
for (j=3;j<=z;j= j+2) 
if (i% j==0) {t=0;break;} 


if (t==1) q[ 门 =1; // 奇 数 i 为 素数 时 标记 q[i]=1 
| 
m2= w2= m3= w3= max2= max3= 0; 
for(i=1;i<=n-1;i++) //2 重 与 3 重 循环 枚 举 抽 牌 
for (j=i+1;j<=n;j++) 
{ w2++; // 统 计 2 张 抽 牌 总 数 w2 
if(q[it j]==1) {m2++ ;p2[i+ j]++;} // 统 计 和 为 素数 的 频数 m2 与 p2 


for (k=1;k<= i-1;k++) 
{ if(k>=1i) continue; 
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W3++ ; // 统 计 3 张 抽 牌 总 数 w3 
if(q[i+ jt+k]==1) 
{ m3+ + ;p3[it j+ k++ ;} // 统 计 和 为 素数 的 频数 m3 与 p3 


} 

} 
s2=nx (n-1)/2;s3=n* (n-1)* (n-2)/6; 
if w3!= s3 | | w2!= s2) // 检 验 抽 牌 总 数 是 否 与 理论 值 相符 

{printf(” 统计 出 现 问题 1"); return;} 
for(j=3;j<=3x*n;jt+) 

{ if(p2[j]> max2) { max2=p2[j];k2=j;} 

if (p3[j]> max3) { max3= p3[j] ;k3= j;} 

} 
printf(” 在 %d 张 牌 取 2 张 不 同 取 法 %1d 次 , 和 为 素数 的 % 1d 次 。\n",n, w2,m2) ; 
printf(” 2 张 和 为 素数 的 概率 为 %. 3f\n", (double)m2/w2) ; 
printf(” 和 为 素数 的 %1d 次 中 素数 %d 的 次 数 最 多 为 %1d 次 ，",m2, k2,max2) ; 
printf(" 其 出 现 概率 为 %.3f\n", (double)max2/m2) ; 
printf(” 在 %d 张 牌 取 3 张 不 同 取 法 %1d 次 , 和 为 素数 的 % 1d 次 。 \n",n,w3,m3) ; 
printf(” 3 张 和 为 素数 的 概率 为 %.3f\n", (double)m3/w3) ; 
printf(” 和 为 素数 的 % 1d 次 中 素数 %d 的 次 数 最 多 为 %1d 次 , ",m3,k3, max3) ; 
printf(" 其 出 现 概 率 为 %. 3f\n", (double)max3/m3) ; 


3. 程序 运行 示例 与 说 明 


请 输入 牌 的 张 数 n(10< n< 1000) :100 


在 100 张 牌 取 2 张 不 同 取 法 4950 次 , 和 为 素数 的 1044 次 。 

2 张 和 为 素数 的 概率 为 0.211 

和 为 素数 的 1044 次 中 素数 101 的 次 数 最 多 为 50 次 ,其 出 现 概率 为 0.048 
在 100 张 牌 取 3 张 不 同 取 法 161700 次 ,和 为 素数 的 30791 次 。 

3 张 和 为 素数 的 概率 为 0.190 

和 为 素数 的 30791 次 中 素数 151 的 次 数 最 多 为 1225 次 ,其 出 现 概率 为 0.040 


由 以 上 运行 结果 可 知 ,在 n==100 时 , 抽 2 张 出 现 素 数 的 概率 略 高 于 抽 3 张 出 现 素数 


的 概率 。 


在 一 个 程序 中 通过 2 重 循环 枚 举 实现 2 张 抽 牌 ,同时 通过 3 重 循环 枚 举 实现 3 张 抽 


牌 是 可 行 的 ,也 是 可 靠 的 。 


程序 设置 有 检验 功能 ,只 有 统计 正确 时 才 输 出 结果 。 由 s2 与 w2 及 s3 与 w3 是 否 相 


等 的 检测 可 知 枚 举 既 无 重复 ,也 无 遗漏 。 


如 果 出 现 概率 最 大 的 素数 可 能 有 多 个 ,如 何 修改 程序 ,输出 所 有 最 可 能 出 现 的 素数 ? 


s.4.2 抽 扑 死 牌 


玩 扑 克 牌 是 最 流行 的 娱乐 活动 。 扑 克 牌 除 大 小 王 之 外 有 红心 方 片 . 草 花 . 黑 桃 4 种 


花色 ,每 一 种 花色 有 A,2,…,10,J,Q,K( 约 定 A 为 数码 1;J,Q,K 分 别 为 数码 11,12,13), 即 
每 种 花色 各 有 13 个 数码 。 


El 
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试 在 扑克 牌 每 一 花色 的 数码 靠 前 的 n(2 达 n 志 13) 张 牌 ( 即 每 种 花色 的 数码 为 1 ,2,…， 
n) 组 成 的 4n 张 牌 中 抽取 2 张 ,2 张 牌 上 的 数码 之 和 为 素数 的 概率 记 为 p2(n) ;抽取 3 张 ,3 
张 牌 上 的 数码 之 和 为 素数 的 概率 记 为 p3(n)。 

输入 mn, 计算 并 输出 p2Cn) 与 pb3Cn)( 精 确 到 小 数 点 后 3 位 ) 。 


1. 设计 要 点 

在 扑克 牌 的 4 种 花色 牌 中 抽取 要 比 前 面 单一 数字 牌 抽取 复杂 ,涉及 牌 上 的 原 数码 与 
抽取 编码 之 间 的 转换 。 

(1) 抽取 编号 。 


为 实现 在 4n 张 牌 中 每 不 同 的 2 张 或 3 张 都 能 抽 到 ,对 4n 张 牌 进行 抽取 编号 : 任 取 一 
种 花色 其 n 张 牌 按 顺序 抽取 编号 为 1 一 n( 此 时 抽取 编号 与 牌 上 数码 相同 ); 第 2 种 花色 的 
n 张 牌 按 顺 序 抽取 编号 为 n 十 1 一 2n( 即 数码 为 1 的 编号 为 n 十 1, 数码 为 2 的 编号 为 n 十 
2, 以 此 类 推 ) ;第 3 种 花色 的 n 张 牌 按 顺序 抽取 编号 为 2n 十 1 一 3n; 第 4 种 花色 的 n 张 牌 按 
顺序 抽取 编号 为 3n 十 1 一 4n。 

(2) 设置 素数 检测 数组 。 

为 方便 素数 检测 ,设置 数组 q[ 让 ,对 4n 以 内 的 整数 i 通过 试 商 判别 法 为 d[ 订 赋值: 若 
i 为 素数 则 q[i 订 =1; 和 否则 qL 训 一 0。 

(3) 枚 举 循环 设计 。 

为 实现 在 4n 张 牌 中 任 取 2 张 牌 ,设置 的 i,j 二 重 枚 举 循 环 ,其 取 值 范围 分 别 为 11 一 
4n 一 1) ,j(i 十 1 一 4n) 。 

为 实现 在 4n 张 牌 中 任 取 3 张 牌 ,设置 的 k,i,j 三 重 枚 举 循环 ,其 中 i,j 循环 同 前 ,而 最 
小 的 k 循环 取 值 范围 为 kC1 一 i 一 1D)(k 入 i 一 1) 。 

这 样 的 枚 举 循环 设置 ,确保 每 不 同 的 2 张 一 组 抽取 , 既 无 遗漏 ,也 无 重复 ;同时 也 确保 
每 不 同 的 3 张 一 组 抽取 , 既 无 遗漏 ,也 无 重复 。 

(4) 抽取 次 数 的 总 数 。 

设 s2 为 从 4n 张 中 抽取 2 张 的 总 数 ,s3 为 从 4n 张 中 抽取 3 张 的 总 数 , 显 然 有 


s2 = C= 2n(4n— 1) (3) 
s3 = Ci | (4) 


在 i,j 二 重 枚 举 循环 内 通过 w2 十 十 统计 所 有 不 同 的 抽取 次 数 ;在 i,j,k 三 重 枚 举 循环 
内 通过 w3 十 十 统计 所 有 不 同 的 抽取 次 数 。 

循环 结束 后 ,比较 w2 与 s2, 同 时 比较 w3 与 s3。 若 出 现 w2 天 s2 或 w3 隆 s3, 说 明 循环 
统计 出 错 ,不 输出 直接 退出 程序 。 

(5) 恢复 牌 上 的 原 数码 。 

以 上 循环 中 的 i,j,k 是 抽取 编号 ,把 这 些 抽 取 编 号 转换 为 扑克 牌 的 原 数码 (设置 为 i1， 
jlL,kl) 是 必要 的 ,也 是 设计 的 关键 所 在 。 

若 in: 这 一 i%n; 此 时 若 这 一 0, 则 这 一 n。 

例如 , 若 n=13 时 , 抽取 编号 一 21. 根 据 抽取 编号 的 设置 可 知 该 牌 的 原 数 码 是 21% 
13 ,该 牌 的 原 数码 为 8。 
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若 n=13 时 , 抽取 编号 一 39 ,根据 抽取 编号 的 设置 可 知 该 牌 的 原 数码 应 是 13 ,而 上 
求 余 运算 39%13 王 0, 因 此 把 0 转换 为 13 是 必要 的 。 

抽取 编号 j,k 的 转换 与 上 类 似 。 

(6) 判别 与 计算 。 

应 用 qdLil 二 ii]=1 判定 抽取 的 2 张 牌 的 数字 之 和 为 素数 ,并 通过 m2 十 二 q[il 十 j1]; 
统计 所 要 求 的 和 为 素数 的 抽取 次 数 ;同时 ,应 用 qLil 二 jl+kl]=1 判定 抽取 的 3 张 牌 的 数 
字 之 和 为 素数 ,并 通过 m3 十 =qLil 十 il1 十 kl]; 统 计 所 要 求 的 和 为 素数 的 抽取 次 数 。 

检验 程序 统计 的 实际 次 数 w2 与 w3 是 否 分 别 与 数 式 (3)(4) 给 出 的 理论 次 数 s2,s3 
相等 。 若 w2 隆 s2, 或 者 w3 隆 s3, 说 明 循环 统计 出 错 ,不 输出 ,直接 退出 程序 。 

只 有 当 w2=s2 且 w3=s3 时 , 才 输 出 两 个 概率 值 p2 二 m2/w2 与 p3 二 m3/w3。 


2. 程序 设计 


// 扑 克 4 色 每 色 n 张 , 抽 2,3 张 牌 和 为 素数 的 概率 
# include < stdio. h> 
# include < math. h> 
void main0 
{ int ijk,i1,j1,k1,n,t,z,q[4000] ;long m2, s2, w2, m3, s3, w3; double p2, p3; 

printf(" 请 输入 每 色 牌 的 张 数 n(2<=n<=13): ");scanf("%d",&n); 

for (i=1;i<=4*n;i++) q[i]=0; 

for (i=3;i<=4xn;i= i+2) 

{ t=1;z= (int)sart(i); 
for (j=3;j<=z;j=j+2) 
if (i% j==0) {t=0;break;} 


if (t==1) q[i]=1; //i 为 素数 时 标记 q[i]=1 
} 
m2= w2= m3= w3= 0; 
for(i=1;i<=4x*n-1;i++) // 三 重 循环 枚 举 抽 3 张 牌 


for (j=i+1;j<=4xn;jt+) 
{ w2++; i1= i%n; j1= j%n; 


if(i1==0) i1=n; // 恢 复 扑 克 上 的 原 数码 i1, j1 
if(j1==0) j1=n; 
m2+ =q[i1+ j1]; // 统 计 和 为 素数 的 数目 m2 


for (k=1;k<= i-1;k++) 
{ if(k>=1i) continue; 


w3++ ; k1= k% ni // 恢 复 扑 克 上 的 原 数码 k1 
if(k1==0) ki=n; 
m3+=q[i1+ ji+ k1]; // 统 计 和 为 素数 的 数目 
} 
} 
s2=2xnx (4xn-1);s3=4xnx (4xn-1)* (2x*n-1)/3; /Vs2, s3 为 抽取 理论 总 数 


if (s2!=w2 || s3!=w3) { printf(” 统计 出 现 问题 1"); return;} 
p2= (double)m2/w2; 
printf(” 扑克 4 色 每 色 %d 张 牌 中 抽取 2 张 有 不 同 取 法 %1d 次 , \n",mw2) ; 
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printf(” 其 中 和 为 素数 的 取 法 %1d 次 ;和 为 素数 的 概率 为 %. 3f\n",m2,p2) ; 

p3= (double)m3/w3; 

printf(” 扑克 4 色 每 色 %d 张 牌 中 抽取 3 张 有 不 同 取 法 %1d 次 , \n",n,w3); 

printf(” 其 中 和 为 素数 的 取 法 % 1d 次 ;和 为 素数 的 概率 为 %. 3f\n",m3, p3) ; 
3 


3. 程序 运行 示例 与 说 明 


请 输入 每 色 牌 的 张 数 n(2=n<=13): 13 

扑克 4 色 每 色 13 张 牌 中 抽取 2 张 有 不 同 取 法 1326 次 ， 
其 中 和 为 素数 的 取 法 448 次 ;和 为 素数 的 概率 为 0. 338 
扑克 4 色 每 色 13 张 牌 中 抽取 3 张 有 不 同 取 法 22100 次 ， 
其 中 和 为 素数 的 取 法 6068 次 ;和 为 素数 的 概率 为 0.275 


以 上 程序 设计 的 重点 也 是 难点 是 把 抽取 编号 i,j,k 转换 为 牌 的 原 数码 il ,jl,kl, 这 也 
是 该 设计 的 灵巧 之 处 。 

事实 上 ,程序 中 的 参数 n 可 以 突破 扑克 每 色 13 张 的 规定 ,也 就 是 说 参数 n 可 不 受 13 
的 限制 。 


5.5 梅 齐 里 亚 克 夸 码 问题 


一 个 商人 有 一 个 40 磅 重 的 夸 码 ,由 于 跌落 在 地 而 碎 成 4 块 。 后 来 , 称 得 每 块 碎 块 的 
质量 都 是 整数 ,而 可 以 用 这 4 块 硅 码 碎 块 在 天 平 上 称 1 一 40 磅 之 间 的 任意 整数 磅 重 物 。 
问 这 4 块 硅 码 碎 块 各 重 多 少 ? 

此 题 出 自 法 国 数学 家 梅 齐 里 亚 克 (Meziriac) 之 手 , 他 在 1624 年 解答 了 这 个 问题 。 此 
题 后 来 拓展 成 数学 中 一 类 *“ 称 重 问题 ”引起 人 们 广泛 关注 。 

注意 到 天 平 的 两 个 秤 盘 可 区 别 为 硅 码 盘 与 称 量 盘 ,在 码 盘 放 夸 码 , 称 量 盘 除 放 重 物 外 
还 可 附加 夸 码 。 这 类 两 个 盘 都 能 放 夸 码 的 天 平 称 为 双 码 盘 天 平 , 以 上 梅 齐 里 亚 克 求 解 问 
题 的 求解 条 件 就 是 双 码 盘 天 平 。 

另 一 类 天 平 称 为 单 码 盘 天 平 ,规定 只 能 在 硅 码 盘 放 砖 码 ,而 称 重 盘 只 能 放 物 品 不 能 放 
夸 码 。 单 码 盘 称 重 较 双 码 盘 称 重要 来 得 简单 ,我 们 就 从 单 码 盘 称 重 开始 ,然后 探讨 较 复杂 
的 双 码 盘 称 重 问题 。 


5.5.1 单 夸 码 盘 称 重 


为 了 保持 问题 的 连贯 性 , 仍 以 原 题 形式 提出 问题 。 

【问题 1】 探求 单 码 盘 5 块 硅 码 重 31 。 

一 个 商人 有 一 个 31 磅 重 的 硅 码 ,由 于 跌落 在 地 而 碎 成 5 块 。 后 来 , 称 得 每 块 碎 块 的 
质量 都 是 整数 ,而 且 可 以 用 这 5 块 硅 码 碎 块 在 单 码 盘 天 平 上 称 1 一 31 磅 之 间 的 任意 整数 
磅 重 物 。 问 这 5 块 硅 码 碎 块 各 重 多 少 ? 

【求解 】 设 5 块 夸 码 碎 块 分 别 重 al 夸 a2 二 a3 二 a4 二 a5。 

显然 , 取 al 二 1, 这 是 必然 的 ,否则 不 能 称 重 1。 
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(1) 确定 n 一 2 时 夸 码 。 

为 了 使 n==2 即 2 个 硅 码 al ,a2 能 称 最 多 种 整数 质量 ,a2 应 取 多 少 ? 

为 了 能 称 量 2,a2 可 取 1, 也 可 取 2。 这 两 者 比较 ,显然 取 a2 王 2 可 称 量 质量 2, 还 可 与 
al 一 起 称 量 3, 即 能 称 最 多 3 种 整数 质量 。 

(2) 确定 n= 二 3 时 夸 码 。 

在 al 二 1,a2 二 2 的 基础 上 ,如 何 确定 a3 才能 称 最 多 种 整数 质量 ? 

质量 3 以 内 的 整数 质量 均 可 通过 al ,a2 实现 。 接 下 来 为 了 能 称 量 4,a3 可 取 2, 可 取 
3, 也 可 取 4。 

当 a3 取 4 时 , 因 al,a2 可 称 1 一 3 的 任意 质量 ,联合 a3 一 4, 可 实现 4 一 7 之 间 的 任意 
整数 质量 的 称 量 。 

(3) 确定 n 一 4 时 夸 码 。 

在 al 一 1,a2 一 2,a3 一 4 的 基础 上 ,如 何 确定 a4 才能 称 最 多 种 整数 质量 ? 

质量 7 以 内 的 整数 质量 均 可 通过 al ,a2,a3 实现 。 接 下 来 为 了 能 称 量 8,a4 可 取 5, 可 
取 6,……', 也 可 取 8。 

因 al,a2,a3 可 称 1 一 7 的 任意 质量 ,联合 a4 二 8, 可 实现 8 一 15 之 间 的 任意 整数 质量 
的 称 量 。 

(4) 确定 n==5 时 夸 码 。 

在 al 一 1,a2 一 2,a3 一 4,a4 一 8 的 基础 上 ,如 何 确定 a5 才能 称 最 多 种 整数 质量 ? 

质量 15 以 内 的 整数 质量 均 可 通过 al ,a2,a3,a4 实现 。 接 下 来 为 了 能 称 量 16 一 31,a5 


可 取 16 。 

当 a5 取 16 时 , 因 al,a2,a3,a4 可 称 1~15 的 任意 质量 ,联合 a5 二 16, 可 实现 16 一 31 
之 间 的 任意 整数 质量 的 称 量 。 

结论 : 当 5 块 硅 码 碎片 质量 分 别 为 1.2,4,8,16 时 ,可 在 单 码 盘 天 平 上 实现 称 1 一 31 
磅 之 间 的 任意 整数 磅 重 物 。 

【推广 】 当 n 块 硅 码 质量 分 别 为 1,2,2? ,…,2"! 时 ， 

m 一 1 十 2 十 2 十 … 十 2 一 一 2" 一 1 Col) 

可 在 单 码 盘 天 平 上 实现 称 1 一 m 之 间 的 任意 整数 质量 。 

【编程 拓展 】 

一 人 要 用 整数 m 克 材 料 制作 n 个 夸 码 ,可 以 用 这 n 个 硅 码 在 单 码 盘 天 平 上 称 1 一 m 
克之 间 的 任意 整数 克 质 量 。 


已 知 整数 m ,为 实现 在 单 码 盘 天 平 上 称 量 指定 重 整 数 t(1<t<m) 的 物品 , 求 硅 码 个 
数 n 至 少 为 多 大 ? 这 n 个 硅 码 各 重 多 少 ? 

输入 整数 m 及 指定 整数 质量 ttm 委 1000,t 入 m) ,输出 硅 码 至 少 个 数 n 及 这 n 个 硅 码 
的 质量 ,并 输出 在 天 平 上 称 量 t 的 硅 码 配置 方案 。 

例如 , 当 mm 二 100 时 需要 制作 多 少 个 夸 码 ? 各 个 夸 码 质量 几何 ?” 用 这 些 硅 码 称 量 t= 
80, 如 何在 单 码 盘 天 平 上 配置 夸 码 ? 

这 些 都 需 在 程序 中 予以 解决 。 
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1. 编程 设计 要 点 

(1) 数据 结构 。 

设置 3 个 数组 : a 数组 存储 各 个 夸 码 质量 ,如 aL4]=8, 即 第 4 个 夸 码 重 8( 单 位 略 );s 
数组 存储 前 各 个 硅 码 质量 之 和 ,如 sL3]=7, 即 前 3 个 夸 码 质量 之 和 为 7;p 数组 存储 夸 码 
盘 中 夸 码 配置 。 在 p 数组 存储 夸 码 配置 ,一 个 数字 代表 一 个 夸 码 编号 ,给 定 最 多 10 个 夸 
码 ,因而 限制 整数 m 最 多 为 2 一 1。 

(2) 硅 码 个 数 与 各 夸 码 质量 。 

由 式 (1) 知 m 一 2" 一 1 时 需 n 个 硅 码 , 即 m 一 2" 需 n 十 1 个 硅 码 。 因 而 一 般 地 对 m 整 
数 单位 , 需 logzm 十 1 个 硅 码 。 

各 破 码 质量 为 : 以 2 的 寡 确 定 前 n 个 夸 码 质量 ,最 后 一 个 硅 码 用 m 剩余 量 确定 。 

a[l] = 1,a[2] = 2,a[3] = 4,…，,a[n] = 2",a[n 十 I] =m 一 s[no] 
引 1] 1,s[L2] 3,s[3] 7,…,s[n] 2"+! 一 1,s[na 十 1] = 和 

应 用 以 上 确定 的 硅 码 组 可 单 码 盘 天 平 上 实现 称 量 1 一 m 之 间 的 任意 整数 t 质量 。 

(3) 在 码 盘 的 硅 码 配置 。 

配置 实现 称 重 整数 t(1 一 m) 的 硅 码 是 实现 称 重 的 关键 。 

设 p 数组 存储 硅 码 盘 中 夸 码 配置 ,所 存储 的 夸 码 只 用 其 编号 作为 一 位 数 (约定 编号 
10 简化 为 一 位 数 0) 存 在 这 个 数组 元 素 中 。 

例如 ,p[26] 王 245( 指 第 2,4,5 个 硅 码 ), 即 a[2] 十 aL4] 十 aL5] 一 2 十 8 十 16 王 26, 因 而 
可 称 量 t=26 的 物品 。 

如 何 为 p 数组 元 素 赋值 ? p 数组 元 素 之 间 有 何 规律 可 循 ? 

首先 ,p[LaLk]] 王 k;(k 王 1,2,…,n)。 因 为 硅 码 盘 中 配置 第 k 个 硅 码 , 即 可 称 量 重 
a[kj 的 物品 。 

其 次 ,p[a[kj 十 i 二 p[j] *10 十 k;(j 二 1,2,…,s[k 一 1]), 即 在 p[jj 基 础 上 ,在 夺 码 盘 
加 入 第 k 在 码 aLk], 则 可 称 质量 为 aLk] 十 j。 

因 j 王 1,2,…,s[k 一 1], 则 aLk] 一 aLk] 十 j 全 覆盖 s[k 一 1] 十 1 一 s[k]。 

最 后 一 个 硅 码 为 aLn] ,因为 aLnj 范 围 较 大 ,为 了 避免 超 范围 或 重复 赋值 ,赋值 加 了 条 
件 限制 是 必需 的 。 所 加 的 条 件 为 


k==n && (a[n]+ j>m || aln]+ j<=s[n-1]) 


前 者 a[nj 十 jm 是 避免 超 范围 ,大 于 m 的 无 须 称 量 。 后 者 aLn] 十 j 过 一 s[n 一 1] 是 避免 
重复 赋值 , 因 [a[n 一 1],s[n 一 1]] 范 围 内 的 p 数组 元 素 已 赋值 ,重复 赋值 可 能 造成 称 量 
失 据 。 

(4) 称 量 t 的 硅 码 配置 。 

称 量 整 数 t 时 ,p[tj 已 有 赋值 ,但 p[ 口 是 各 硅 码 代号 组 成 的 整数 , 需 分 离 出 各 个 代号 ， 
然后 还 原 夸 码 质量 ,加 入 t 在 称 量 盘 ( 为 便于 区 别 ,t 整数 放 在 括号 内 ) ,写成 称 量 的 等 式 。 

例如 , 当 m 二 100,t 二 80, 由 p[80] 王 12467( 指 第 1,2,4,6,7 硅 码 ) ,还 原 为 37 十 32 十 
8 十 2 十 1。 

输出 单 码 盘 天 平 上 的 称 量 式 为 37 十 32 十 8 十 2 十 1 一 (80) 。 
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2. 程序 设计 


// 拓 展 单 码 盘 称 重 夸 码 问 题 
# include < stdio.h> 
# include < math. h> 
void main0 
{ intb,d,e, j,k,m,n,t,a[11], s[11]; long c,p[1001]; 
printf(” 请 输入 单 码 总 重 整 数 m(1<mK= 1000) : "); scanf ("%d", &m) ; 
printf(” 请 输入 称 重 整 数 t(1<t=<m: "); scanf ("%d",&t); 
d=e=s[1]=a[1]=1;n= log(m /log (D+1; 
printf(” %d 至 少 制 %d 个 硅 码 ,质量 依次 为 :1 ,mm ; 
for (k=2;k<=n- 1;k++) 
{ d=d*2;a[lk]=d; e=e+ta[k]; /人 /以 2 的 寡 确 定 前 几 个 硅 码 质量 
s[k]=e; printf(", %d", a[k]); 
1 


a[n]=m- s[n- 1];s[n]=m; // 最 后 一 个 硅 码 用 m 剩 余 量 确定 
printf(", %d.\n",a[n]); 
if (n== 10) a[0]=a[10]; // 第 10 个 硅 码 编号 简化 为 一 个 数字 0 


p[1]=1; 
for (k=2;k<=n;k++) 
{ plafk]]=k% 10; // 二 重 循环 产生 p 数 组 
for (j=1;j<=s[k- 1];j++) 
{ if(k==n && (a[n]+ j>m || a[n]+ j<s[n- 1])) continue; 
p[a[k]+ j]=p[j] * 10+ k% 10; /在 p 数 字 中 一 上 硅 码 编号 占 一 位 


} 
printf(” 称 量 质量 %d:",t); 


c=p[t]; //p 为 硅 码 编号 ,还 原 各 硅 码 质量 
while(c> =10) 
{ b=c%10; 
if (b==0) b=10; 
printf ("% d+ ", a[b]); // 依 次 输出 硅 码 盘 中 各 硅 码 质量 
c=c/10; 


} 
printf("%d = (%d), \n ",a[c],t); 
} 


3. 程序 运行 示例 与 说 明 

请 输入 单 码 总 重 整 数 m (1< m=1000) : 1000 

请 输入 称 重 整 数 t(1<t=<m: 900 

1000 至 少 制 10 个 硅 码 ,质量 依次 为 :1,2,4,8, 16, 32, 64, 128, 256, 489。 
称 量 质 量 900:489+ 256+ 128+ 16+ 8+ 2+ 1 = (900) 。 


设计 的 难点 在 于 给 p 数组 赋值 ,最 后 把 p 数组 还 原 为 称 重 质量 t 所 需 的 单 码 盘 称 


地 
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硅 码 组 合 。 对 于 某 些 质量 t 可 能 存在 多 个 解 ,这 里 输出 的 只 是 其 中 一 个 解 。 


s.5.2 双 夸 码 盘 称 重 


我 们 回 到 梅 齐 里 亚 克 求 解 的 夸 码 问题 , 先 探讨 m 一 40 的 具体 问题 ,然后 实施 编程 拓展 。 

【问题 2】 探求 双 码 盘 4 块 硅 码 重 40 。 

一 个 商人 有 一 个 40 重 的 夸 码 ,由 于 跌落 在 地 而 碎 成 4 块 。 后 来 , 称 得 每 块 碎 块 的 质 
量 都 是 整数 ,而 可 以 用 这 4 块 夸 码 碎 块 在 双 码 盘 天 平 ( 以 下 简称 天 平 ) 上 称 1 一 40 之 间 的 
任意 整数 重 物 。 问 这 4 块 硅 码 碎 块 各 重 多 少 ? 

【求解 】 设 4 块 硅 码 碎 块 分 别 重 al ,a2,a3,a4, 并 设 al 人 a2<a3 坊 a4。 

(1) 确定 n==2 时 夸 码 al ,a2。 

为 了 使 n=2 时 , 即 2 个 硅 码 al ,a2( 约 定 al 一 a2) 能 称 最 多 种 整数 质量 ,al,a2 应 分 别 
取 多 少 ? 

显然 , 取 al 王 1, 这 是 必然 的 。 

为 了 能 称 量 2,a2 可 取 2, 也 可 取 3。 当 a2 取 3 时 称 量 2, 只 要 把 a2= 一 3 放 在 硅 码 盘 ， 
把 重 物 与 al 放 在 称 量 盘 即 可 实现 。 

这 两 者 比较 ,显然 取 a2 王 3 还 可 称 量 质量 3,4, 即 能 称 最 多 4 种 整数 质量 。 
因而 确定 al 一 1,a2 一 3。 
(2) 确定 n 一 3 时 夸 码 a3。 
在 al 二 1,a2 二 3 的 基础 上 ,如 何 确定 a3 才能 称 最 多 种 整数 质量 ? 
质量 4 以 内 的 整数 质量 均 可 通过 al ,a2 实现 。 接 下 来 为 了 能 称 量 5,a3 可 取 5, 可 取 


当 a3 取 9 时 称 质量 5, 只 要 把 a3==9 放 在 夸 码 盘 , 把 重 5 的 物品 与 al 十 a2 放 在 称 量 
盘 即 可 实现 。 

而 且 取 a3 二 9 时 , 因 al,a2 可 称 1~4 的 任意 质量 ,联合 a3 二 9, 可 实现 5~8 与 10 一 13 
之 间 的 任意 整数 质量 的 称 量 。 

例如 ,要 称 量 m= 二 11 重 物 ,注意 到 m 一 11 与 a3 一 9 相差 2, 而 al 与 a2 相差 2, 因 而 把 
a3 十 a2 放 夸 码 盘 , 把 m 十 al 称 量 盘 (此 时 两 盘 都 是 12) 即 可 实现 。 

因而 确定 a3 一 9 。 

(3) 确定 n= 二 4 时 夸 码 a4。 

在 al 二 1,a2 二 3,a3 二 9 的 基础 上 ,类 推 a4 二 27。 

取 a4 一 27 时 , 因 al,a2,a3 可 称 1 一 13 的 任意 质量 ,联合 a4 王 27, 可 实现 14 一 26 与 
28 一 40 之 间 的 任意 整数 质量 的 称 量 。 

例如 ,要 称 量 m 二 20 重 物 ,注意 到 m 二 20 与 a4 二 27 相差 7 ,而 前 面 硅 码 a2 与 al 十 a3 
相差 7, 因 而 把 a4 十 a2 放 硅 码 盘 ,把 m 十 al 十 a3 放 称 量 盘 (此 时 两 盘 都 是 30) 即 可 实现 。 

结论 : 当 4 块 夸 码 碎片 质量 分 别 为 1,3,9,27 时 ,可 在 天 平 上 实现 称 1 一 40 之 间 的 任 
意 整 数 重 物 。 

【推广 】 当 mn 块 夸 码 重量 分 别 为 1.3,3,…,3" 时 ， 

mm 一 1 十 3 十 3 十 … 二 3" 一 于 (2) 
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可 在 天 平 上 实现 称 1~m 之 间 的 任意 整数 质量 。 

【编程 拓展 】 

一 人 要 用 整数 m 克 材 料 制 作 n 个 夸 码 ,可 以 用 这 n 个 硅 码 在 双 码 盘 天 平 上 称 1~m 
克之 间 的 任意 整数 克 质 量 。 

已 知 整数 m, 为 实现 在 双 码 盘 天 平 上 称 量 指定 重 整 数 t(1 二 t 二 m) 的 物品 , 求 夸 码 个 
数 n 至 少 为 多 少 ? 这 n 个 夸 码 各 重 多 少 ? 

输入 整数 m 及 指定 整数 质量 t(m 志 9000,t 三 m) ,输出 整数 n 及 这 n 个 硅 码 质量 ,并 
输出 在 天 平 上 称 量 t 的 硅 码 配置 方案 。 

例如 , 当 m 王 9000 时 需要 制作 多 少 个 夸 码 ? 各 个 硅 码 质量 几何 ? 用 这 些 硅 码 称 量 
t 一 2019, 如 何在 天 平 上 配置 在 码 ? 

这 些 都 需 在 程序 中 予以 解决 。 


1. 编程 设计 要 点 

(1) 数据 结构 。 

设置 4 个 数组 : a 数组 存储 各 个 硅 码 质量 ,如 aL3]=9; 即 第 3 个 硅 码 重 9;s 数组 存储 
前 面 各 硅 码 质量 之 和 ,如 s[L4] 王 40; 即 前 4 个 硅 码 质量 之 和 为 40;p 数组 存储 夸 码 盘 中 夸 
码 配 置 ;q 数组 存储 称 量 盘 中 破 码 配置 。 
注意 到 p,q 数组 存储 硅 码 配置 ,一 个 数字 代表 一 个 夸 码 编号 ,给 定 最 多 9 个 硅 码 , 因 
而 由 式 (2) 限 制 整数 m 最 多 为 (3 一 1)/2 一 9841。 
(2) 硅 码 个 数 与 各 夸 码 质量 。 
由 式 (2) 知 m 一 (3" 一 1)/2 时 需 n 个 硅 码 , 即 m 一 (3" 十 1)/2 需 n 十 1 个 硅 码 ,因而 一 
般 地 对 m 整数 单位 , 需 log3”! 十 1 个 硅 码 。 

各 夸 码 质量 为 : 以 3 的 寡 确 定 前 n 个 夸 码 质量 ,最 后 一 个 硅 码 用 m 剩余 量 确定 。 

a[l] = 1;a[2] = 3;a[3] = 9;…3;a[n] = 3"1;a[n 十 1] = mo— slnj; 
s[1] = 1;s[2] = 4;s[3] = 13;5°…;s[nj = (3" 一 1)/2;s[Ln 十 1] = m; 

应 用 以 上 确定 的 硅 码 组 可 在 单 码 盘 天 平 上 实现 称 量 1 一 m 之 间 的 任意 整数 t 质量 。 

(3) 两 个 盘 的 硅 码 配置 。 

配置 实现 称 重 整数 t(1 一 m) 的 两 盘 夸 码 是 重点 ,也 是 难点 。 

Oz@ 设置 p,q 数组 。 

设 p 数组 存储 硅 码 盘 中 夸 码 配置 ,q 数组 存储 称 量 盘 中 硅 码 配置 ,所 存储 的 夸 码 只 用 
其 编号 作为 一 位 数 存在 这 两 个 数组 元 素 中 。 

例如 ,pL80] 二 245( 指 第 2,4,5 个 硅 码 ) ,qdL80]=13( 指 第 1,3 个 硅 码 ) ,这 两 组 硅 码 质 
量 相差 为 80 ,因而 可 称 量 t 二 80: a[2] 十 a[4] 十 a[5] 二 a[1j 十 a[3] 十 80 的 物品 。 

如 何 为 p,q 数组 元 素 赋值 ? p,q 数组 元 素 之 间 有 何 规律 可 循 ? 

首先 ,p[La[k]]=k;qLa[k]] 王 0;(k 王 1.2.….n)。 因 为 硅 码 盘 中 配置 第 k 个 硅 码 , 称 
量 盘 中 不 配置 夸 码 , 即 其 差 为 aLkj, 所 以 可 称 量 重 aLk] 的 物品 。 

@ p,q 数组 赋值 。 

归纳 a[kj 分 别 与 s[k 一 1],sLkj 的 距离 如 下 所 示 。 

s[2] 一 4,a[3] 一 9,s[3] 王 13; 可 知 aL3] 与 sL2] 十 1,s[3] 均 相差 4( 即 sL2]) 。 
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s[L3] 王 13,a[L4] 一 27,s[4] 一 40; 可 知 a[4j 与 sL3] 十 1,s[4] 均 相差 13( 即 sL3]) 。 
因而 ,a[kj 土 (k= 二 2,3,…,n 一 1;j 二 1,2,…,s[k 一 1j) 可 全 和 覆盖 区 间 [2,s[kj]]。 于 是 
有 pLa[kj 十 ==p[j] * 10 十 k;qLa[Lkj 十 j==q[j]; ==1,2,…,s[k 一 1])。 注 意 到 p[j] 比 
q[j] 大 j, 即 在 p[jj 与 qd[j] 的 基础 上 ,在 硅 码 盘 加 入 第 k 夸 码 a[kj, 称 量 盘 维持 不 变 , 则 可 
称 质量 为 a[kj 十 j。 

同时 ,pLaLkj 一 j] 二 q[j] * 10 十 k;q[La[k] 一 这 一 p[j];G 一 1,2,…,s[k 一 1])。 在 硅 码 
盘 加 入 第 k 硅 码 aLk] ,把 pD] 配 置 称 量 盘 , 把 qdUj] 配 置 夸 码 盘 , 注 意 到 p[j] 比 q[j] 大 j, 则 
可 称 质量 为 aLk] 一 j。 

以 上 赋值 pL2] 一 p[s[Ln 一 1]] 即 覆盖 了 区 间 [2,s[n 一 1]。 

@ 最 后 一 个 夸 码 a[n] 处 理 。 

最 后 一 个 夸 码 a[o] 的 取 值 由 输入 的 总 量 m 决定 ,其 范围 为 L[1,3" ], 相 差 非常 大 。 
为 此 , 按 a[m] 的 大 小 分 以 下 两 种 情形 处 理 。 

。 若 aLn]>s[n 一 1], 按 上 述 常规 处 理 。 

同样 实施 对 pLaLnoj] 士 门 赋值 。 为 了 避免 超 范 围 赋值 与 重复 赋值 ,加 了 条 件 限制 : 若 
aLn] 十 j 过 m, 不 赋值 ,以 避免 超 范围 赋值 ; 若 a[n] 一 j 过 =s[n 一 1], 不 赋值 ,以 避免 重复 
赋值 。 

。 若 a[n] 二 =s[n 一 1], 需 实施 特殊 处 理 。 

此 时 a[nj 三 =s[n 一 1], 需 解决 i[s[n 一 1j 十 1,mj 区 间 内 的 p[ 襄 ,q[ 记 的 赋值 ,以 完成 
对 称 重 i 的 在 码 配置 。 

通过 循环 实施 对 pLaLoj] 十 门 赋值 实现 ， 

for(j=s[n-1]-a[nm]+1;j<=mra[n];j++) 

{pla[n]+ j]=p[j] * 10+ n;q[a[n]+ j]=q[j];} 

这 样 ,完成 处 于 [s[n 一 本 二 1,m] 区 间 内 的 称 重 硅 码 配置 。 

(4) 称 量 t 的 夸 码 实现 。 

称 量 整 数 t 时 ,p[tj 与 qLtj 均 已 有 赋值 ,但 pLtj 与 q[ 吕 都 是 各 夸 码 代号 组 成 的 整数 ， 
需 分 离 出 各 个 硅 码 代号 ,然后 还 原 为 硅 码 质量 。 
加 入 t 在 称 量 盘 (为 便于 区 别 .t 整数 放 在 括号 内 ) ,写成 称 量 的 等 式 。 
例如 ,运行 m 王 100,t=80, 构 建 5 个 夸 码 : 1,3,9,27,60。 
由 pL80] 二 245( 指 第 2,4,5 个 硅 码 ) ,还 原 为 硅 码 质量 : 3 十 27 十 60; 
由 qL80] 二 13 ( 指 第 1,3 个 夸 码 ) ,还 原 为 硅 码 质量 : 1 十 9; 
输出 称 量 等 式 : 60 十 27 十 3 一 9 十 1 十 (80) 。 
因为 通过 求 余 分 离 p,q 硅 码 组 合 , 输 出 称 量 等 式 时 顺序 从 后 开始 ,不 影响 等 式 成 立 。 


2. 程序 设计 


// 拓 展 梅 齐 里 亚 克 双 码 盘 硅 码 问题 
# include < stdio.h> 
# include <math. h> 
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void main0 


{ 


int b, d, @, j,k, m, n, t, a[10], s[10]; long c,p[9001],q[9001] ; 

printf(” 请 输入 双 码 总 重 整 数 m(1<mk = 9000) : "); scanf("%d", &m) ; 

printf(” 请 输入 称 重 整 数 t(1<t=<m): "); scanf("%d",&t); 

n= (int) (log(2* mr 1)/log(3)+ 1); // 据 m 计 算 夸 码 个 数 n 

de=s[1]=a[1]=1; 

printf(" 重 %d 至 少 制 %d 个 硅 码 ,质量 依次 为 :1",m,n) ; 

for (k=2;k<=n- 1;k++) 

{ d=dx 3;e=etd; a[k]=d; // 以 3 的 寡 确 定 前 n- 1 个 硅 码 质量 
s[k]=e; printf(", %d",a[k]); 

} 

a[n]=m- s[n-1];s[n]=m; // 最 后 一 个 硅 码 用 m 剩 余 量 确定 

printf(", %d.\n",a[n]); 

p[0]=q[0]=0;p[1]=1;q[1]=0; 

for (k=2;k<=n;k++) 
if (a[k]> s[k- 1]) 


{ p[a[k]]=k;q[a[k]]=0; // 二 重 循环 产生 p,q 硅 码 数组 
for (j=1;j<=s[k- 1];j++) 
{ if(k<n || aln]+ j<=m) // 二 数组 之 差 p[d]- qld]=d 


{p[a[k]+ j]=p[j] * 10rk;q[a[k]+ j]=q[j];} 
if(k==n 8&8 a[ln]- j<=s[n- 1]) continue; 
p[a[k]- j]=q[j] * 10+k;q[a[k]- j]=p[j]; 


} 
if (aln]<= s[n- 1]) 
for (j=s[n- 1]-a[n]+1;j<=m-a[n];j++) 
{plafn]+ j]=p[j] * 10rn;q[a[n]+ j]=q[j];} 
printf(” 称 量 质量 %d:",t); 
c=p[t]; //p 为 硅 码 盘 中 硅 码 ,还 原 各 硅 码 质量 
while(c>=10) 
{b=c% 10; printf("%d+",a[b]);c=c/10;} 
printf("%d=",a[c]); 
c=q[t]; //q 为 称 量 盘 中 硅 码 ,还 原 各 硅 码 质量 
while(c>0) 
{b= c%10; printf ("% d+ ",a[b]) ;c=c/10;} 
printf("(%d), \n",t); 


3. 程序 运行 示例 与 说 明 


请 输入 双 码 总 重 整 数 m(1Km = 9000) : 9000 

请 输入 称 重 整 数 t(1Kt=< 由 : 2019 

重 9000 至 少 制 9 个 硅 码 ,质量 依次 为 :1, 3,9, 27, 81, 243, 729, 2187, 5720。 
称 量 质量 2019:2187+ 81+ 3 = 243+ 9+ (2019) 。 
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以 上 双 码 盘 称 重 的 编程 技巧 主要 体现 在 通过 用 硅 码 编号 给 p,q 数组 的 赋值 ,输出 时 
还 原 为 在 码 质量 ,进而 输出 称 重 配置 式 。 

最 多 9 个 硅 码 可 覆盖 到 9000 ,已 经 很 大 了 。 若 要 进一步 扩大 质量 范围 ,可 增加 到 10 
个 硅 码 ,把 第 10 个 硅 码 的 编号 用 0 代替 也 是 可 行 的 。 注 意 ,0 编号 只 能 放置 在 后 面 , 如 果 
放置 在 前 面 ,会 导致 整数 的 首位 0 消失 。 


5.6 0-1 串 积 与 多 码 串 积 


5. 2 节 探讨 了 积 的 构成 元 素 为 1 的 整除 设计 。 
本 节 进 一 步 探 索 有 趣 的 0-1 串 积 ,并 引申 至 任意 指定 n 码 串 积 。 


5.6.1 探求 0-1 串 积 


对 于 给 定 的 正 整 数 b ,探求 最 小 的 正 整数 a(a 之 1) ,使 得 a,b 之 积 全 为 数字 0 与 1 组 
成 的 0-1 串 积 。 

例如 ,对 于 给 出 b=107 ,找到 整数 a=934 673, 其 最 小 0-1 串 积 为 100010011。 

【问题 】 对 于 b==73, 试 寻找 最 小 的 整数 a, 使 得 aXb 为 0-1 串 积 。 

【求解 】 试 逐 位 探索 确定 a 的 各 位 数字 。 

(1) 确定 a 的 个 位 数字 。 

假设 最 小 的 整数 a 的 个 位 数字 为 0, 此 时 aXb 为 0-1 串 。 则 去 掉 a 的 个 位 数字 0 后 
其 积 仍 是 0-1 串 。 可 见 个 位 数字 为 0 的 a 非 最 小 ,与 假设 矛盾 。 因 此 可 知 使 得 aXb 为 
0-1 串 的 最 小 的 整数 a 的 个 位 数字 非 零 。 

注意 到 3 乘 7, 其 个 位 数字 为 1; 而 3 乘 7 以 外 的 其 他 数字 ,其 个 位 数字 不 为 1。 可 知 
使 得 aXb 为 0-1 串 的 最 小 的 整数 a 的 个 位 数字 为 7。 

(2) 逐个 试验 a 的 十 位 数字 。 

假设 a 为 2 位 数 ,其 十 位 数字 1,2,….,9, 逐 一 与 个 位 数字 7 组 合 , 试 验 可 知 积 aXb 中 
含有 除 0,1 之 外 的 其 他 数字 , 即 积 非 0-1 串 。 可 知 a 不 是 2 位 数 。 

(3) 逐个 试验 a 的 百 位 数字 。 

假设 a 为 3 位 数 ,其 百 位 数字 最 小 取 1, 而 其 十 位 数字 在 0,1,2,…,9 中 取 。 

当 十 位 数字 取 0,1,2 时 , 即 a=107,117,127 时 , 积 aX73 分 别 为 7811,8541,9271, 含 
有 除 0,1 之 外 的 其 他 数字 , 即 积 非 0-1 串 。 

当 十 位 数字 为 3 时 , 即 a=137 时 , 积 axXb=137X73 王 10001 ,满足 0-1 串 积 要 求 。 

结论 : 对 于 b= 二 73, 找 到 最 小 的 整数 137, 使 得 137X73 王 10001 为 0-1 串 积 。 也 就 是 
说 ,所 得 10001 是 含有 73 因数 的 最 小 0-1 串 。 

【编程 拓展 】 

1. 存在 解 的 讨论 

探求 0-1 串 积 问题 相对 5. 2 节 的 积 全 为 1 的 问题 要 复杂 一 些 。 有 时 也 把 积 全 为 1 视 
作 0-1 串 积 的 特例 。 

对 于 输入 的 任 一 正 整数 b, 分 解 出 b 的 2 因子 与 5 因子 后 ,b 的 其 余 因 数 为 个 位 数字 
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不 为 5 的 奇数 bl 。 

根据 前 面 介绍 ,总 可 以 搜索 出 整数 al ,使 得 al Xbl 全 为 1 组 成 ;另外 ,对 于 分 解 出 来 
的 2 因子 与 5 因子 ,总 有 整数 使 其 乘积 串 结尾 为 00…0。 

因而 对 任意 正 整 数 b, 总 存在 0-1 串 积 。 


2. 探求 0-1 串 积 设计 要 点 

(1) 设置 数组 。 

设置 3 个 一 维 数组 : 数组 d 存储 整数 k 转换 为 二 进 制 数 的 各 位 数字 0 或 1,d[1] 为 个 
位 数字 ;数组 c 存储 整数 中 各 位 1 分 别 除 以 整数 b 的 余数 ,其 中 c[ 避 为 从 个 位 开始 第 i 位 1 
除 以 b 的 余数 ;数组 a 存储 d 从 高 位 开始 除 以 整数 b 的 商 的 各 位 数字 。 

(2) 余数 计算 、 求 和 与 判别 。 


@ 注意 到 0-1 串 积 为 十 进 制 数 ,应 用 求 余 运 算 % 可 分 别 求 得 个 位 1, 十 位 1，…… ,分 
别 除 以 已 给 b 的 余数 ,存放 在 c 数 组 中 : c(1) 为 1,c(2) 为 10 除 以 b 的 余数 ,c(3) 为 100 除 
以 b 的 余数 ， 本 


@ 要 从 小 到 大 搜索 0-1 串 ,不 重复 也 不 遗漏 ,从 中 找 出 最 小 的 能 被 b 整除 的 0-1 串 
限 。 为 此 ,设置 k 从 0 开始 递增 ,把 k 转化 为 二 进 制 数 ,就 得 到 所 需要 的 这 些 0-1 串 。 不 
过 ,这 时 每 个 串 不 再 看 作 二 进 制 数 ,而 是 十 进 制 数 。 

G) 在 某 一 k 转化 为 二 进 制 数 的 过 程 中 ,每 转化 一 位 d(i) (0 或 1), 求 出 该 位 除 以 b 的 
余数 d(i) * c(D( 如 果 d(i) = 二 0, 余 数 为 0;d(i) = 二 1, 余 数 为 c(i))。 同 时 通过 s 累加 求 和 得 
k 转化 的 整个 二 进 制 数 除 以 b 的 余数 s。 

@ 判别 余数 s 是 否 被 b 整除 : 车 s%b= 二 0, 即 找到 所 求 最 小 的 0-1 串 积 。 

(3) 模拟 整数 除法 求 另 求 一 乘 数 。 

所 得 0-1 串 积 d 数组 从 高 位 开始 除 以 b 的 商 存储 在 a 数组 ,实施 整数 除法 运算 : 


x=ex 10+ d[j]; //e 为 上 轮 余数 ,x 为 被 除数 
a[j]=x/b; //a 为 d 从 高 位 开始 除 以 b 的 商 
e=x%b; //e 为 试 商 余 数 


去 掉 a 数组 的 高 位 0 后 ,输出 a 即 为 所 寻求 的 最 小 乘 数 。 
最 后 从 高 位 开始 打印 d 数组 , 即 为 所 求 的 最 小 0-1 串 积 。 


3. 探求 0-1 串 积 程序 设计 


// 探 求 最 小 0_1 串 积 程序 设计 
# include < stdio. h> 
voidmain0 
{ int be,i,j,t,x,a[2000],c[2000],d[2000] ; long k,s; 
printf(” 请 给 出 整数 b:"); scanf("%d",&b) ; 
c[1]=1; 
for (i=2;i< 200; i+ +) 
c[i]=10x c[i-1%b; //c(i) 为 右边 第 i 位 1 除 以 b 的 余数 
k=0; 
while(TD) 
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{ k++;j=k;i=0;s=0; 


while(j>0) 
{ dft++i]=j%2; st=d[i]*c[i]; 
j=j/2; =o%b; /k 除 2 取 余 转化 为 d 数 组 
} 
if (s% b==0) // 判 断 咏 1 串 是 否 被 b 整 除 


{ for(e=0,j=i;j>=1;j--) 
{ x=ex 10+d[j]; 
a[j]=x/b; e= x%b; //d 从 高 位 开始 除 以 b 商 为 a 
} 
j=i; 
while(a[j]==0) j--; // 去 掉 a 数组 的 高 位 0 
printf(” 探索 得 整数 a:"); 
for (t= j;t>=1;t--) 
printf("%d",a[t]); // 逐 位 输出 a 即 为 寻找 的 乘 数 
printf("\n %d 的 最 小 0-1 串 积 为 :",b); 
for (t=i;t>=1;t--) 
printf ("%d", d[t]); // 逐 位 输出 d 即 为 0- 1 串 积 
printf ("\n"); 
break; 


4. 程序 运行 示例 与 说 明 


请 给 出 整数 b:2018 
探索 得 整数 a:49603573395 
2018 的 最 小 o 1 串 积 为 :100100011111110 


以 上 设计 判断 整除 是 通过 统计 余数 为 0 来 实现 的 ,扩展 了 应 用 范围 。 

这 里 的 运行 示例 中 ,a 达 11 位 数 , 如 果 通 过 枚 举 整数 a 来 探求 ,可 知 工作 量 相当 大 。 
而 通过 枚 举 串 积 来 探求 , 枚 举 量 只 有 5 位 数 ,工作 量 相对 要 小 得 多 。 

若 得 到 的 结果 全 为 1 组 成 , 则 可 看 成 0-1 串 积 的 特例 。 


5.6.2 指定 多 码 串 积 


从 键盘 输入 指定 两 个 数码 v,u( 约 定 0 二 v 二 u 过 9) ,对 指定 的 正 整 数 b, 试 探求 最 小 的 
正 整数 a(a>1), 使 a,b 之 积 全 为 数字 v 与 u 组 成 。 

例如 ,指定 两 个 数码 3,8 ,给 出 b 王 2017 ,探求 到 最 小 的 整数 a 二 41317964, 其 积 为 
数字 3,8 组 成 的 串 积 83338333388 。 

显然 ,指定 2 码 串 积 是 前 面 的 0-1 串 积 的 拓展 。 

一 般 地 ,对 于 指定 的 正 整数 b, 同 时 指定 正 整数 n(1 二 n 二 9) ,并 从 键盘 输入 指定 n 个 
数码 f(i) (约定 0 委 f(i) 委 9) ,探求 最 小 的 正 整数 a(a>1), 输出 a,b 之 积 全 为 指定 数码 
f(GD) 组 成 。 
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如 果 对 b 不 存在 指定 n 个 数码 串 积 ,请 予 指出 。 

例如 ,指定 3 数码 0,3,6, 给 出 b==2018, 找 到 最 小 的 正 整 数 a 二 3122202, 其 积 为 由 数 
字 0,3,6 组 成 的 最 小 串 积 6300603636 。 

显然 ,指定 n 码 串 积 是 前 面 指定 0-1 串 积 的 拓展 。 


1. 算法 设计 要 点 

还 是 应 用 求 余数 判别 指定 n 码 串 积 。 

数据 结构 设置 同 前 ,增加 存储 n 个 指定 数码 的 数组 f(D) (i==0,1,…,n 一 1)。 

(1) 是 否 存 在 n 码 串 积 解 的 讨论 。 

若 n 个 数码 均 为 奇数 ,而 b 为 偶数 ,显然 无 解 。 

车 n 数码 的 个 位 数字 均 不 为 0 或 5, 而 b 的 个 位 数字 为 5, 显然 也 无 解 。 

注意 到 存在 解 的 必要 条 件 : 给 定 整 数 b 的 个 位 数字 b%10 与 所 寻求 a 的 个 位 数字 
(不 外 乎 0 一 9) 之 积 的 个 位 数字 ,必须 是 n 个 指定 数码 fi) 之 一 。 

因而 设置 i(0 一 9) 循 环 ,检测 : 车 b%10 与 i0 一 9) 之 积 的 个 位 数字 为 {(i) (i==0， 
1,…,n 一 1) ,可 能 有 解 ; 若 b%%10 与 i00 一 9) 之 积 的 个 位 数字 不 为 fiD (i=0,1,…,n 一 1)， 
肯定 无 解 。 

在 以 上 检测 基础 上 ,同时 设置 第 二 道 检测 : 若 当 探 求 循 环 次 数 k 达到 10000000( 此 时 
乘积 已 相当 大 ,必要 时 可 调整 ) 还 未 寻找 到 相应 的 解 , 则 显示 “所 求 n 码 串 积 可 能 不 存在 ” 
后 退出 。 

(2) 除 n 取 余 。 

对 应 指定 的 n 个 数码 fGD 依 次 从 键盘 输入 (约定 0<{(0) 达 f(1) 过 …<<f(n 一 1) 志 9)。 

应 用 整数 除 n 取 余 ,所 得 n 个 余数 为 dLi](i=0,1,…,n 一 1) 。 

指定 对 应 关系 {[d[i]]。 

当 d[ 襄 =0 时 ,对 应 数码 {[0]; 

当 d[ 记 ==1 时 ,对 应 数码 {[1]; 

当 d[ 癌 二 n 一 1 时 ,对 应 数码 {[n 一 1]; 

在 求 d[ 订 循环 中 ,每 得 到 一 个 d[ 记 后 ,用 f[a[ 让 ] * c[ 沁 代 换 d[ 订 * c[ 沁 。 

在 求 a 数组 循环 中 ,用 x==ex* 10 十 f[d[ij] 代 换 x==ex* 10 十 d[j]。 

在 输出 串 积 循环 中 ,用 f[d[t]] 代 换 d[t]。 

通过 以 上 代 换 ,把 求解 0-1 串 积 改造 为 求解 n 码 串 积 。 


2. 指定 n 码 串 积 程序 设计 


/探求 最 小 指定 n 码 串 积 程序 设计 
# include < stdio. h> 
void main0 


{ int be,i， mu s,t,x,a[1000],c[1000],d[1000],f[10]; long j,k; 
printf(" 请 输入 正 整 数 b:"); scanf ("%d",&b); 
printf(” 请 输入 正 整数 n(n<9):"); scanf("%d",&n); 
printf(” 请 从 小 到 大 输入 %d 个 数码 :\n",m); 
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for (i=0;i<=n-1;i++) 

{printf(” 输入 第 %d 个 数码 :", i+1); scanf ("%d",&f[i]);} 
for (t=0, i=0;i<=9;i++) 
for (j=0;j<=n-1;j++) 

if((ix (b% 10))%10==fF[j]) {t=1;break;} 


if (t==0) // 排 除 明显 无 解 情形 
{printf(” 所 求 %d 串 积 不 存在 I\n",m) ; return; } 
c[1]=1; 
for(i=2;iK1000;i++) 
c[i]=10* c[i-1]%b; //c(i) 为 右边 第 位 1 除 以 b 的 余数 
k= 0; 
while(TD) 
{ k++;j=k;i=0;s=0; 
if (k> 1e30) // 指 出 可 能 无 解 情形 
{printf(” 所 求 %d 码 串 积 可 能 不 存在 I\n",n); return; } 
while(j> 0) 
{ it++;d[i]=j%n;s=s+e[i] * Ff[d[i]]; 
j= j/n; s=s%b; // 除 n 取 余 法 转化 为 n 进 制 统计 余数 
| 
if (s% b==0) // 检 测 n 串 积 是 否 整除 b 


{ for(e=0,j=i;j>=1;j--) 
{ x=ex* 10+f[d[j]]; 
a[j]=x/b; e=x%b; // 从 高 位 开始 试 商 寻求 a 
} 
ji; 
while(a[j]==0) j--; // 去 掉 a 数组 的 高 位 0 
printf(” 探索 得 最 小 整数 a:"); 
for (t= j;t>=1;t--) 
printf("%d",a[t]); // 输 出 所 得 整数 a 
printf("\n “乘积 axb 的 %d 码 串 积 为 :",m) ; 
for (t=i;t>=1;t--) 
printf ("%d", Ff[d[t]]); // 输 出 ax* b 的 n 串 积 
printf("\n") ;break; 


3. 程序 运行 示例 与 说 明 


请 输入 正 整数 b:2019 

请 输入 正 整 数 n(n<9):3 

请 从 小 到 大 输入 3 个 数码 :1 4 7 
探索 得 最 小 整数 a:203639 

乘积 axb 的 3 码 串 积 为 :411147141 


第 5 语 将 蕊 来 饼 记 煌 | 


如 果 得 到 的 结果 全 为 某 一 数码 或 指定 数码 中 的 某 些 数码 所 组 成 ,可 看 成 指定 n 码 串 
积 的 一 个 特例 。 
事实 上 ,指定 数码 越 多 , 因 选 择 的 范围 越 大 ,一 般 所 探索 到 的 整数 a 就 较 小 。 


5.7 精妙 的 尾数 前 移 


《数学 通报 ) 早 年 曾 发 表 过 以 下 新 颖 的 计算 趣 题 。 

整数 n 的 尾数 是 9, 把 尾数 9 移 到 其 前 面 (成 为 最 高 位 ) 后 所 得 的 数 为 原 整数 mn 的 3 
倍 , 原 整数 n 至 少 为 多 大 ? 

这 一 趣 题 开启 了 “尾数 前 移 ” 趣 味 计算 的 先河 。 

第 4 届 国 际 中 学 生 数学 竞赛 也 有 以 下 较为 简单 的 尾数 前 移 计算 趣 题 。 

【问题 】 求 性 质 如 下 的 最 小 自然 数 n: 用 十 进 制 表示 时 , 它 的 最 后 一 位 数字 是 6。 将 
这 个 数字 6 移 到 其 余数 字 的 最 前 面 , 所 得 的 新 数 是 原 数 的 4 倍 。 

【探求 】 尝试 应 用 实施 竖 式 除法 与 竖 式 乘法 两 种 方法 求解 。 

(1) 实施 竖 式 除法 。 

@ 开始 时 被 除数 为 6( 即 前 移 的 尾数 字 ) ,除数 为 4( 即 前 移 后 的 倍数 ) 。 

@ 每 试 商 所 得 的 商 (一 个 数字 ) 即 作为 被 除数 的 下 一 个 数字 。 如 图 5-5(a) 所 示 , 商 的 
第 一 个 数字 1 移 作 被 除数 的 第 2 个 数字 (如 图 中 的 斜 线 所 示 ) , 商 的 第 2 个 数字 5 移 作 被 
除数 的 第 3 个 数字 ,…… ,以 此 类 推 。 

@ 除法 结束 的 条 件 : 所 得 的 商 为 6, 即 原 整数 n 的 尾数 ;同时 试 商 的 余数 为 0。 

(2) 实施 竖 式 乘法 。 

@ 开始 时 ,所 求 整数 n 的 个 位 数字 为 6( 即 尾数 字 ) , 另 一 乘 数 为 4( 即 倍数 ) 。 

@ 每 试 乘 所 得 的 积 的 个 位 数字 作为 n 的 高 一 位 数字 。 如 图 5-5(b) 中 箭头 所 示 , 积 的 
个 位 数字 4 移 作 n 的 十 位 数字 , 积 的 十 位 数字 8 | 5 3 8 46 
移 作 nn 的 百 位 数字 ,……, 以 此 类 推 。 Se 

@ 乘法 结束 的 条 件 : 所 得 的 积 只 为 一 个 数 2 1 
字 ( 即 没有 进位 ), 且 这 一 个 数字 为 6, 即 原 整 数 n 1 


的 尾数 。 33 
答案 : n 一 153846。 这 就 是 第 4 届 国 际 中 学 ee _ 

生 数学 竞赛 尾数 前 移 趣 题 的 答案 。 1 ， ARR 
【编程 拓展 】 2 6153BY 
以 上 尾数 前 移 问 题 的 尾数 为 1 位 ,事实 上 可 四 人 

把 前 移 的 尾数 拓展 为 多 位 。 图 5-5 实施 竖 式 除法 与 竖 式 乘法 示意 图 


整数 n 的 尾数 q( 可 为 多 位 ) 移 到 1n 的 前 面 所 
得 的 数 为 n 的 p 信 , 记 为 n(q,p)。 这 里 正 整 数 p 不 大 于 前 移 尾数 q 的 首位 。 
对 于 指定 的 尾数 q 与 倍数 p, 求 解 n(q,p)。 


1. 模拟 设计 要 点 
试 应 用 模拟 竖 式 除法 设计 探求 。 
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设置 d,e 数组 ,存储 所 求 n 及 指定 尾数 q 的 各 位 数字 。 

尾数 前 移 后 为 n 的 p 倍 , 即 前 移 后 的 整数 能 被 p 整除 ,以 此 实施 模拟 竖 式 除 探求 整数 
n 的 各 位 数 。 

(1) 应 用 逐 位 求 余 求 得 尾数 q 的 位 数 k 及 各 位 数字 d[j] (一 k,…,1)。 

(2) 对 q 的 k 位 实施 模拟 竖 式 除法 , 求 得 n 的 前 k 位 。 

(3) 设计 模拟 竖 式 除法 循环 , 求 出 n 的 第 i+k 位 (ii 一 1,2,…)。 

循环 条 件 为 cl! 二 0 || b! 二 q, 这 里 c 为 试 商 的 余数 ,b 为 d[i 十 1],d[i 十 2],…,d[i 十 k] 
这 k 个 数字 组 成 的 整数 。 

当 试 商 余数 为 0, 且 最 后 的 k 位 数字 组 成 的 整数 b 等 于 尾数 qd 时 ,终止 探索 ,输出 d 
数组 的 共 i 十 k 位 , 即 所 求 的 n。 


2. 程序 设计 


/模拟 除 竖 式 求解 多 位 尾数 前 移 
# include < stdio.h> 
voidmain0 
{ int a,b,c, i, j,k, p,q,x,d[10000],e[10000]; 
printf(” 请 输入 尾数 (可 多 位 )q, 倍数 p:"); scanf ("%d,%d", &q, &p) ; 
k=0;x=q; 
while (x> 0) 
{k++ ;d[k]=x% 10;x=x/10;} // 求 尾数 q 的 位 数 k 及 各 位 数字 
if (d[k]< p) 
{printf ("问题 无 解 1"); return;} 
printf(” n(%d,%d)=",q,p); 
for (j=1;j<=k;j++) e[j]=d[k+ 1-j]; 
for (c=0, j=1;j<=k;j++) 


{a=cx 10+ e[j];d[j]=a/p;c=a% p;} //d[j] 为 所 求 n 的 第 j 位 数字 
i=b=0; 
while(c!l=0 || b!=q) // 试 商 循 环 ,c=0 且 b=q 时 结束 
{ itr+;a=cx*10+d[i]; 
d[i+k]=a/p;c=a% p; // 模 拟 整数 竖 式 除法 计算 
for (b=0, j=1;j<=k;j++) 
b=b* 10+ d[i+ j]; /b 为 所 求 n 的 后 k 位 数 


} 
for (j=1;j<=itk;j++) 
printf ("% d", d[j]); // 输 出 所 求 n 及 其 位 数 
printf("\n 共有 %d 位 。\n", i+k); 
} 


3. 程序 运行 示例 与 说 明 
请 输入 尾数 (可 多 位 )q, 售 数 p:9,3 


n(9, 3)= 3103448275862068965517241379 
共有 28 位。 
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请 输入 尾数 (可 多 位 )q, 倍数 p:31,2 
n(31, 2) = 15577889447236180904522613065326633165829145728643 
2160804020100502512562814070351758793969849246231 
共有 99 位 。 


以 上 所 得 n(9,3) 即 为 (数学 通报 》 上 所 提问 题 的 答案 ,把 n(9,3) 的 尾数 字 9 前 移 ,所 
得 整数 即 为 n(9,3) 的 3 倍 。 

所 得 n(31,2) 多 达 99 位 ,还 可 得 n(2019,2) 达 408 位 数 。 以 上 所 求 的 数 为 高 精度 数 ， 
应 用 模拟 竖 式 除法 得 到 快捷 解决 , 显 出 程序 设计 的 优势 。 

注意 : 多 位 尾数 包含 一 位 在 内 , 即 多 位 尾数 前 移 程序 同样 可 求解 一 位 尾数 前 移 问题 。 


5.8 伯 努 利 装 错 信封 问题 


著名 的 伯 努 利 装 错 信封 问题 ,实际 是 一 类 错位 特殊 的 排列 问题 。 因 此 ,在 探讨 实现 伯 
努 利 装 错 信封 问题 之 前 ,有 必要 论述 基本 排列 与 组 合 的 实现 。 

从 mn 个 不 同 元 素 中 任 取 mm 个 (约定 1m 三 n), 按 任意 一 种 次 序 排 成 一 列 , 称 为 排列 ， 
其 排列 种 数 记 为 A(n,m)。 

从 mn 个 不 同 元 素 中 任 取 m 个 (约定 1 委 m< 过 mn) 成 一 组 , 称 为 组 合 ,其 组 合 种 数 记 为 
Cnym) 。 


An,m) 与 CCn,m) 的 计算 公式 分 别 如 下 所 示 。 


An,m) 一 n。(n 一 1)。…。(n 一 m 十 1) (1) 
~ nl sh We .ss 
Son ml(n—m)! 1 2 m 0 


5.8.1 实现 排列 组 合 


所 谓 实现 基本 排列 ,就 是 要 把 A(n,m) 的 每 一 排列 具体 展现 出 来 。 而 实现 基本 组 合 ， 
就 是 要 把 C(n,m) 的 每 一 组 合 具体 展现 出 来 。 可 以 以 大 写字 母 展现 ,也 可 以 改 用 数字 来 
展现 。 


1. 设计 要 点 

在 一 个 程序 中 实现 排列 或 组 合 ,必须 通过 项 目 选择 p 来 确认 : 约定 选择 p 二 1 为 实现 
排列 ,选择 p 二 2 为 实现 组 合 。 

(1) 应 用 回溯 法 设计 实现 排列 。 

设置 一 维 a 数 组 ,aQ) 在 1~n 中 取 值 ,出 现 数字 相同 时 返回 。 

变量 i 从 1 开始 递增 取 值 , 当 i<m 时 ,还 未 取 m 个 数 ,i 增 1 后 aG)=1 继 续 ; 当 i 一 mm 
时 ,输出 一 个 A(n,m) 的 排列 ,并 设置 变量 s 统计 A(n,m) 排 列 的 个 数 。 

当 a 让 二 n 时 a() 增 1 继续 ; 当 a(i) 二 n 时 回溯 或 调整 ,直到 i 一 0 时 结束 。 

(2) 修改 条 件 实现 组 合 。 
注意 到 组 合 与 元 素 的 顺序 无 关 ,约定 组 合 中 的 元 素 按 升序 排序 。 实 际 上 ,从 mn 个 中 取 
m 个 的 组 合 是 从 mn 个 中 取 m 个 的 排列 的 一 个 子 集 , 这 个 子 集中 的 每 一 个 排列 中 的 数字 按 
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升序 排序 。 

因而 ,把 以 上 程序 中 * 出 现 相 同 元 素 时 返回 的 条 件 a[j 二 二 a[ 让 修改 为 a[ 让 之 一 a[ 襄 ， 
即 可 实现 从 n 个 不 同 元 素 中 取 m 个 (约定 1 和 m<n) 的 组 合 。 

(3) 验证 与 输出 。 


实现 排列 组 合 后 ,验证 程序 统计 个 数 s 与 理论 值 sl1(p 一 1 时) 与 s2(p 一 2 时 ) 是 否 相 


等 , 若 出 现 不 等 ,说 明 程序 统计 出 错 , 输 出 * 出 错 信息 ”。 只 有 当 实 际 统计 个 数 s 与 理论 值 
相符 时 , 才 输 出 “经 过 验证 ”说 明 。 
如 果 输 出 语句 为 printf("%d" ,a[j]) , 则 按 数 字形 式 输出 。 


把 输出 语句 printf("%d" ,a[j]) 改 为 printf("%c",a[j] 十 64) ,排列 (或 组 合 ) 输 出 


前 n 个 正 整 数 改 变 为 前 n 个 大 写 英文 字母 输出 。 
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程序 设计 


// 实 现 排列 An,m) 与 组 合 Cn,m 
# include < stdio. h> 


void main0 


| 


int n,m, i, j,p, t, a[30]; long s, s1, s2; 

printf(” 请 选择 实现 项 目 p, 1 排列 ;2 组 合 :"); 
scanf ("% d", &p) ; 

printf(” 请 输入 正 整 数 n,m(1<m<=n< 10):"); 
scanf ("% d, % d", &n, &m) ; 

if(p==1) printf(” 实现 排列 A(%d,%d):\n",n,m); 
else printf(” 实现 组 合 C%d,%d) :\n",n,m); 


s=0;s1= s2= 1; 

for (j=1;j<=m;j++) // 计 算 Aln,m),C(n,m) 
{s1=s1x (n- j+1);s2=s2x (n- j+1)/j;} 

i=1;a[i]=1; 

while(1) 
{ t=1; 


for (j=1;j<i;j++) 
if (p==1 && a[j]==a[i] || p==2 8&& a[j]>=a[i]) /控制 元 素 返回 条 件 
{t=0;break;} 


if(t && i==m) 
{ for(j=1;j<=m;j++) 
printf ("% co", a[j]+ 64) ; // 以 大 写字 母 输出 
printf(" "); 
if(++s%5==0) printf ("\n"); // 控 制 每 一 行 输出 5 个 
} 
if(t && i<m) {i++ ;a[i]=1;continue;} 
while(a[i]==n) i-—; // 调 整 或 回溯 
if(i>0) a[i]++; 
else break; 
} 
if(p==1 && sl=s1 || p==2 8 s!= s2) // 检 验 统 计数 s 与 理论 数 是 否 相 
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同 
{ printf("\n 实现 排列 组 合 出 错 1\n"); return;} 


else 
printf("\n 经 过 验证 , 共 以 上 % 1d 个 。\n",s); 
} 
3. 程序 运行 示例 与 说 明 


请 选择 实现 项 目 p, 1 排列 ;2 组 合 :1 请 选择 实现 项 目 p, 1 排列 ;2 组 合 :2 
请 输入 正 整 数 n,m(1<m<=n< 10): 6,3 请 输入 正 整 数 n,m(1<m=n<10): 6,3 


实现 排列 A(6, 3) : 实现 组 合 C(6,3) : 
ABC ABD ABE ABF ACB ABC ABD ABE ABF ACD 
ACD ACE ACF ADB ADC ACE ACF ADE ADF AEF 
er BCD BCE BCF BDE BDF 
FDE FEA FEB FEC FED BEF CDE CDF CEF DEF 
经 过 验证 , 共 以 上 120 个 。 经 过 验证 , 共 以 上 20 个 。 


以 上 程序 ,把 实现 排列 与 实现 组 合 一 并 设计 求解 ,是 可 行 的 ,也 是 简明 的 。 以 上 是 按 
大 写字 母 输出 ,可 以 考虑 用 数字 输出 ,也 可 改 用 小 写字 母 输出 。 

程序 设计 有 验证 功能 ,如 果 程 序 实现 的 排列 个 数 与 式 (1) 的 排列 理论 值 不 同 ,或 程序 
实现 的 组 合 个 数 与 式 (2) 的 理论 组 合 值 不 同 , 则 输出 “出 错 信 息 ”。 


5.8.2 全 错位 排列 


本 节 探 讨 *“ 伯 努 利 装 错 信封 "这 一 著名 组 合 数学 问题 ,并 通过 程序 设计 予以 拓展 。 

【问题 背景 】 

伯 努 利 装 错 信封 问题 的 一 般 表 述 : 某 人 写 了 nm 封 信 , 并 且 写 了 这 n 封 信 对 应 的 n 个 
信封 。 把 所 有 的 信 得 都 装 错 了 信封 的 情况 ,共有 和 多少 种 ? 

这 是 组 合 数学 中 有 名 的 全 错位 排列 问题 。 著 名 数学 家 伯 努 利 (Bernoulli) 曾 最 先 考 虑 
此 题 。 后 来 ,数学 家 欧 拉 对 此 题 产生 了 兴趣 , 称 此 题 是 “组 合理 论 的 一 个 妙 题 ”, 独 立地 解 
出 了 此 题 。 

为 叙述 方便 ,把 某 一 元 素 在 自己 相应 位 置 (如 2 在 第 2 个 位 置 ) 称 为 在 自然 位 ; 某 一 元 
素 不 在 自己 相应 位 置 称 为 错位 。 

事实 上 ,n 个 不 同 元 素 的 所 有 全 排列 分 为 3 类 。 

(1) 所 有 元 素 都 在 自然 位 ,实际 上 只 有 一 个 排列 。 例 如 , 当 n==5 时 , 即 12345。 

(2) 所 有 元 素 全 错位 。 当 n 二 5 时 ,如 24513 等 ,没有 任何 元 素 在 自然 位 。 

(3) 部 分 元 素 在 自然 位 ,部 分 元 素 错 位 。 当 n=5 时 ,如 21354。 

装 错 信封 问题 求解 实际 上 求 n 个 元 素 全 排列 中 的 “全 错位 排列 "这 一 子 集 。 

当 n 二 2 时 显然 只 有 一 个 解 : 21(2 不 在 第 2 个 位 置 且 1 不 在 第 1 个 位 置 ) 。 

当 n==3 时 ,有 231 和 312 两 个 解 。 解 析 231 这 一 全 错位 排列 解 ,2 错位 在 第 1 位 , 相 
当 于 第 2 封 信 签 装 入 第 1 个 信封 ;3 错位 在 第 2 位 ,相当 于 第 3 封 信 签 装 入 第 2 个 信封 ;1 
错位 在 第 3 位 ,相当 于 第 1 封 信 签 装 入 第 3 个 信封 。 

曾 有 一 道 国 际 数学 奥林匹克 试题 ,是 伯 努 利 装 错 信封 问题 n 一 6 的 特例 : 某 人 给 6 个 
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朋友 每 人 写 了 一 封 信 , 同 时 写 了 这 6 个 朋友 地 址 的 信封 。 有 多 少 种 投放 信 短 的 方法 ,使 每 
封 信和 与 信封 上 的 收 信人 都 不 相符 ? 


【问题 】 试 找 出 n 个 元 素 全 错位 排列 个 数 f(n) 的 递 推 公式 。 

【分 析 】 应 用 逻辑 推理 探求 。 

(1) 考虑 第 n 号 元 素 的 错 排 位 置 , 有 n 一 1 种 可 能 ( 即 不 能 排 在 第 n 位 ) 。 

假设 第 n 号 元 素 排 在 第 ii 一 1,2,…,n 一 1) 位 。 

(2) 考虑 第 i 号 元 素 排 人 方案 ,有 以 下 两 种 方案 。 

Q@ 第 i 号 元 素 排 在 第 n 位 。 剩 下 的 问题 就 是 由 第 1,2,…',i 一 1,i 十 1,…,n 一 1 共 n 一 


2 个 元 素 和 n 一 2 个 位 置 组 成 的 “全 错位 排列 ?问题 ,为 fn 一 2) 个 。 


@ 第 i 号 元 素 不 排 在 第 n 号 位 置 。 这 时 把 第 i 号 位 抽 走 ,把 第 n 号 位 号 码 覆 盖 , 贴 上 i 


号 ,问题 化 为 由 1,2,…,n 一 1 个 元 素 和 n 一 1 个 位 置 的 “全 错位 排列 ”问题 , 共 fCn 一 1) 个 。 


综 上 ,得 递 推 公式 


fn) = Cn 一 1)[fCn 一 1) 十 fn 一 2)] (3) 
初始 条 件 : {(2)=1,f(3)=2。 
从 初始 条 件 出 发 ,应 用 递 推 公式 (1) 即 可 顺利 推出 ; 
f(4) 王 3[f(3) 十 {(2)] 一 3(2 十 1) 一 9 
f(5) 一 4LfC4) 十 {(3)] 一 4(9 十 2) 一 44 
f(6) 一 5[Lf{(5) 十 f(4)] 一 5(44 十 9) 一 265 
f(7) 一 6[f(6) 十 {(5)] 一 6(265 十 44) 一 1854 
f(8) 一 7Lf(7) 十 {(6)] 一 7(1854 十 265) 一 14833 
当 n= 二 6 时 ,f(6) 二 265, 这 就 是 上 述 国 际 数学 奥林匹克 试题 的 答案 。 
上 述 国际 数学 奥林匹克 试题 并 不 要 求 具体 展现 全 错位 排列 ,如 何 具 体 展示 出 所 有 


f(6) 二 265 个 全 错位 排列 ? 


【编程 拓展 】 

一 般 地 ,在 实现 排列 程序 设计 中 加 上 “限制 取 位 ”的 条 件 即 可 实现 全 错位 排列 。 

(1) 设计 要 点 。 

设置 一 维 a 数 组 ,a(i) 在 1~n 中 取 值 ,出 现 数字 相同 a(j) 二 a( 让 或 某 元 素 j 处 于 自然 


位 j= 二 aQj) 时 返回 (j= 二 1,2,…,n 一 1)。 


当 i<n 时 ,还 未 取 n 个 数 ,i 增 1 后 aG) 王 1 继续 ; 
当 i==n 且 最 后 一 个 元 素 不 在 自然 位 a(n)! ==n 时 ,输出 一 个 错位 排列 ,并 设置 变量 s 


统计 错位 排列 的 个 数 。 
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当 a(i) 过 n 时 a(i) 增 1 继续 。 
当 a(i) 二 n 时 回溯 或 调整 ,直到 i 二 1 且 a(1)= 二 n 时 结束 。 
(2) 程序 设计 。 


// 伯 努 利 装 错 信封 问题 程序 设计 
# include < stdio. h> 


void main0 
{ int ni,j,t,a[30]; long f[10],s=0; 
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printf(" 请 输入 正 整数 n(n< 10) :"); scanf ("%d", &n) ; 
f[2]=1;f[3]= 2; 
for (j=4;j<=n;j++) 


f[j]= (1) * (Ff[j-1]+f[j-2]); // 计 算 全 错位 排列 和 数 f[n] 
i=1;a[i]=1; 
while(TD) 
{ for(t=1,j=1;j<i;j++) 
if (a[lj]==a[i] || a[j]==)) // 出 现 相 同 元 素 或 元 素 在 自然 位 时 返回 
{t= 0;break;} 
if(t &8 i==n 8&& a[n]!=n) // 加 上 最 后 一 元 素 错位 限制 


{ printf(” "); 
for (j=1;j<=n;j++) 
printf ("% d", a[j]); 
if(++s%5==0) printf("\n"); 
} 
if(t && i<n) 
{i++ ;a[i]=1; continue; } 
while(a[i]==n) i-—; // 调 整 或 回溯 
if(i>0) ali]+t+; 
else break; 
} 
if(s==f[m]) 
printf("\n 经 过 检验 共有 以 上 % 1d 个 全 错 排列 。\n",s) ; 
else printf("\n 未 通过 检验 ,全 错 排列 个 数 出 错 。\n", s); 
} 


(3) 程序 运行 示例 与 说 明 。 


请 输入 正 整 数 n(n< 10):6 
214365 214563 214635 215364 215634 
215643 216345 216534 216543 231564 


654132 654213 654231 654312 654321 
经 过 检验 共有 以 上 265 个 全 错 排列 。 


以 上 输出 265 种 全 错位 排列 : 1 不 在 第 1 位 , 且 2 不 在 第 2 位 ，…… , 且 6 不 在 第 6 
位 ,也 是 上 面 所 提 数 学 竞赛 题 的 全 部 解 。 

程序 自 带 检验 功能 ,回溯 设计 中 实际 统计 全 错 排列 个 数 为 s, 经 递 推 得 到 的 全 错 排列 
理论 个 数 为 f[nj, 如 果 s==fLo] 即 通过 检验 ,否则 输出 “出 错 ? 提 示 。 

输入 n 一 9 ,程序 可 具体 展示 出 {(9) 二 133496 种 9 位 全 错位 排列 。 

全 错位 排列 是 装 错 信封 问题 的 数学 模型 ,而 装 错 信封 是 全 错位 排列 的 一 个 通俗 表述 。 

全 错位 排列 还 有 一 个 “ 戴 错 帽 ?的 通俗 表述 : 有 mn 个 朋友 参加 宴会 ,他 们 把 帽子 挂 在 
一 起 。 宴 会 后 每 人 戴 了 一 项 帽子 回 家 ,他 们 的 妻子 发 现 他 们 戴 了 别人 的 帽子 。 问 n 个 朋 
友 都 不 戴 自 己 的 帽子 的 戴 法 共有 多 少 种 ? 
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5.9 两 个 "幽灵 ”e 和 


数学 大 师 欧 拉 于 1748 年 首创 公式 
er 十 1 一 0 (1) 

式 (1) 简 洁 优 美 ,内 涵 直 富 。 其 中 自然 对 数 底 的 名 字 。 就 来 源 于 欧 拉 的 姓名 。 

理 查 德 。 费 曼 称 这 个 公式 为 “数学 最 奇妙 的 公式 ”, 是 数学 界 最 令 人 着 迷 的 公式 之 一 ， 
它 将 数学 里 最 重要 的 几 个 常数 联系 到 了 一 起 : 两 个 超越 数 : 自然 对 数 的 底 。, 圆 周 率 r; 两 
个 单位 : 虚数 单位 i 和 自然 数 的 单位 1; 以 及 数学 里 的 常数 0。 因 此 ,有 数学 家 评价 它 是 
“上 帝 创造 的 公式 ,我 们 只 能 看 它 而 不 能 理解 它 ”。 

事实 上 ,把 圆周 率 x 和 自然 对 数 的 底 e 这 两 个 基本 常数 联系 在 一 起 还 有 以 下 斯 特 林 
公式 的 变形 。 


2 (2) 


在 自然 对 数 的 底 。 与 圆周 率 x 所 展现 的 无 限 不 循环 小 数 中 ,会 出 现 种 种 想象 不 到 的 
奇异 情景 ,因此 有 人 把 它们 比喻 成 两 个 “数学 幽灵 ”。 
本 节 高 精 探求 这 两 个 "幽灵 ”。 


5.9.1 自然 对 数 的 底 e 


自然 对 数 的 底 。 是 “自然 律 ” 的 一 种 量 的 表达 ,在 科学 技术 中 用 得 非常 多 。 以 常数 e 
为 底数 的 对 数 是 最 简 的 ,用 它 是 最 “自然 "的 ,所 以 叫 * 自 然 对 数 ”。 


1. 自然 对 数 的 底 e 的 由 来 
自然 对 数 的 底 e 由 以 下 的 重要 极限 定义 。 
lim(1+ 十 ] 二 褒 (3) 

e 是 一 个 无 限 不 循环 小 数 ,其 值 约 等 于 2.718281828459…, 它 是 一 个 超越 数 。 

人 们 在 研究 一 些 实际 问题 ,如 物体 的 冷却 .细胞 的 繁殖 、 放 射 性 元 素 的 训 变 时 ,都 要 研 
究 函 数 (1 十 1/x)* 当 x 趋 近 无 穷 时 的 极限 。 正 是 这 种 从 无 限 变化 中 获得 的 有 限 , 从 两 个 
相反 方向 发 展 ( 当 x 趋向 正 无 穷 大 时 ,上 式 的 极限 等 于 e 二 2.71828…; 当 x 趋向 负 无 穷 大 
时 候 , 上 式 的 结果 也 等 于 e 二 2. 71828…) 得 来 的 共同 形式 ,充分 体现 了 宇宙 的 形成 ,发展 
及 衰亡 的 最 本 质 的 东西 。 

“自然 律 ?是 e 及 由 e 经 过 一 定 变换 和 复合 的 形式 ,e 是 “自然 律 " 的 精髓 。 

“自然 律 ? 是 形式 因 与 动力 因 的 统一 ,是 事物 的 形象 显现 ,也 是 具象 和 抽象 的 共同 表 
达 。 有 限 的 生命 植 根 于 无 限 的 自然 之 中 ,生命 的 脉搏 无 不 按照 宇宙 的 旋律 自觉 地 调整 着 
运动 和 节奏 ,有 机 的 和 无 机 的 ,内 在 的 和 外 在 的 ,社会 的 和 自然 的 ,都 统一 在 一 起 。 

“自然 律 ? 永 远 具 有 不 能 穷尽 的 美学 内 涵 , 因 为 它 象征 着 广 亡 深 蔷 的 大 自然 。 正 因为 
如 此 , 它 才 吸 引 并 且 值 得 人 们 进行 不 懈 的 探索 ,从 而 显示 人 类 不 断 进化 的 本 质 力 量 。 

试 设计 程序 计算 自然 对 数 的 底 e, 精 确 到 小 数 点 后 指定 的 x 位 ,并 在 x 位 小 数 中 探求 
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是 否 会 出 现 某 些 指 定 的 奇异 整数 。 
2. 算法 设计 
(1) 选择 计算 公式 。 
计算 自然 对 数 的 底 e 的 公式 


» . x" CE x" 
er 2 (4) 
取 x=1, 有 
1 1 1 1 ER 
= ln 1+1+ 寺 [1+ 二 (1 + 二 + ] (5) 
本 问题 选用 公式 (5) 计 算 e。 


(2) 确定 计算 项 数 。 

依据 输入 的 计算 位 数 x 确定 所 要 加 的 项 数 n。 显 然 ,车 n 太 小 ,不 能 保证 计算 所 需 的 
精度 ;车 n 太 大 ,会 导致 过 多 的 无 效 计算 。 

记 式 中 分 式 第 n 项 之 后 的 所 有 余 项 之 和 为 R, ,由 


1 | lL | 1 oe | 1 A | js 
oe ws yy 
这 证 痢 ， 计 
二 (3 [去 十 去 < 1 (6) 


要 精确 到 x 位 ,只 要 10*<n! 即 可 ,两 边 取 常 用 对 数 , 即 只 要 使 
lg2 十 lg3 十 … 十 lgn 之 xx (7) 

于 是 可 设置 对 数 累加 实现 计算 到 x 位 所 需 的 项 数 n。 为 确保 准确 ,算法 可 设置 计算 位 数 
超过 x 位 (例如 x 十 5 位 ), 只 打印 输出 x 位 。 

(3) 模拟 竖 式 除法 。 

设置 a 数组 ,下 标 预 设 6000, 必 要 时 可 增加 。 计 算 的 整数 值 存放 在 a(C0) ,小 数 点 后 第 
i 位 存放 在 a 让 (i= 二 1,2,…) 中 。 

依据 公式 (5) ,应 用 竖 式 除法 模拟 进行 计算 。 

数组 除 以 n, 加 上 1; 再 除 以 n 一 1, 加 上 1;……。 这 些 数组 操作 设置 在 j (二 n,n 一 1,…， 
2) 循环 中 实施 。 

按 公式 实施 竖 式 除法 操作 : 被 除数 为 c( 初 始 值 c 一 1) ;除数 d 分 别 取 n,n 一 1,…,2; 
商 仍 存放 在 数组 元 素 (a(i) 一 c/d) ;余数 (c%d) 乘 10 加 在 后 一 数组 元 素 a(i 十 1) 上 ,作为 后 
一 位 的 被 除数 。 

按 数 组 元 素 从 高 位 到 低位 顺序 输出 。 因 计算 位 数 较 多 ,为 方便 查 对 ,每 一 行 控 制 打 印 
50 位 ,每 10 位 空 一 格 。 

注意 : 在 输出 结果 时 ,整数 部 分 a(0) 需 加 1。 

在 输出 的 x 位 小 数 中 ,如 果 相 连 的 3 个 数字 恰 等 于 所 要 寻求 的 3 位 整数 y, 则 记录 其 
位 置 ,并 输出 重复 出 现 指定 3 位 整数 y 的 这 些 位 置 。 


3. 自然 对 数 底 e 的 程序 设计 
// 高 精度 计算 自然 对 数 的 底 。 及 搜索 指定 3 位 数 
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# include <math. h> 
# include < stdio.h> 
voidmain0 
{ double s; int ci j,d,k,mnx,y,a[6000]; 
printf(” 请 输入 精确 位 数 x:"); scanf("%d",&x) ; 
printf(” 请 输入 搜索 3 位 数 y:"); scanf("%d",&y); 
for (s= 0, n= 2;n< = 6000;n+ +) // 累 加 确定 计算 的 项 数 n 
{ s=st log10(n) ; 
if (s> x+ 5) break; 
} 


for (i=0;i<=x+5;i++) a[i]=0; 


for (c=1, j=n;j>=2;j--) // 按 公式 分 步 计 算 
{ dj; 
for (i=0;i<=x+4;i++) // 各 位 实施 除 j 


{a[i]=c/d; c= (ce% d) * 10+ a[i+ 1];} 
a[x+5]=c/d; a[0]=a[0]+ 1;c= a[0]; 
} 
printf("\n e=%d.",a[0]+1); // 逐 位 输出 计算 结果 
for (k=10, i=1;i<=x;i++) 
{ printf("%d",a[i]);kt+; 
if (k% 10==0) printf(" "); 
if (k% 50==0) printf ("\n"); 
} 
printf("\n 在 上 述 %d 位 小 数 中 出 现 %d 的 位 置 :",x,y); 
for (m= 0, i=1;i<=x-2;i++) // 逐 位 搜索 3 位 y 
if (a[i] * 100+ a[i+ 1] * 10+ a[i+ 2]==y) 
printf("\n 第 %d 处 :起 始 位 为 %d。",++m, i); 
if (m=0) printf(" 未 出 现 。\n"); 
} 


4. 程序 运行 示例 与 说 明 


请 输入 精确 位 数 x: 1000 
请 输入 搜索 3 位 数 y: 999 

e= 2. 7182818284 5904523536 0287471352 6624977572 
4709369995 9574966967 6277240766 3035354759 4571382178 
1038375051 0115747704 1718986106 8739696552 1267154688 
9570350354 
在 上 述 1000 位 小 数 中 出 现 999 的 位 置 : 
第 1 处 :起 始 位 为 47。 
第 2 处 :起 始 位 为 514。 


上 述 输出 ,在 1000 位 之 内 出 现 了 2 处 999 。 
扩大 位 数 搜索 ,是 否 会 搜索 到 9999? 如 果 继 续 扩大 , 谁 也 不 能 否定 在 e 的 小 数 中 会 出 
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现 连 排 10 个 9, 或 连 排 20 个 9, 因 为 其 小 数位 是 无 限 的 。 
5.9.2 圆周 率 


下 面 探讨 历史 更 为 悠久 的 圆周 率 r。 
与 前 面 的 自然 对 数 的 底 。 一样, 圆周率 x 也 是 无 限 不 循环 小 数 ,是 超越 数 ,是 数学 上 
的 另 一 个 “幽灵 ”。 


1. 涉及 圆周 率 计 算 的 背景 

关于 圆周 率 x 的 计算 ,历史 非常 久远 ,史料 相当 丰富 。 

首先 , 阿 基 米 德 于 公元 前 就 得 到 圆周 率 r<*3. 14, 阿 波 罗 尼 奥 斯 与 我 国 古代 的 刘 徽 进 
一 步 取 得 xs*3. 1416 。 

然后 ,我 国 古 代数 学 家 祖冲之 最 先 把 圆周 率 计算 到 3. 1415926 ,领先 世界 一 千 多 年 。 

其 后 ,德国 数学 家 鲁 特 尔 夫 把 x 计算 到 小 数 点 后 35 位 ;荷兰 人 格林 贝尔 格 应 用 制 圆 
术 求 得 x 到 小 数 点 后 39 位 ;日 本 数学 家 建部 贤 弘 把 < 计算 到 41 位 ;英格兰 人 夏普 应 用 公 
式 求 得 x 到 小 数 点 后 71 位 ;等 等 。 

应 用 计算 机 计算 圆周 率 x 曾 有 过 计算 到 数 千 万 位 以 上 的 报道 ,主要 是 通过 x 的 计算 
宣示 其 大 型 计算 机 的 运算 速度 。 

试 计算 圆周 率 r, 精 确 到 小 数 点 后 指定 的 x 位 。 并 在 x 位 小 数 中 寻求 指定 的 4 位 整 
数 ( 例 如 2019 等 ) 是 否 会 出 现 及 出 现 的 次 数 与 位 置 。 


2. 建立 数学 模型 

(1) 选择 计算 公式 。 

计算 圆周 率 x 的 公式 很 多 ,选取 收敛 速度 快 且 容 易 操作 的 计算 公式 是 设计 的 首要 一 环 。 
我 们 选用 以 下 公式 进行 计算 。 


T1111lX2,1X2X3 | .| 1X2X…Xn 
2 EE 3X5X…X(2n 十 1) 
1 2 2s ms 
1 B+2(+ + 二 (1+ 二) 有 wa 


(2) 确定 计算 项 数 。 
首先 ,要 依据 输入 的 计算 位 数 x 确定 所 要 加 的 项 数 n。 显 然 ,车 n 太 小 ,不 能 保证 计 
算 所 雷 的 精度 ;车 n 太 大 ,会 导致 过 多 的 无 效 计算 。 


_ 1X2x.xXn 
记 第 n 项 as 一 6 sn 之 后 的 所 有 余 项 之 和 为 Ri, 有 


各 直击 eg hh a 六 ml i , NE 
2n+3 " 2n+3 2n+5 ”2n+3 2n+5 2n 十 7 
| 


ee 
< 到 十 am a pt 二 (9) 


Rs.= as。 


只 要 选取 n, 满 足 as 一 TD 即 可 , 即 只 要 使 


lg3+lg 2 os. i i (10) 
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于 是 可 设置 对 数 累加 实现 计算 到 x 位 所 需 的 项 数 n。 为 确保 准确 ,算法 可 设置 计算 位 数 
超过 x 位 (例如 x 十 5 位 ) ,计算 完成 后 只 打印 输出 x 位 。 


3. 竖 式 乘除 模拟 设计 要 点 

设置 a 数组 ,下 标 根 据 计 算 位 数 预 设 6000, 必 要 时 可 增加 。 计 算 的 整数 值 存 放 在 
a(0) ,小 数 点 后 第 i 位 存放 在 a(D 中 (i 一 1,2,…)。 

依据 公式 (1) ,应 用 竖 式 除法 模拟 计算 。 

(1) 竖 式 除法 模拟 。 

数组 除 以 2n 十 1, 乘 以 n, 加 上 1; 再 除 以 2n 一 1, 乘 以 n 一 1, 加 上 1;……。 这 些 数组 
作 设 置 在 j46=n:n 一 1,…:,1) 循环 中 实施 。 

按 公式 实施 竖 式 除 模 拟 操作 : 被 除数 为 c, 除 数 d 分 别 取 2n 十 1,2n 一 1,…,3; 商 仍 存 
放 在 各 数组 元 素 (a(i) 二 c/d) ;余数 (c%d) 乘 10 加 在 后 一 数组 元 素 a(i 十 1) 上 ,作为 后 一 位 
的 被 除数 。 

(2) 竖 式 乘 模拟 。 

按 公式 实施 竖 式 乘法 模拟 操作 : 乘 数 j 分 别 取 n,n 一 1,… ,1; 乘 积 要 注意 进位 , 设 进 
位 数 为 b, 则 对 计算 的 积 aGD 一 a(GiD*j 十 b, 取 其 十 位 以 上 数 作为 进位 数 b=a(i)/10, 取 其 
个 位 数 仍 存放 在 原 数组 元 素 a(iD) 一 a(i) %10。 

(3) 输出 结果 并 实施 指定 检测 。 

循环 实施 竖 式 除法 模拟 完成 后 , 按 数组 元 素 从 高 位 到 低位 顺序 输出 。 

因 计算 位 数 较 多 ,为 方便 查 对 ,除了 第 一 行为 40 位 外 ,其 余 各 行 控 制 打印 50 位 ,每 10 
位 空 一 格 。 

输出 指定 的 x 位 完成 之 后 ,从 小 数 点 第 i(i: 1 一 x 一 3) 位 开始 ,搜索 出 现 连续 4 个 数字 
为 指定 4 位 整数 y 的 位 置 i, 并 用 m 统计 出 现 的 次 数 。 


4. 圆周 率 r 的 高 精度 计算 程序 设计 


// 高 精度 计算 圆周 率 x 程序 设计 及 搜索 指定 4 位 数 
# include < math. h> 
# include < stdio. h> 
voidmain0 
{ double s; int b,c,d, i, j,k,m,n,x,y,a[6000]; 

printf(” 请 输入 精确 位 数 x:"); scanf ("%d", &x) ; 

printf(” 请 输入 搜索 4 位 数 y:"); scanf ("%d", &y) ; 

for (s=0,n=1;n<= 6000;n+ +) // 累 加 确定 计算 的 项 数 n 

{ s= s+ log10((2* nt+1)/n); 
if (s> x+ 5) break; 


涪 


} 
for (i=0;i<=x+5;i++) a[i]=0; 
for (c=1,j=n;j>=1;j--) // 按 公式 分 步 计算 
{ 时 2* jt1; 
for (i=0;i<=x+4;it+) // 各 位 实施 除 2j+ 1 


{a[i]=c/d; c= (c% d) * 10+ a[i+ 1];} 
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a[x+ 5]= c/d; 
for (b=0, i=x+5;i>=0;i--) // 各 位 实施 乘 j 
{ a[li]=a[i] x* j+b; 

b=a[i]/10;a[i]=a[i]% 10; 


} 
a[0]= a[0]+ 1;c= a[0]; // 整 数位 加 1 
} 
for (b=0, i=x+ 5;i>=0;i--) // 按 公式 各 位 乘 2 


{ ari]=a[i]* 2+b; 
b= a[i]/10;a[i]= a[i]% 10; 
} 
printf(" pi=%d. ",a[0]); // 逐 位 输出 计算 结果 
for (k=10, i=1;i<=x;it++) 
{ printf("%d",a[i]) ;k++; 
if (k% 10==0) printf(" "); 
if (k% 50==0) printf ("\n"); 
} 
printf("\n 在 上 述 %d 位 小 数 中 出 现 %d 的 位 置 :",x,y); 
for (m= 0, i=1;i<=x- 3;i++) // 逐 位 搜索 4 位 数 y 
if (a[i] * 1000+ a[i+ 1] * 100+ a[i+ 2] * 10+ a[i+ 3]==y) 
printf("\n 第 %d 处 :起 始 位 为 %d。",++m 站 ); 
if==0) printf(" 未 出 现 。\n"); 
} 


5. 程序 运行 示例 与 说 明 


请 输入 精确 位 数 x:1000 
请 输入 搜索 4 位 数 y:2019 
pi= 3. 1415926535 8979323846 2643383279 5028841971 
6939937510 5820974944 5923078164 0628620899 8628034825 
3421170679 8214808651 3282306647 0938446095 5058223172 


9375195778 1857780532 1712268066 1300192787 6611195909 
2164201989 
在 上 述 1000 位 小 数 中 出 现 2019 的 位 置 : 
第 1 处 :起 始 位 为 244。 
第 2 处 :起 始 位 为 702。 
第 3 处 :起 始 位 为 995。 


1761 年 , 兰 伯 特 (Lambert) 证 明了 r 是 无 理 数 。1882 年 , 林 德 曼 (Lindemann) 证 明了 
"是 超越 数 。 圆 周 率 x 是 一 个 无 理 数 .超越 数 , 也 是 一 个 永恒 的 “ 谜 ”。 
围绕 x 的 计算 及 的 小 数 数字 排列 中 出 现 的 种 种 “奇异 ”, 古 今 中 外 众多 数学 精英 做 
出 了 艰苦 卓绝 的 努力 ,硕果 累累 , 邻 人 赞叹 ! 
计算 机 的 出 现 加 速 了 r 的 研究 进程 ,同时 x 的 研究 过 程 中 产生 的 许多 新 方法 及 其 “ 副 
品 ”, 极 大 地 丰富 了 当今 的 数学 宝库 。 
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多 彩 数列 欣赏 


数列 (序列 ,包括 环 序列 ) 是 “ 数 ” 的 延伸 与 扩展 。 

本 章 汇 聚 相 亲 数 对 与 相亲 数 环 、 斐 波 那 契 序 列 与 卢 卡 斯 序列 ,等 短 和 n 元 组 ,以 及 德 
布 鲁 金 环 序列 等 国际 上 有 影响 的 序列 经 典 ;同时 介绍 独创 的 优美 数 序 列 、 指 积 序列 、 双 码 
二 部 数 序列 与 连 写 数 序列 等 新 颖 有 趣 的 数列 ,展示 出 数列 的 广博 与 精彩 。 

有 着 ACM 背景 的 “2 部 数 积 ”, 给 枚 举 难点 的 突破 留 下 思索 空间 。 

最 后 压轴 的 “挑剔 数列 ”的 设计 与 展现 无 疑 是 数列 的 亮点 ,其 高 超 的 结构 美 与 独特 的 
奇异 美 让 人 回味 无 穷 。 


6.1 相亲 数 对 与 相亲 数 环 


数学 大 师 毕 达 哥 拉 斯 早年 发 现 ,220 与 284 两 数 之 间 存 在 着 奇妙 的 联系 。 

220 的 真 因数 之 和 为 1 十 2 十 4 十 5 十 10 十 11 十 20 十 22 十 44 十 55 十 110 二 284 

284 的 真 因数 之 和 为 1 十 2 十 4 十 71 十 142 一 220 

毕 达 哥 拉 斯 把 这 样 的 数 对 a,b 称 为 相亲 数 对 (又 称 亲 和 数 ): a 的 真 因数 (小 于 本 身 的 
因数 ) 之 和 为 b, 而 b 的 真 因数 之 和 为 a。 

相亲 数 对 的 直接 扩展 是 相亲 数 环 : 呈 连 环 套 形式 的 多 个 相亲 数 构成 相亲 数 环 。 

例如 ,a 的 真 因数 之 和 为 b,b 的 真 因数 之 和 为 c,c 的 真 因数 之 和 为 d,d 的 真 因数 之 和 
为 a, 则 a,b,c,d 称 为 一 个 4 节 相 亲 数 环 。 

数学 界 对 探寻 相亲 数 对 与 多 节 相 亲 数 环 的 热情 持续 不 减 。 


6.1.1 多 位 相亲 数 对 


试探 寻 n(2 一 5) 位 的 所 有 相亲 数 对 。 


1. 设计 要 点 

设置 n(2 一 5) 循 环 枚 举 位 数 , 对 每 一 个 n 设置 i 循环 枚 举 每 一 个 n 位 整数 。 

对 指定 n 位 的 每 一 个 整数 i 应 用 试 商 实施 枚 举 判 别 。 根 据 相 亲 数 对 的 定义 ,用 试 商 
法 找 出 整数 i 的 所 有 小 于 i 的 真 因数 j, 并 求 出 真 因数 的 和 s。 

然后 用 同样 的 方法 找 出 整数 s 的 真 因数 之 和 sl1。 

如 果 有 sl 二 i, 则 整数 i 与 s 为 相亲 数 对 。 

为 减少 试 商 循环 次 数 .注意 到 数 i 车 为 非 平方 数 . 它 的 大 于 1 小 于 i 的 因数 成 对 出 现 ， 
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每 一 对 中 的 较 小 因数 要 小 于 i 的 平方 根 。 

这 样 试 商 j 循环 只 要 从 2 取 到 i 的 平方 根 t= sqrt(i) ,可 大 大 减少 试 商 循环 次 数 ,缩减 
程序 的 运行 时 间 。 

若 数 i 恰 为 整数 t 的 平方 ,此 时 + 为 i 的 一 个 因数 而 不 是 一 对 ,因而 在 和 s 中 减 去 多 加 
的 因数 t, 这 是 必要 的 。 

找到 相亲 数 对 ,统计 对 数 并 打印 输出 。 

2. 求 相 亲 数 对 程序 设计 


// 探 求 n(2” 5) 位 相亲 数 对 
# include < stdio.h> 
# include < math. h> 
void main0 
{ int mni longd,i,j,s,t,s1; 
for (n=2:nC=5;n++) 
{ printf(” n=%d 位 :\n",n); m=0; 
for(d=1,j=1;j<=n-1;j++) 
d=d* 10; //d 为 最 小 n 位 整数 
for(i=d+1;i<=10x d-1;i++) 
{ s=1; t= (long)sart(i); 
for (j=2;j<=t;j++) 
if(i% j==0) s= s+ j+ i/j; 
if(i==txt) s-=t; // 求 i 的 真 因数 之 和 s 
if(iKs) // 规 定 i< s, 避免 重复 
{ sl=1;t= (long)sqrt(s) ; 
for (j=2;j<=t;j++) 
if (s% j==0) s1= s1+ j+ s/j; 
if(s==txt) st-=t; // 求 s 的 真 因数 之 和 s1 
if(s1== 让 // 条 件 判别 
{ printf(” %d: %ld,%ld",++m, i,s); 
if (m% 2==0) printf ("\n"); 
} 


} 
} 
if(m>0) printf(”%d 位 相亲 数 对 共 以 上 %d 对。\n",n,m); 
else printf(” 未 搜索 到 %d 位 相亲 数 对 。\n",n); 


3. 程序 运行 结果 


n=2 位 : 
未 搜索 到 2 位 相亲 数 对 。 
n=3 位 : 
1: 220, 284 3 位 相亲 数 对 共 以 上 1 对 。 
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n=4 位 : 
1: 1184, 1210 2: 2620, 2924 
3: 5020, 5564 4: 6232,6368 
4 位 相亲 数 对 共 以 上 4 对 。 
n=5 位 : 
1: 10744, 10856 2: 12285, 14595 
3: 17296, 18416 4: 63020, 76084 
5: 66928, 66992 ”6: 67095, 71145 
7: 69615, 87633 8: 79750, 88730 
5 位 相亲 数 对 共 以 上 8 对 。 


运行 程序 , 当 n==3 时 只 有 毕 达 哥 拉 斯 发 现 的 唯一 3 位 相亲 数 对 (220 ,284)。 

当时 人 们 认为 只 有 这 一 对 相亲 数 对 ,一 直 延 续 了 两 千 多 年 ,直到 1636 年 皮 勒 才 发 现 
并 公布 了 以 第 2 组 相亲 数 对 (17296,18416), 即 以 上 运行 输出 的 n==5 时 第 3 个 解 。 

数学 家 欧 拉 在 1750 年 一 口气 公布 了 60 对 相亲 数 对 。 然 而 ,其 中 4 位 相亲 数 对 
(1184,1210) 被 数学 家 们 遗漏 了 ,是 一 个 16 岁 的 青年 巴 格 尼 于 1866 年 发 现 的 , 令 人 惊讶 。 

4. 相亲 数 公式 

杰出 的 阿拉 伯 数 学 家 本 。 科 拉 建 立 了 一 个 有 名 的 相亲 数 公式 。 

设 a=3X2" 一 1,b=3X2"! 一 1,c=9X2*"! 一 1,n 是 大 于 1 的 整数 。 如 果 a,b,c 全 
为 素数 , 则 2"Xab 与 2"Xc 是 一 对 相亲 数 。 

例如 ,n==2 时 ,a==11,b==5,c==71 都 是 素数 , 则 2* Xab 二 220,2*Xc==284 是 一 对 3 位 
相亲 数 。 

又 如 ,n= 二 4 时 ,a 二 47,b 二 23,c 二 1151 都 是 素数 , 则 2"Xab 王 17296,2"Xc 一 18416 是 
一 对 5 位 相亲 数 。 


6.1.2 多 节 相 亲 数 环 


所 谓 多 节 相 亲 数 环 ,是 指 n(n>2) 个 整数 满足 以 下 关系 : al 的 真 因 数 之 和 为 a2,a2 的 
真 因数 之 和 为 a3，…… ,最 后 an 的 真 因数 之 和 为 al 。 这 样 n 个 整数 a1,a2,a3,…,an 形成 
一 个 n 节 相亲 数 环 。 


1. 设计 要 点 

设置 数组 s: s(0) 即 为 递增 枚 举 循环 中 选取 的 整数 i(i 从 11 开始 递增 取 值 ), 其 真 因 
数 之 和 存储 到 s(1) ;s(1) 真 因数 之 和 存储 到 s(2) ;……。 

一 般 地 ,通过 kk 循环 实现 把 s(k 一 1) 的 真 因数 之 和 存储 到 s(k)(k 为 1 一 n) 。 

判别 : 车 sCn) 和 天 s(0) , 则 试 下 一 个 i。 直 至 sCn) 一 s(0) 时 ,找到 相亲 数 的 n 个 环 数 , 则 
打印 输出 后 退出 。 

若 整数 i 增 至 约定 的 上 限 值 1000000000 还 未 搜索 到 n 节 相 亲 数 环 ,即行 退出 。 


2. 求 n 节 相亲 数 环 程序 设计 


// 探 求 n 节 相亲 数 环 
# include <math. h> 
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# include < stdio.h> 
voidmain0 
{ int c,k,n; long ij,t,s[100]; 
printf(” 探求 n 节 相亲 数 环 ,请 输入 n:"); scanf ("%d",&n) ; 
i=10; 
while(1) 
{ i++;s[0]=i;s[m]=i+1; // 初 始 化 s[0]!= s[n] 
for (c=0, k=1;k<=n;k++) 
{ s[k]=1 nt) sqrt (s[k- 1]); 
for (j=2;j ;j++) // 求 s[k- 们 的 因数 之 和 
if (s[k-1%j==0) 
s[k]= s[k]+ j+ s[k- 1]/j; 
if(s[k-1]==t*t) s[k]-=t; 
for (j=0;j<=k-1;j++) 
if (s[k]== s[j]) {c=1;break;} 
if (c==1) break; 
} 
if(s[0]==s[m) // 满 足 n 环 首尾 相等 ,输出 解 
{ printf(" 搜索 到 %d 节 相亲 数 环 : ",m) ; 
for (k=0;k<=n- 1;k++) 
printf("” %1d",s[k]); 
printf ("\n"); 
return; 
} 
if(i> 1000000000) 
{ printf(” 尚未 搜索 到 %d 节 相亲 数 环 !\n"); 


return; 


| 
3. 程序 运行 示例 


探求 n 节 相亲 数 环 ,请 输入 n:4 
搜索 到 4 节 相 亲 数 环 : 1264460 1547860 1727636 1305184 
探求 n 节 相亲 数 环 ,请 输入 n:5 
搜索 到 5 节 相 亲 数 环 : 12496 14288 15472 14536 14264 


程序 探索 到 一 个 指定 的 n 节 相 亲 数 环 并 输出 后 即行 退出 。 因 此 ,对 于 n 一 2, 即 搜索 2 
节 相 亲 数 环 , 找 到 相亲 数 对 (220,284) 后 , 即 退 出 。 

当 输 入 n=3 时 , 尚 没有 找到 9 位 以 内 的 3 节 相 亲 数 环 ,但 并 不 意味 3 节 相 亲 数 环 不 
存在 ,只 能 说 明 可 能 存在 的 3 节 相 亲 数 环 的 数量 规模 比较 大 。 

如 果 需 具体 给 出 相亲 数 环 中 每 一 个 数 的 真 因数 ,程序 应 如 何 修改 ? 
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6.2 斐 波 那 契 序列 


斐 波 那 契 (Fibonacci) 序 列 是 由 ”兔子 生 串 ?这 一 有 趣 数 模 引 入 的 一 个 著名 的 递 推 数 
列 , 其 应 用 相当 广泛 ,国际 上 已 有 许多 关于 斐 波 那 契 序列 的 专著 与 学 术 期 刊 。 周 持 中 教授 
等 在 哈尔滨 工业 大 学 出 版 的 学 术 专著 (Fibonacci-Lucas 序列 及 其 应 用 》 中 发 布 了 斐 波 那 契 
序列 研究 的 多 项 最 新 成 果 。 


6.2.1 探求 FL 序列 


中 世纪 意大利 数学 家 斐 波 那 契 是 文艺 复兴 前 夕 杰出 的 数学 家 之 一 ,他 在 所 著 《( 算 盘 书 》 
中 提出 “兔子 生 患 "的 有 趣 数 模 : 假设 兔子 出 生 后 两 个 月 就 能 生 小 兔 , 且 每 月 一 次 ,每 次 不 多 
不 少 恰好 一 对 (一 雌 一 雄 )。 若 开始 时 有 初生 的 小 免 一 对 , 问 一 年 后 共有 多 少 对 兔子 。 
由 以 上 兔子 繁衍 问题 所 形成 的 斐 波 那 契 序 列 , 是 数学 史上 的 杰作 之 一 。 
斐 波 那 契 序列 (简称 下 序列) 定义 为 
FE) F; FS 
F,=F, 十 F.。， (n>2) 用 
同时 , 卢 卡 斯 (Lucas) 序 列 是 与 斐 波 那 契 序列 有 着 相同 递 推 关 系 的 另 一 个 著名 的 序 
列 。 卢 卡 斯 序列 (简称 工序 列 ) 定 义 为 


L=1,L=3 
i=LitL es (n>2) (2) 
试 求解 斐 波 那 契 序列 或 卢 卡 斯 序列 的 第 n 项 与 前 n 项 之 和 (Cn 从 键盘 输入 )。 


1. 递 推 设 计 要 点 

递 推 关系 已 明确 ,只 需 设 计 循环 实施 递 推 即 可 。 

(1) 两 序列 一 并 处 理 。 

注意 到 下 序列 与 L 序列 的 递 推 关 系 相 同 ,可 一 并 处 理 这 两 个 序列 。 

设置 一 维 数组 f(n) ,序列 的 递 推 关 系 为 

fk) = 一 fk 一 1) 十 fGk 一 2) (k>3) 

注意 到 下 与 L 两 个 序列 初始 值 不 同 ,在 输入 整数 p 选择 序列 (p= 二 1 时 为 下 序列 ,p=2 
时 为 工序 列 ) 后 ,初始 条 件 可 统一 为 {C1) 一 1.f{(2) 一 2x*p 一 1。 

(2) 设置 循环 实施 递 推 。 

设置 k(3 一 n) 循 环 ,循环 前 赋 上 述 初 值 。 

从 已 知 前 2 项 这 一 初始 条 件 出 发 ,在 循环 中 实现 递 推 ,逐步 推出 第 3 项 ,第 4 项 ,…… 
以 至 推出 指定 的 第 n 项 。 

为 实现 求 和 ,在 k 循环 外 给 和 变量 s 赋 初 值 二 f(1) 十 f(2); 在 循环 内 ,每 计算 一 项 
f(k) , 即 累 加 到 和 变量 s 中 : s 一 s 十 {(k) 。 

(3) 分 别 输出 结果 。 

按 前 面 输入 p 值 所 选 序列 ,分别 输 出 两 序列 的 递 推 结果 : p= 二 1 时 注 明 为 下 序列 ;p 一 2 
时 注 明 为 工序 列 。 
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2. 递 推 程序 设计 


// 探 求 斐 波 那 契 序列 与 卢 卡 斯 序列 递 推 程序 设计 
# include < stdio.h> 
void main0 
{ int k,n,p; double s,f[70] ; 
printf(" 请 选择 1 为 斐 波 那 契 序列 ;2 为 卢 卡 斯 序列 :"); 


scanf ("% d", &p) ; // 选 定 序列 项 目 
printf(" 求 序列 的 第 n 项 与 前 n 项 和 ,请 输入 n:"); scanf("%d",&n); 
if(<11| p>2) 


{printf(" 输 入 的 p 出 现 偏差 1\n") ;return;} 
f[1]=1;f[2]=2x p- 1; 


s=f[1]+f[2] ; // 数 组 元 素 与 和 变量 赋 初 值 
for (k= 3;k< =n;k++) 
{ f[k]=f[k-1+f[k-2]; // 实 施 递 推 
s+=f[k]; /实施 求 和 
} 
if(p==1) printf(”F 序 列 "); // 分 选择 项 输出 结果 


else printf(” 上 序列 "); 

printf(" 第 %d 项 为 :%.0f,",n,f[n]); 

printf(" 前 %d 项 之 和 为 :%.0f \n",n, s); 
} 


3. 运行 程序 示例 与 说 明 


请 选择 1 为 斐 波 那 契 序列 ;2 为 卢 卡 斯 序列 :1 
求 序列 的 第 n 项 与 前 n 项 和 ,请 输入 n:60 
F 序 列 第 60 项 为 :1548008755920, 前 60 项 之 和 为 :4052739537880 
请 选择 1 为 斐 波 那 契 序列 ;2 为 卢 卡 斯 序列 :2 
求 序 列 的 第 n 项 与 前 n 项 和 ,请 输入 n:50 
L 序 列 第 50 项 为 :28143753123, 前 50 项 之 和 为 :73681302244 


利用 相同 的 递 推 关系 ,在 一 个 程序 中 处 理 这 两 个 相关 的 序列 是 可 行 的 。 
递 推 设计 在 一 重 循环 中 完成 ,显然 算法 时 间 复 杂 度 为 O(n)。 


6.2.2 条 件 素数 序列 


设 正 整数 m,n 满足 条 件 
(mY—mn—m)=1, m<n<k (3) 


对 于 指定 正 整数 k, 若 整数 m 十 n 为 素数 则 输出 该 素数 ,并 统计 其 个 数 。 


例如 , 若 k=2 时 ,m= 二 n= 二 1 满足 条 件 ,1 十 1 二 2 为 素数 ;同时 m 二 1,n 二 2 满足 条 件 ， 


1 十 2 一 3 为 素数 。 因 而 当 k 二 2 时 有 以 上 两 个 解 。 


编程 输入 正 整 数 k(1 委 k 委 100 000 000 000 000) ,探求 满足 式 (3) 并 使 m 十 n 为 素数 


的 整数 m,n, 输 出 素数 m 十 n。 
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1. 设计 要 点 
这 是 一 个 条 件 序列 的 判别 问题 ,可 采用 以 下 方法 求解 。 
(1) 在 1~k 的 范围 内 设置 二 重 循环 枚 举 mn, 凡 满足 条 件 式 的 ,应 用 试 商 判别 法 判 


别 m 十 n 是 否 为 素数 。 


这 种 求解 方法 简便 易 行 ,但 当 k 较 大 时 , 枚 举 范 围 太 大 致使 求解 难以 实现 。 
(2) 从 题目 中 的 条 件 式 人 手 , 寻 求 m,n 的 构成 规律 ,从 而 简化 求解 操作 。 
显然 ,m 二 1,n 二 1 满足 题 中 的 条 件 式 。 同 时 注意 到 
(一 mn 一 m2)2 一 [Cm 十 bo) 一 nm 十 n) 一 2 了 (4) 


由 式 (4) 可 知 , 若 m,n 满足 这 一 条 件 式 , 则 n,Cm 十 n) 也 满足 上 式 。 反 之 , 若 n,Cm 二 n) 满 


足 上 式 , 则 m,n 也 满足 前 一 条 件 式 。 因 而 满足 条 件 式 的 m,n 按 递 增 顺 序 排 成 一 个 最 大 项 小 
于 指定 正 整数 k 的 斐 波 那 契 序列 , 即 在 斐 波 那 契 序列 中 找 出 不 大 于 指定 数 k 的 素数 项 。 


从 m=1,n 一 1 开始 求 斐 波 那 契 序 列 ,其 中 不 大 于 指定 数 k 的 两 项 m,n, 其 对 应 的 和 


t 一 m 十 n 应 用 试 商 判 别 法 求 素数 。 若 + 为 素数 则 输出 ,并 用 s 统计 个 数 。 
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2. 程序 设计 


// 应 用 斐 波 那 契 序列 探求 mn 为 素数 
# include < stdio.h> 
# include < math. h> 
void main() 
double b, k, m,n, t; int c,s,j; 
printf(” 请 输入 正 整数 k: ") ;scanf ("% 1f", &k) ; 
printf(” mtn 为 以 下 素数 : \n"); 
mn=1;s=0; 
while(1) 
{ t=mn; 

if (n> k) break; 

b= floor (sqrt (t)) ;c= 0; 

for (j=3;j<=b;j= j+2) 

if (fmod (t, j)==0) // 试 商 判别 和 + 是否 为 素数 
{ c=1;break;} 
if (c==0 && fmod(t,2)>0 || t==2) 
{st+;printf(" %.0f",t);} 

mnin=ti // 迭 代为 求 下 一 个 t 做 准备 
} 
printf("\n 共有 以 上 %d 个 素数 。\n",s); 
} 


3. 程序 运行 示例 


请 输入 正 整数 k: 1000000000000 
mtn 为 以 下 素数 : 

2 3 5 13 89 233 1597 28657 514229 433494437 2971215073 
共有 以 上 11 个 素数 。 


第 6 剖 | 


如 果 据 式 (3) 具 体 从 小 到 大 枚 举 计算 每 一 组 m,n 进行 判别 ,工作 量 相当 大 。 以 上 设 
计 巧 妙 应 用 韭 波 那 契 序列 ,大 大 简化 了 问题 求解 。 


6.3 递 推 趣 谈 


上 面 介 绍 的 斐 波 那 契 数列 只 有 一 个 递 推 关系 : f{(k) 一 fk 一 1) 十 fk 一 2), 从 已 知 的 初始 
条 件 f(1),f(2) 出 发 ,根据 递 推 关系 依次 递 推出 f(3) ,f(4),…, 以 致 最 后 推出 所 要 求 的 fn) 。 

有 些 实际 问题 的 递 推 关系 要 复杂 得 多 ,有 两 个 甚至 多 个 递 推 关系 ,其 递 推 设计 自 然 要 
设置 多 重 循环 来 处 理 。 


6.3.1 精彩 双飞 燕 


设 集合 M 定义 如 下 所 示 。 

(1) 1EM。 

(2) xE M=>2x+1€E M,3x+1€E M, 

(3) 再 无 其 他 的 数 属于 M。 

把 集合 M 中 元 素 按 升序 排序 , 试 求 出 该 序列 指定 的 第 n 项 。 并 求解 序列 中 哪 一 项 与 
指定 整数 s 相差 最 小 。 

1. 递 推 设 计 要 点 

该 题 有 2x 十 1,3x 十 1 两 个 递 推 关系 ,有 如 两 只 飞 燕 引 领 序列 飞 向 高 端 ,所 以 称 之 为 双 
飞 药 。 

(1) 实施 递 推 。 

设置 数组 m(k) 存 储 M 元 素 从 小 到 大 排列 序列 的 第 k 项 ,显然 m(1) 王 1, 这 是 递 推 的 
初始 条 件 。 

同时 设置 两 个 队列 : 

2Xm(p2) 十 1，p2 一 1,2,3,，… 

3Xm(p3) 十 1，p3 一 1,2,3，…- 
这 里 用 p2 表示 2x 十 1 这 一 队列 的 下 标 , 用 p3 表示 3x 十 1 这 一 队列 的 下 标 。 

两 队列 的 下 标 就 是 该 队列 的 排头 。 所 谓 排头 ,就 是 队列 中 尚未 选 入 m 的 最 小 下 标 ， 
通过 比较 选 数 值 较 小 者 送 入 数组 m 中 。 

若 2* m(p2)<3* m(p3), 则 m(i)=2*m(p2) 十 1, 下 标 p2 增 1; 

若 2*m(p2) 二 3x*m(p3), 则 m(i)==3x*m(p3) 十 1, 下 标 p3 增 1; 

车 2x*m(p2) 二 3*x*m(p3), 则 m(iD 一 3x*m(p3) 十 1, 下 标 p2 与 p3 同时 增 1。 

(2) 兼顾 两 任务 。 

程序 要 完成 两 个 任务 ,如 果 项 数 n 太 小 则 不 能 完成 与 指定 数 s 比较 差距 的 任务 , 因 
此 在 条 件 循环 中 设置 条 件 k<n || m[Lk] 二 s 十 50 兼顾 完成 两 个 任务 : 前 者 由 k 十 十 递 
增 ,确保 递 推 至 m[n]; 后 者 递 推 至 所 递 推 的 项 在 数值 上 超过 s 十 50 ,确保 完成 与 指定 数 
s 的 比较 。 这 里 s 十 50 是 一 个 大 于 指定 数 s 的 约定 数 , 因 与 s 相差 最 小 的 项 可 能 处 于 大 
于 s 的 区 域 。 
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2. 递 推 程序 设计 
// 双 飞 燕 序列 第 n 项 及 与 指定 数 s 相距 最 小 的 项 
# include < stdio.h> 
# include < math. h> 
void main0 
{ long p2,p3, i, k,n, s,t,m1,min,m[10000] ; 
printf(” 请 输入 项 数 n:"); scanf("%d",&n) ; 
printf(” 请 指定 整数 s:"); scanf("%d",&s) ; 
p21;p3= 1;m[1]=1;min= 100;k=1; 
while(k<n || m[k]< s+ 50) 
EL 
if (2x m[p2]< 3 * m[p3]) // 通 过 比较 确定 给 m[k] 赋 值 
{ m[k]=2x m[p2]+ 1;p2+ + ;} 
else 
{ m[k]=3* m[p3]+1; 
if (2x m[p2]==3x m[p3]) p2++ ; // 为 避免 重复 项 ,此 句 不 能 省 
p3++; 
| 
t= s-m[k] ; 
if (abs (t)< min) { min= abs (t) ;i=k;} 
| 
printf(” m(%1d)=% 1d.\n",n,m[n]); 
printf(” m(% 1d)=% 1d, 与 %1d 相差 最 小 为 %1d.\n", i,m[i], s,min); 
} 


3. 程序 运行 示例 与 说 明 
请 输入 项 数 n:2019 
请 指定 整数 s:12345 


m(2019)= 19858. 
m(1340)= 12351, 与 12345 相差 最 小 为 6. 


说 明 : 事实 上 ,这 两 个 队列 完全 有 可 能 出 现 相 等 ,因此 设计 有 相等 判别 行 

if(2* m[p2]==3x m[p3]) p2++; 

设计 中 若 忽略 了 两 队列 相等 情形 的 判别 处 理 , 必 然 导致 数组 m 中 出 现 一 些 重复 项 
(例如 出 现 两 项 31 等 ) ,这 与 集合 元 素 的 互 异 性 相 违 , 必 将 导致 所 求 的 第 n 项 出 错 。 
6.3.2 等 短 和 多 元 组 


定义 : 把 2n(n 宇 3) 个 不 同 的 正 整 数组 成 两 组 ,每 组 n 个 数 。 如 果 两 组 的 各 个 数 之 和 
相等 , 且 两 组 的 各 个 数 从 2 次 客 之 和 、3 次 索 之 和 以 至 到 n 一 1 次 考 之 和 均 相 等 , 则 这 两 个 
数组 称 为 等 寡 和 nm 元 组 。 

例如 ,(1,6,8) 与 (2,4.9) 由 6 个 没有 重复 的 整数 组 成 ,具有 以 下 两 个 相等 特性 : 
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1 次 寡 和 相等 : 1 十 6 十 8 一 2 十 4 十 9 一 15; 

2 次 索 和 相等 : 1 十 62 十 8 一 22 十 42 十 9 一 101。 

因而 (1,6,8) 与 (2,4,9) 为 等 索 和 3 元 组 。 

例如 ,(1,7,8,14) 与 (2,4,11,13) 由 8 个 没有 重复 的 整数 组 成 ,具有 以 下 3 个 相等 
特性 : 

1 次 矫 和 相等 : 1 十 7 十 8 十 14 王 2 十 4 十 11 十 13 一 30; 

2 次 寡 和 相等 : 1 十 72 十 8: 十 142 一 22 十 42 十 112 十 132 一 310; 

3 次 震 和 相等 : 1 十 73 十 8 十 14? 一 23 十 43 十 113 十 133 一 3600。 

因而 (1,7,8,14) 与 (2,4,11,13) 为 等 寡 和 4 元 组 。 

这 些 奇 特 的 等 睡 和 数组 是 如 何 得 到 的 呢 ? 

本 节 介 绍 涉及 两 数组 等 寡 和 的 两 个 递 推 式 , 并 依 此 构建 出 等 客 和 3 元 组 与 4 元 组 ,最 
后 拓展 至 等 寡 和 5 元 组 与 6 元 组 。 


1. 两 数组 的 等 客 和 递 推 式 

涉及 等 寡 和 有 以 下 递 推 关系 。 

【命题 】 设 a 数组 (al ,as ,…，,as) 与 b 数 组 (bl,b:,…,b.) 的 一 次 寡 和 相等 ,2 次 短 和 
相等 ,…… ,直至 k 一 1 次 寡 和 也 相等 , 则 对 指定 整数 m 有 以 下 的 递 推 式 。 

(1) 当下 为 奇数 时 


守 十 十 a 十 (m 一 a 十 十 (m 一 as)* Cy 
十 十 局 十 (Cm 一 bi 十 … 十 Cm 一 bs)* 
(2) 当 k 为 偶数 时 
趟 十 十 二 十 (mm 一 b 六 十 … 十 (mm 一 bs) 
《2 
b 十 十 bE 十 Cm 一 a 十 十 (Cm 一 as)* 


【证 明 】 应 用 二 项 式 定 理 展开 相 消 。 

当 k 为 奇数 时 , 式 (1) 两 边 展开 : 左边 对 十 起 十 … 十 ax 相 消 ,右边 纪 十 比 十 … 十 bt 相 
消 。 因 两 数组 的 一 次 窘 和 相等 ,2 次 寡 和 相等 ,……… ,直至 k 一 1 次 寡 和 也 相等 ,因而 式 (1) 
两 边 相 等 。 

当 k 为 偶数 时 , 式 (2) 两 边 展 开 : 左边 灵 十 起 十 … 十 as 与 右边 灵 十 起 十 … 十 ak 相 消 ， 
左边 丰 十 好 十 … 十 bx 与 右边 外 十 让 十 … 十 bx 相 消 。 因 两 数组 的 一 次 寡 和 相等 ,2 次 寡 和 
相等 ……… ,直至 k 一 1 次 寡 和 也 相等 ,因而 式 (2) 两 边 相 等 。 

递 推 式 (1)、(2) 得 证 。 

因 两 n 元 数组 的 一 次 考 和 相等 , 2 次 睡 和 相等 ,……: ,直至 k 一 1 次 短 和 也 相等 ,由 以 
上 证 明 可 得 式 (1)、(2) 两 边 的 2n 元 数组 的 一 次 睡 和 相等 , 2 次 宕 和 相等 ,…… ,直至 k 次 
寺 和 也 相等 。 


2. 两 数组 的 等 寡 和 递 推 式 的 应 用 

为 了 说 明 弟 推 式 (1)、(2) 的 应 用 .下 面 列举 几 个 简单 的 构建 案例 。 

【问题 1】 应 用 递 推 式 (1)、(2) ,确定 一 个 简单 的 2 元 组 ,选择 合适 的 参量 m, 构 建 一 
位 数 等 寡 和 3 元 组 。 
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【求解 】 分 以 下 4 种 情形 探讨 。 
(1) 从 1 十 4 一 2 十 3 出 发 构建 等 短 和 3 元 组 。 
据 式 (2) ,选择 m 一 8, 有 
1 十 4 十 (8 一 2)2 十 (8 一 3): 一 22 十 32 十 (8 一 1)2 十 (8 一 4)2 


化 简 得 


12 十 生 十 62 十 5 一 22 十 3 十 72 十 4 
两 边 消去 相同 项 ,整理 有 1 十 5 十 6: 一 2 十 3 十 72 ,注意 到 1 十 5 十 6 一 2 十 3 十 7, 因 而 得 等 
寡 和 3 元 组 (1,5,6)(2,3,7) 。 
(2) 从 1 十 6 二 2 十 5 出 发 构建 等 寡 和 3 元 组 。 
据 式 (2) ,选择 m 王 10, 有 
1 十 6: 十 (10 一 2)2 十 (10 一 5)2 一 22 十 5 十 (10 一 1): 十 (10 一 6) 


化 简 得 


] 十 6 十 8 十 5 一 22 十 32 十 9 十 4 
两 边 消去 相同 项 ,整理 有 12 十 62 十 8: 一 22 十 42 十 9: ,注意 到 1 十 6 十 8 一 2 十 4 十 9, 因 而 得 等 
寡 和 3 元 组 (1,6,8)(2,4,9) 。 
(3) 从 2 十 6 一 3 十 5 出 发 构建 等 寡 和 3 元 组 。 
据 式 (2) ,选择 m 王 10, 有 
2: 十 6: 十 (10 一 3)2 十 (10 一 5)2 一 3 十 5 十 (10 一 2)2 十 (10 一 6)8 


化 简 得 


22 十 6: 十 72 十 5 二 3? 十 5 十 8? 十 和? 
两 边 消去 相同 项 ,整理 有 2 十 6? 十 7? 二 3? 十 人 ?十 8? ,注意 到 2 十 6 十 7 一 3 十 4 十 8, 因 而 得 等 
筹 和 3 元 组 (2,6,7)(3,4,8)。 
(4) 从 3 十 7 一 4 十 6 出 发 构建 等 寡 和 3 元 组 。 
据 式 (2) ,选择 m 王 12, 有 
3 十 7? 十 (12 一 4)* 十 (12 一 6)?* = 二 人 十 6? 十 (12 一 3)? 十 (12 一 7)? 


S 


化 简 得 


32 十 ?2 十 8: 十 6: 二 如 十 6? 十 9? 十 5? 
两 边 消去 相同 项 ,整理 有 3 十 7? 十 8 二 4 十 5 十 9? ,注意 到 3 十 7 十 8 二 4 十 5 十 9, 因 而 得 等 
寡 和 3 元 组 (3,7,8)(4,5,9) 。 
【奇妙 组 合 】 奇迹 从 组 合 中 产生 。 
应 用 以 上 递 推 式 (1)、(2) ,构建 了 数组 元 素 均 为 1 位 数 的 等 寡 和 3 元 数组 。 
(1,5,6;2,3,7) sl 一 12;s2 一 62 (sl 为 3 元 和 ,s2 为 3 元 平方 和 ,下 同 ) 
(1,6,8;2,4,9) sl 一 15;s2 一 101 
(2;6,733,4;8) sl=15;s2=89 
(3;57,834,5,9) sl=18;s2=122 
(1) 从 上 往 下 组 合 。 
可 把 这 4 组 解 按 从 上 到 下 巧妙 组 合 为 6 个 “4 位 数 ? 构 成 神秘 金 蝉 3 元 数组 
(1123,5667,6878;2234,3445,7989) 
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神秘 金 暗 3 元 数组 具有 和 相等 且 平 方 和 也 相等 的 特性 。 

1123 十 5667 十 6878 一 2234 十 3445 十 7989 一 13668 

1123? 十 5667? 十 6878? 一 22342 十 3445? 十 7989? 一 80682902 

且 具 有 以 下 多 个 脱 壳 性 质 。 

同时 从 高 位 去 除 1,2 个 数字 ,或 同时 从 低位 去 除 1,2 个 数字 ,或 同时 去 除 最 高 位 与 最 
低位 ,这 5 种 脱 壳 情形 分 别 如 下 所 示 。 

(123,667,878;234,445,989) (sl=1668,s2==1230902) 


(23,67,78;34,45,89) (sl=168,s2=11102) 
(112,566,687;223,344,798) (sl==1365,s2 二 804869) 
(11,56,68;22,34,79) (sl=135,s2=7881) 
(12,66,87;23,44,98) (sl=165,s2=12069) 


经 脱 壳 而 得 的 以 上 数组 , 均 具有 和 相等 (s1) 且 平方 和 也 相等 (s2) 的 特性 ,简直 太 奇 
妙 了 ! 
(2) 从 下 往 上 组 合 。 
还 有 更 为 奇妙 的 ,把 上 述 4 组 1 位 数 的 等 寡 和 3 元 数组 按 从 下 往 上 组 合 为 6 个 “4 位 
数 ” 构 成 3 元 数组 。 
(3211,7665,8786;4322 ,5443 ,9897) 
以 上 两 个 3 元 数组 同样 妙 不 可 言 , 该 数组 具有 和 相等 (s1 王 19662), 同 时 平方 和 也 相 
等 (s2 二 146256542) 的 特性 。 至 于 这 两 个 3 元 数组 是 否 也 具有 上 述 5 种 脱 壳 情形 呢 , 请 自 
己 动手 验算 。 
【问题 2〗】 以 等 寡 和 3 元 组 (1,5,6;2,3,7) 为 基础 构建 等 寡 和 4 元 组 。 
【求解 】 据 递 推 式 (1) 构 建 。 
关键 是 要 选择 合适 的 参量 m, 经 过 消 元 成 为 等 寡 和 4 元 组 。 
(1) 不 妨 选择 参数 m 一 9。 
从 等 星 和 3 元 组 (1,5,6)(2,3,7) 出 发 , 据 式 (1) 有 
13 十 5 十 6 十 (9 一 6)3 十 (9 一 5)3 十 (9 一 1)3 
一 23 十 3 十 73 十 (9 一 7)3 十 (9 一 3)3 十 (9 一 2)3 
显然 式 右 存在 两 项 2 ,两 项 7 ,无 法 相 消 。 
(2) 选择 参数 m 一 10,11,12。 
同样 存在 无 法 相 消 , 即 无 法 构建 等 祝 和 4 元 组 。 
(3) 选择 参数 m 二 13, 有 
1 十 53 十 6 十 (13 一 6)3 十 (13 一 5)? 十 (13 一 1)? 
2 十 3: 十 73 十 (13 一 7)3 十 (13 一 3)3 十 (13 一 2)3 


化 简 即 


二 5 人 二 六 下 十 12 二 六 古 加 十 2 二 全 十 10 
两 边 消去 相同 的 6,7 两 项 ,整理 有 
十 下 十 名 十 12 二 2 十 33 十 10: 十 11”  (s3 = 2366) 


1 


且 注 意 到 
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二 十 下 十 8 十 122 一 22 十 3 十 102 十 11? (s2 = 234) 
1 十 5 十 8 十 12 = 2 十 3 十 10 十 11 (sl = 26) 
因而 得 等 备 和 4 元 组 (1,5,8,12)(2,3,10,11)。 
【问题 3】 以 等 寡 和 4 元 组 (1,5,8,12)(2,3,10,11) 为 基础 构建 等 寡 和 5 元 组 。 
【求解 】 调整 选择 m 一 20 构建 。 
由 等 竹 和 4 元 组 (1,5,8,12)(2,3,10,11), 据 式 (2) ,调整 选择 m= 二 20, 有 
1 十 5 十 8 十 124 十 (20 一 2)t 十 (20 一 3)* 十 (20 一 10)! 十 (20 一 11) 
2 十 3 十 10: 十 114 十 (20 一 1)* 十 (20 一 5)* 十 (20 一 8)* 十 (20 一 12)* 


化 简 得 


Eh te :eh ea 0 
24 十 34 十 104 十 114 十 194 十 154 十 124 十 84 
两 边 消 去 相同 的 8,10,12 共 3 项 ,整理 有 
1 十 有 ?十 9% 十 174 十 184 一 24 十 34 十 114 十 154 十 194 (s4 二 195684) 

注意 到 


1 十 5 十 % 十 173 十 183 一 23 十 33 十 113 十 153 十 19: (s3 一 11600) 
上 5 十 9 十 172 十 18: 一 22 十 3 十 112 十 152 十 19: (s2 一 720) 
1 十 5 十 9 十 17 十 18 = 2 十 3 十 11 十 15 十 19 (sl = 50) 
因而 得 等 寡 和 5 元 组 (1,5,9,17,18;2,3,11,15,19)。 
【问题 4】 以 等 祝 和 5 元 组 (1,5,9,17,.18;2,3,11,15,19) 为 基础 构建 等 寡 和 6 元 组 。 
【求解 】 调整 选择 m 一 24 构建 。 
由 等 寡 和 5 元 组 (1,5,9,17,18;2,3,11,15,19) 出 发 , 据 式 (1) ,调整 选择 m 一 24, 有 
1 十 5 十 9% 十 175 十 185 十 (24 一 18)5 十 (24 一 17)5 十 (24 一 9)5 十 (24 一 5)5 十 (24 一 1)5 
25 十 35 十 115 十 155 十 195 十 (24 一 19)5 十 (24 一 15)5 十 (24 一 11)5 
十 (24 一 3)5 十 (24 一 2)5 
化 简 即 


| 
| 


15 十 5 十 9% 十 175 十 185 十 65 十 95 十 155 十 195 十 235 
25 十 35 十 115 十 155 十 195 十 55 十 9% 十 135 十 215 十 225 
两 边 消 去 相同 的 5,9,15,19 共 4 项 ,整理 有 
15 十 6 十 375 十 175 十 185 十 235 一 25 十 35 十 115 十 135 十 215 十 225 (s5 一 9770352) 
注意 到 
1 十 6 十 74 十 174 十 184 十 234 一 2 十 34 十 114 十 134 十 214 十 224 (s4 二 472036) 
1 十 6 十 73 十 173 十 18: 十 233 一 23 十 33 十 113 十 133 十 213 十 223 (s3 一 23472) 
1 十 6 十 72 十 172 十 182 十 232 一 22 十 3 十 112 十 132 十 212 十 222 〈s2 一 1228) 
1 十 6 十 7 十 17 十 18 十 23 一 2 十 3 十 11 十 13 十 21 十 22 Ll = 7 
因而 得 等 寡 和 6 元 组 (1,6,7,17,18.23)(2,3,11,13,21,22) 。 
以 上 构建 难点 在 于 调整 选择 合适 的 m 值 : 要 求 选择 的 m 代入 式 (1) 或 (2) 后 ,等 式 两 
边 出 现 若 干 相同 项 ,消去 这 些 相同 项 后 恰 有 nm 元 ,相同 项 多 了 或 少 了 都 不 合适 。 
注意 : 并 不 是 任意 等 协和 n 一 1 元 组 都 存在 合适 的 m 参数 拓展 得 等 紧 和 了 元 组 。 
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【编程 拓展 】 试 在 指定 区 间 [1,e] 内 取 最 小 组 元 ,探求 等 血 和 n 元 组 。 

应 用 两 数组 递 推 性 质 , 先 选取 互 不 相同 的 正 整 数 al ,a2,bl,b2, 约 定 最 小 整数 为 al 所 
e( 其 中 上 限 。 从 键盘 确定 ) ,使 得 al 十 a2 一 bl 十 b2。 

然后 取 k 一 2, 通过 由 小 到 大 取 值 逐个 试验 确定 整数 m, 代 入 偶数 递 推 式 后 使 等 式 的 
两 边 出 现 一 个 相同 项 。 消 去 该 项 后 则 得 到 两 个 3 元 数组 (al,a2,a3) 与 (bl,b2,b3) ,其 和 
相等 ,平方 和 也 相等 。 

接着 对 于 k 二 3, 又 通过 取 值 试验 确定 整数 m, 代 入 奇数 递 推 式 后 使 等 式 两 边 出 现 两 
个 相同 项 。 消 去 后 则 得 到 两 个 4 元 数组 (al,a2,a3,a4) 与 (bl,b2,b3,b4) ,它们 的 和 、 平 方 
和 立方 和 都 相等 。 

以 此 类 推 ,探求 等 寡 和 nm 元 组 。 

对 求 出 的 等 寡 和 mn 元 组 验证 两 数组 的 kC1~n 一 1) 次 宕 和 是 否 相等 。 若 全 部 相等 , 通 
过 验证 之 后 输出 。 

带 验 证 的 程序 设计 语句 较 多 ,从 略 。 

程序 运行 可 得 多 个 等 寡 和 n 元 组 ,例如 : 


输入 每 组 数 的 个 数 n(2< n< 7) :6 
输入 组 中 最 小 数 上 限 :5 
第 1 组 6 个 数 为 : 3,8,9,19,20,25 
第 2 组 6 个 数 为 : 4,5,13,15,23,24 
1 次 方 和 都 是 :84 
2 次 方 和 都 是 :1540 
3 次 方 和 都 是 :31752 
4 次 方 和 都 是 :691684 
5 次 方 和 都 是 :15533784 
第 1 组 6 个 数 为 : 3,4,12,14,22,23 
第 2 组 6 个 数 为 : 2,7,8, 18,19,24 
1 次 方 和 都 是 :78 
2 次 方 和 都 是 :1378 
3 次 方 和 都 是 :27378 
4 次 方 和 都 是 :573586 
5 次 方 和 都 是 :12377898 


6.4 指 积 序列 

指 积 序列 包括 双 指 积 序 列 与 多 指 积 序 列 ,其 难点 在 于 “ 积 ” 的 处 理 , 如 何 突破 指 与 积 的 
交叉 是 探求 的 关键 。 
6.4.1 双 指 积 序列 


先 了 解 一 个 不 涉及 “ 积 ” 的 简单 双 指 序列 。 
【问题 】 设 x,y 为 非 负 整 数 , 试 计算 集合 
M= {2*,3’ | x 之 0,y 之 0} (1) 
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中 不 超过 1000 的 元 素 的 个 数 , 及 其 由 小 到 大 排列 的 第 13 项 。 
【求解 】 为 比较 方便 ,以 表格 ( 见 表 6-1) 的 形式 构建 该 双 指 序列 。 


表 6-1 构建 2-3 双 指 序列 


2 1 2 4 8 16 32 | 64 128 256 | 512 


37 人 3 和 27 81 243 729 


序列 项 | 1 2 3 4 8 9 16 | 27 | 32 | 64 | 81 | 128 | 243 | 256 | 512 | 729 


项 序号 | 1 2 3 4 5 6 8 9 10 |11|12|13|14|15| 16 


表格 的 第 1 行为 指数 2*; 第 2 行为 指数 3", 每 一 行 按 指数 递增 ,不 超过 指定 的 
1000。 第 3 行为 所 求 的 双 指 序列 的 项 ,其 值 为 上 两 行 同 列 比较 的 较 小 者 (作为 序列 的 一 
项 ), 同 列 比 较 的 大 数 未 进入 序列 , 则 顺延 至 同行 的 下 一 列 继续 参与 比较 ;第 4 行为 序列 
项 的 项 数 。 

由 表 6-1 可 见 , 集 合 M 不 超过 1000 的 元 素 共 16 个 ,由 小 到 大 排列 的 第 13 项 为 243。 

以 下 应 用 编程 拓展 ,构建 双 指 积 序列 。 


1. 构建 双 指 积 序列 
设 x,y 为 非 负 整数 , 试 计算 集合 
M 一 {2*。37 | x 宇 0,y 宇 0} (2) 
的 元 素 处 于 指定 区 间 [c,dj 的 个 数 , 并 求 处 于 [c,dj 中 的 元 素 从 小 到 大 排序 的 第 m 项。 
输入 区 间 数 c,d 及 序号 m, 输 出 集合 处 于 [edj 中 元 素 个 数 及 其 升序 序列 的 第 m 项。 


2. 认识 双 指 积 序列 

双 指 积 序列 的 复杂 体现 在 一 个 *“ 积 " 字 上 , 双 指 积 序列 的 项 既 可 以 是 双 指 的 某 一 指 , 也 
可 以 是 双 指 的 乘积 。 

以 上 双 指 积 序列 的 前 8 项 为 : 1,2,3,4(22),6(2X3),8(23),9(32),12(22X3), 其 中 
第 5 项 6 与 第 8 项 12 均 为 双 指 的 积 组 成 。 

探讨 双 指 积 , 可 以 从 枚 举 设计 入 手 , 也 可 以 应 用 递 推 设 计 求 解 。 下 面 应 用 有 启发 性 的 
有 针对 性 枚 举 编程 。 

为 了 增强 针对 性 , 试 先行 分 别 构造 2 与 3 的 指数 序列 ,通过 双重 循环 产生 双 指 积 数 a， 
对 检测 满足 条 件 c 生 a<d 的 项 ,经 排序 确定 指 积 序列 的 第 m 项 。 


3. 有 针对 性 枚 举 要 点 

(1) 数据 结构 与 构造 单 指 。 

设置 {数组 ,存储 集合 M 中 处 于 指定 区 间 [c,dj 中 的 元 素 。 

设置 t2 数组 存储 2*: t2[0] 为 22, t2[1] 为 2 ,…… ;t2[p2 一 1] 为 2% (这 里 2* 之 d)。 

设置 t3 数组 存储 3 : t3[0] 为 3°,t3[1] 为 3 ,…… 3LBS 一 1 办 3 这 里 808 汪 d) 

(2) 构造 双 指 积 。 

设置 i,j 二 重 循环 (i: 0 一 p2 一 1;j: 0 一 p3 一 1), 构造 t==t2[i] * t3[j]j, 其 中 当 i=j==0 
时 ,t=1 即 为 集合 的 首 项 1: 当 i=0 且 j>0 时 ,t 即 为 3 的 指数 序列 ; 当 j=0 且 i>0 时 :ft 
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即 为 2 的 指数 序列 ; 当 这 0 且 j>>0 时 ,t 为 2 与 3 的 双 指 乘积 序列 。 


( 


3) 构造 指 积 项 。 


车 t=<c 或 td, 超 出 指定 区 间 范 围 , 不 对 {数组 赋值 ; 若 t 宇 c 且 td,t 处 于 指定 区 间 


Le,d] 


, 则 对 工 数 组 赋值 蕊 十 十 k] 一 t; 。 


通过 以 上 按 指数 有 针对 性 枚 举 , 求 出 集合 M 中 处 于 指定 区 间 [c,dj 所 有 k 个 元 素 。 
(4) 实施 排序 。 
对 这 k 个 元 素 进 行 排序 ,以 求 得 从 小 到 大 排序 的 第 m 项 。 


“ 逐 项 


注 


E 意 到 集合 M 中 处 于 指定 区 间 [c, dj] 的 元 素 个 数 的 数量 大 大 低 于 n, 采 用 简明 的 


比较 ?排序 法 是 可 行 的 。 


实施 排序 中 ,从 小 到 大 排序 到 第 m 项 即 可 ,没有 必要 对 所 有 k 个 元 素 排序 。 
直接 输出 排序 所 得 到 的 从 小 到 大 序列 的 第 m 项 。 


4. 构造 指 积 序列 程序 设计 
// 有 针对 性 枚 举 探求 指 积 序列 程序 设计 


大 


include < stdio.h> 


void main0 


{ 


int i, j,k,m,p2,p3; double c, d,h,n,t,t2[100],t3[100],f[10000] ; 
printf(” 请 指定 区 间 c,d:"); scanf ("% 1f,% 1f", &o, 8d) ; 
printf(” 请 指定 项 数 m:") ;scanf("%d",&m) ; 


t=1;p2=0; 

while(t<=d) // 构 建 2 指数 数组 
{t=t* 2;t2[+ +p2]=t;} 

t= 1;p3= 0; 

while(t<=d) // 构 建 3 指数 数组 


{t=t x 3;t3[+ + p3]=t;} 
t2[0]= t3[0]=1;k=0; 
for(i=0;i<=p2-1;i++) 
for (j=0;j<=p3- 1;j++) 


{ t=t2[i] * t+3[j]; // 计 算 指 积 项 t 
if(t>=c&&tK=d) f[++k]=ti /ht 处 于 区 间 时 则 赋值 


} 
printf(” 集合 中 了 %.0f,%.0f] 中 的 整数 有 %d 个 。\n",c,d,k); 
if (m=k) 
{ for(i=1;i<=m;i++) // 逐 项 比较 排序 到 第 m 项 
for (j= i+1;j<=k;j++) 
if (F[i]> FCj]) {h=f[i];f[i]=fF[j];f[j]=h;} 
printf(” 区 间 中 从 小 到 大 排序 的 第 %d 项 为 :%.0f\n",m, f[m]); 
} 
else printf(” 所 输入 的 m 大 于 序列 的 项 数 1\n"); 
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5. 程序 运行 示例 与 说 明 


请 指定 区 间 c, d:1, 1000000000000 

请 指定 项 数 m:500 

集合 中 [1, 1000000000000] 中 的 整数 有 534 个 。 

区 间 中 从 小 到 大 排序 的 第 500 项 为 :391378894848 


尽管 指定 的 mn 比较 大 ,但 有 针对 性 枚 举 运行 简捷 ,是 因为 集合 中 的 元 素 个 数 数量 级 较 


低 ,具体 估计 个 数 低 于 Yn( 其 中 1n 为 区 间 [c,d] 中 整数 个 数 ) 。 算 法 紧密 依赖 其 个 数 ,尽管 
实施 排序 ,程序 运行 快捷 。 


6.4.2 多 指 积 序列 


把 以 上 的 双 指 积 拓展 到 多 指 积 问题 是 有 趣 的 ,也 是 可 行 的 。 现 以 3 指 积 为 例 展 示 多 
指 积 问题 的 设计 求解 。 

设 x,y,z 为 非 负 整数 , 互 质 的 正 整数 q ,q ,'q; (约定 1 二 qd 过 qd< 二 qd: ) 为 3 指 底数 ,集合 

M = {qq |x>0,y>0,z>0} (3) 

试 计算 集合 M 的 元 素 在 指定 区 间 [c,dj 中 的 个 数 , 把 该 区 间 中 的 元 素 从 小 到 大 排序 ， 
输出 其 中 指定 的 第 m 项 ,具体 给 出 该 项 的 带 指数 的 指 积 表达 式 。 

在 双 指 积 基础 上 拓展 到 3 指 积 ,增加 显示 指定 项 带 指数 的 指 积 表达 式 。 考 虑 到 递 推 
规律 的 复杂 性 ,采用 有 针对 性 枚 举 构 造 3 指 积 设计 求解 。 


1. 有 针对 性 枚 举 构造 指 积 要 点 
(1) 数据 结构 。 
设置 一 维 数组 q[ 订 存储 3 个 指 底数 (要 求 彼此 互 质 ) ;一 维 数组 p[ 记 存储 3 个 指数 ;一 
维 数组 w[ 记 存储 第 m 项 的 3 个 指数 ;一 维 数组 f[ 记 存储 序列 的 各 项 。 
设置 二 维 数组 t[ij[jj 存 储 9[i] 信 。 
(2) 构造 各 单 指数 。 
设置 j 循环 构建 3 指数 t[j][p[j]] 二 gq[j]^[j]G==1,2,3), 为 构建 指 积 项 提供 依据 。 
for (j=1;j<=3;j++) 
{ y=1;p[j]=0; 
while(y<=d) 
{y=y* q[j];p[j]++;t[j] [p[j]]=y;} 
} 
注意 ,初始 条 件 为 
t[1] [0]=t[2] [0]= t[3] [0]=1; 
t[1] [1]= qf1] ;t[2] [1]= q[2];t[3] [1]= q[3]; 
t[1] [p[1]]> d;t[2] [p[2]]> d;t[3] [p[3]]> d; 
(3) 构造 指 积 项 。 
设置 i,j,u 三 重 循环 (i: 0~p[1] 一 1;j: 0 一 p[2] 一 1;u: 0 一 p[3] 一 1) 。 
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构造 y 二 tL[1j[ij x* tL2JDjx* tL3jLuj: 当 这 j 一 u 一 0 时 ,t 一 1 即 为 集合 的 首 项 1; 当 i， 
j,u 中 有 两 个 为 0 时 ,t 为 单 指 ; 当 ijyu 中 有 一 个 为 0 时 ,t 为 双 指 积 ; 当 ij,u 全 大 于 0 
时 ,t 为 3 指 积 。 
若 tc 或 td,t 超 出 区 间 范 围 , 不 对 工 数组 赋值 ; 
车 c<t<d,t 对 {数组 赋值 人 [十 十 kj 二 t;。 
(4) 实施 排序 。 
通过 以 上 按 指 数 有 针对 性 枚 举 , 求 出 集合 M 在 区 间 [c,dj 中 的 所 有 k 个 元 素 。 
对 这 k 个 元 素 进 行 排序 ,以 求 得 从 小 到 大 排序 的 第 m 项 。 
注意 到 集合 M 在 区 间 [c,d] 中 的 元 素 个 数 k 数量 不 大 ,采用 较为 简明 的 “ 逐 项 比较 ” 
排序 法 是 简明 的 。 
实施 排序 中 ,从 小 到 大 排序 到 第 m 项 即 可 ,没有 必要 对 所 有 k 个 元 素 排序 。 
(5) 规范 输出 。 
当 排 序 得 到 序列 的 第 m 项 y=f[mj 后 , 按 规范 的 指 积 带 指数 形式 输出 。 
Q@ 指数 为 0 时 不 输出 ,为 1 时 只 输出 底数 ,指数 大 于 1 时 才 输 出 指数 。 
@ 中 间 插 入 乘 号 * ,有 一 个 乘 号 、 两 个 乘 号 与 没有 乘 号 等 多 种 可 能 情形 ,要 满足 所 有 
这 些 情形 的 输出 需要 。 
2. 按 指 有 针对 性 枚 举 程序 设计 
// 探 求 3 指 积 有 针对 性 枚 举 程序 设计 
# include < stdio. h> 
# include < math. h> 
voidmain0 
{ int i,j,u,k,m,p[4],q[4],w[4]; double c,d, h,n, y, t[4] [100], f[10000] ; 
printf(” 请 输入 3 个 互 素 整 数 为 3 指 底 :\n"); 
for(i=1;iK=3;i++) 
{printf(” 输入 第 %d 个 指 底数 :", i); scanf ("%d",&q[i]); } 
printf(” 请 指定 区 间 c,d:"); scanf ("% 1f,% 1f", &c, &d) ; 
printf(” 请 指定 排序 号 m:"); scanf ("%d", &m) ; 
for (j=1;j<=3;j++) t[j] [0]=1; 
for (j=1;j<=3;j++) 
{ y=1;p[j]=0; 
while(yC=d) // 这 里 t[j] [p[j]]=q[j]"p[j] 
{y=y* q[j];p[j]++ ;t[j] [p[j]]=y;} 


} 

k=0; 

for (i=0;i<=p[1]-1;i++) // 三 重 循环 得 选 满足 条 件 的 数 

for (j=0;j<=p[2]-1;j++) 

for (u= 0;u<=p[3]-1;ut+) 

{ y=t[1][i] *t[2][j] * t[3] [u]; 

if(y>=0 88& y=d) f[++k]=y; // 区 间 内 的 元 素 赋值 给 数组 
元 素 
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printf(” 集合 在 区 间 [%.0f,%.0f] 中 的 整数 有 %d 个 。\n",c,d,k); 


// 逐 项 比较 排序 到 第 m 项 

for (j=i+1;j<=k;j++) 

if (FLi]> Fj]) {h=f[i];f[i]=F[j];f[j]=h;} 
y=f[m]; 
for (j=1;j<=3;j++) 

{ wD]=0; 

whi le (fmod (y, q[j])==0) 
{wj]++ ;y=y/q[j];} // 计 算 第 m 项 各 等 指 数 


} 
printf(” 其 中 从 小 到 大 排序 的 第 %d 项 为 :%.0f=",m,f[m]); 
for (j=1;j<=3;j++) // 输 出 寡 积 式 
{ ifw[]==1D printf ("%d",q[j]); 
if (w[j]>1) printf ("% dd’%d",q[j], w[j]); 
if (jC<3 && w[j]>0 && wLj+ 1]+w[3]> 0) printf ("XxX "); 
} 
printf ("\n"); 
} 
else printf(” 所 输入 的 m 大 于 区 间 中 数 的 个 数 1\n"); 
} 


3. 程序 运行 示例 与 分 析 


请 输入 3 个 互 素 整数 为 3 指 底 : 
输入 第 1 个 指 底数 :2 
输入 第 2 个 指 底数 :3 
输入 第 3 个 指 底数 :5 
请 指定 区 间 c, d:100000000, 1000000000000 
请 指定 排序 号 m:2019 
集合 在 区 间 [100000000, 1000000000000] 中 的 整数 有 2325 个 。 
其 中 从 小 到 大 排序 的 第 2019 项 为 :408146688000= 2`"11X 3~13X 5°3 


以 上 程序 的 功能 拓展 : 首先 ,扩展 到 了 3 指 积 ;其 次 ,增加 了 区 间 的 选择 与 限制 ;最 
后 ,把 找到 的 项 表示 成 直观 的 指数 形式 。 

算法 的 时 间 复杂 度 与 所 涉 区 间 相关 。 当 范围 上 限 n 充分 大 时 ,如 果 按 项 数 k 估 值 Vn， 
该 算法 的 时 间 复 杂 度 为 OCVn) 。 


6.5 优美 数 序列 


所 谓 优美 数 ,是 指 没 有 重复 数字 的 整数 。 本 节 先 求解 一 个 由 特定 数字 组 成 的 优美 数 
序列 ,然后 探求 一 般 n 位 优美 数 序列 。 
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6.5.1 特定 优美 数 序列 


先 看 一 个 由 指定 数字 组 成 优美 数 序列 的 简单 实例 。 
【问题 】 特定 优美 数 序列 项 探求 。 
由 数字 1,2,3,4,5,6,7 组 成 的 没有 重复 数字 的 7 位 数 共 有 7!= 5040 个 ,其 中 最 小 的 
为 1234567 ,最 大 的 为 7654321。 
(1) 将 所 有 这 5040 个 7 位 数 从 小 到 大 排序 ,第 2019 个 数 为 5 

(2) 将 所 有 这 5040 个 7 位 数 从 大 到 小 排序 ,第 2019 个 数 为 . 

【求解 】 应 用 从 小 到 大 逐 位 统计 求解 (1) ,然后 根据 “对 偶 ? 写 出 (2) 。 

(1) 从 高 位 开始 统计 从 小 到 大 的 7 位 数 。 

1 开头 ,2 开头 的 各 6! 二 720 个 , 共 1440 个 ;31,32,34,35 开头 的 各 5! 王 120 个 , 共 
480 个 ;361,362,364,365 开头 的 数 各 有 4! 王 24 个 , 共 96 个 ,以 上 3 项 共 2016 个 。 则 下 
一 个 即 第 2017 个 数 为 3671245; 再 下 一 个 即 第 2018 个 数 为 3671254; 再 下 一 个 即 第 2019 
个 数 为 3671425 。 

(2) 把 排序 由 “从 小 到 大 ” 改 为 * 从 大 到 小 ”, 把 以 上 探求 过 程 中 所 有 数字 改 为 其 对 偶 
数字 (1 对 7;2 对 6;……)。 

因而 ,所 求 的 这 5040 个 7 位 数 从 大 到 小 排序 的 第 2019 个 数 , 即 为 从 小 到 大 排序 第 
2019 个 数 3 671 425 的 对 偶数 5217463 。 

答案 : 将 所 有 这 5040 个 7 位 数 从 小 到 大 排序 ,第 2019 个 数 为 3671425 。 

将 所 有 这 5040 个 7 位 数 从 大 到 小 排序 ,第 2019 个 数 为 5217463 。 

【编程 拓展 】 

由 数字 1,2,…,n (2 入 n 和 9) 组 成 的 没有 重复 数字 的 n 位 整数 称 为 特定 n 位 优美 数 ， 
共计 有 n! 个 。 

(1) 将 所 有 这 n! 个 mn 位 数 从 小 到 大 排序 , 求 第 m 个 数 。 

(2) 将 所 有 这 n! 个 n 位 数 从 大 到 小 排序 , 求 第 m 个 数 。 


1. 编程 设计 要 点 

(1) 建立 枚 举 循 环 。 

通过 循环 计算 求 得 最 小 n 位 优美 数 a 与 最 大 n 位 优美 数 b。 同 时 ,为 方便 实现 对 偶 ， 
计算 n 位 整数 c,c 的 每 位 数字 为 n 十 1。 

例如 , 当 n=6 时 ,a 一 123456,b 一 654321,c 一 777777。 
建立 搜索 循环 x(a~b) ,对 每 一 个 x, 用 求 余 (%) 与 取 整 (/) 分 离 x 的 n 个 数字 k, 并 
应 用 {数组 统计 数字 k 的 频数 ( 即 {[kj 为 数字 的 个 数 )。 

(2) 重复 数字 检测 。 

如 果 fkj 关 1(k 二 1,2,…,n) ,说 明 数 字 k 重复 (fLk] 之 1) 或 缺失 (fLk] 一 0), 即 整数 x 
不 是 特定 n 位 优美 数 , 退 出 试 下 一 个 x。 

否则 ,{Lk] 王 1(k 一 1,2,…,n) ,说 明 整 数 x 是 特定 n 位 优美 数 ,通过 s 十 十 统计 个 数 。 

当 s 二 m 时, 即 x 为 从 小 到 大 排序 的 第 m 个 特定 n 位 优美 数 ,输出 该 数 。 

同时 ,输出 x 的 对 偶数 c 一 x 即 从 大 到 小 排序 的 第 m 个 n 位 优美 数 。 
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2. 程序 设计 


// 探 求 最 大 数字 为 n 的 优美 数 序列 

# include < stdio.h> 

voidmain0 

{ int k,n, t, Ff[10]; 
long a, b,c, im r,s,x; 
printf(” 请 输入 最 大 数字 n(2<n<9): "); scanf ("%d", &n) ; 
printf(” 请 输入 排列 序数 m: "); scanf ("% 1d", &m) ; 
a=1;b=n;c=n+ 1;s=0; 


for (k=2;k<=n;k++) 


{a=ax 10+k;b=b* 10+n-k+1;c=c* 10+ n+ 1;} //a,b 为 n 位 符合 要 求 的 最 小 最 大 数 
for (x=a;x<=b;x++) // 枚 举 [a,b] 中 的 每 一 个 整数 
{ r=x; 

for (k=0;k<=9;k++) f[k]=0; 

while(r> 0) // 分 解 x 的 各 数字 并 分 别 累计 


{k=r% 10;f[k]++ ;r=r/10;} 
for (t=0, k=1;k<=n;k++) 


if(f[k]!=1) {t=1;break;} // 测 试 整数 x 是 否 符合 要 求 
if (t==0) 
{ if(t++s==m) // 从 小 到 大 统计 n 位 优美 数 个 数 


{ printf(” 最 大 数字 为 %d 的 优美 数 升序 第 %1d 个 数 为 :%1d。\n",n,m,x); 
printf(” 最 大 数字 为 %d 的 优美 数 降序 第 %1d 个 数 为 :%1d。\n",n,m, co-x); 


return; 


} 
} 
if(s<cm printf(” 最 大 为 %d 的 优美 数 共 % 1d 个, 不足 mF%1d 个 。\n" nsm:; 
} 


3. 程序 运行 示例 与 说 明 


请 输入 最 大 数字 n(2<n<9): 9 

请 输入 排列 序数 m: 2019 

最 大 数字 为 9 的 优美 数 升序 第 2019 个 数 为 :125893647。 
最 大 数字 为 9 的 优美 数 降序 第 2019 个 数 为 :985217463。 


以 上 程序 所 构建 的 优美 数 序列 是 不 涉及 数字 0 的 , 即 全 由 不 超过 指定 数字 n 的 正 整 
数 数 字 组 成 。 
运行 程序 , 若 输入 n 一 7,m 一 2019, 即 得 前 面 求解 结果 。 


6.5.2 指定 位 优美 数 序列 


本 节 探 讨 一 般 意义 上 的 指定 n 位 优美 数 序列 ,这 里 所 指 n 位 数 是 由 数字 0 一 9 组 成 的 
n 位 数 。 
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定义 十 进 制 中 没有 重复 数字 的 正 整数 称 为 优美 数 ,指定 优美 数 按 升序 排列 所 得 序列 
为 指定 优美 数 序列 。 

试 求 指定 n 位 优美 数 的 个 数 ,并 求 出 n 位 优美 数 序列 的 第 m 项 。 

输入 正 整数 n(2 三 n 志 10),m(2 三 m) ,输出 n 位 优美 数 的 个 数 ;同时 输出 n 位 优美 数 
序列 的 第 m 项 ( 若 m 大 于 mn 位 优美 数 的 个 数 , 则 输出 提示 信息 )。 


1. 设计 要 点 

(1) 计算 mn 位 优美 数 的 个 数 。 

显然 n 位 优美 数 的 最 高 位 可 于 1,2,… ,9 中 取 一 个 数字 ; 

除 最 高 位 外 ,其 余 n 一 1 位 可 于 0 一 9 中 与 最 高 位 不 同 的 其 余 9 个 数字 中 选 n 一 1 个 ， 
即 为 排列 数 A(9,n 一 1) ,存储 在 数组 元 素 a[n 一 1 中 ; 

除 高 二 位 外 ,其 余 n 一 2 位 可 于 0 一 9 中 与 高 二 位 不 同 的 其 余 8 个 数字 中 选 n 一 2 个 ， 
即 为 排列 数 A(8,n 一 2) ,存储 在 数组 元 素 aLn 一 2] 中 ; 

个 位 数字 可 于 0 一 9 中 与 高 n 一 1 位 不 同 的 11 一 n 个 数字 中 选 1 个 , 即 为 排列 数 
A(11 一 n,1) ,存储 在 数组 元 素 aL1] 中 ; 

显然 n 位 优美 数 的 个 数 为 9 * aLn 一 1]。 

(2) 由 a 数组 元 素 确定 优美 数 序列 的 第 m 项 的 各 个 数字 。 

根据 整数 m 中 含 c 王 my/a[Ln 一 1 个 aLn 一 1j 确 定 最 高 位 数字 为 c 十 1,m 二 m%a[n 一 1] 
为 确定 下 一 位 数字 做 准备 。 

然后 根据 m 中 含 c= 二 m/aLn 一 2J 个 aLn 一 2J 确 定 次 高 位 的 数字 c,m 一 m%a[Ln 一 2] 为 
确定 下 一 位 数字 做 准备 。 

一 般 地 ,根据 m 中 含 c= 二 m/a[jj 个 a[j] 确 定 从 高 位 开始 的 第 j 位 数字 : 

c=m/alj] ;m= m% a[j]; (j=n- 1,n- 2,.%,0) 

或 : 

c= (int)floor (m/a[j]) ;m= fmod (m, a[j]); 


为 方便 计算 ,引入 aL0] 二 1; ,选择 尚未 选取 的 第 c 个 为 最 低位 数字 。 

(3) 设置 b 数 组 ,为 避免 重复 选取 数字 提供 便利 。 

首先 b[ 订 =1;(i 一 0,1,…,9)。 若 已 选取 i 作为 某 一 位 , 则 b[ 襄 一 0; 这 样 以 后 加 b[ 订 
和 不 增长 , 即 在 下 一 位 数字 选取 时 不 可 能 选取 i ,避免 了 重复 数字 ,这 是 优美 数 的 要 求 。 

(4) 特殊 处 理 。 

因 最 高 位 数字 不 能 从 0 开始 , 则 设置 变量 d: 开始 时 d 二 1, 以 后 均 为 4 一 0。 


2. 程序 设计 


// 求 n 位 优美 数 序列 程序 设计 
# include < stdio.h> 
# include <math. h> 


void main0 
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{ int oe,d,i,j,k,n,s,b[10]; double mt,a[10]; 
printf(” 请 输入 n,m: ") ;scanf("%d,% 1f",&n, &m) ; 
for (k= 0;k<=9;k+ +) b[k]=1; 
for (t=1,j=1;jK=n-1;j++) 

{t=t* (10+ j-n) ;a[j]=t;} 
printf(” %d 位 优美 数 序 列 共 %.0f 项 。\n",n,9* a[n- 们 ); 
if (m> 9 * aln- 1]) 

{printf(” m 超 过 总 项 数 1\n") ;return;} 
else printf(” 序列 第 %.0f 项 为 : ",m); 
a[0]=1;d=1; 
for (j=n-1;j>=0;j--) 

{ c= (int)floor (wa[j])+ dinF fmod(m, a[j]); 
if (m=0 8&8 j>0) {co-- ;mea[j];} 
s=0;i=-1; 
if(j>0) 

{ while(s¢=0) {it+;st+=b[i];} 
printf ("%d", i);b[i]=0;d=0; 
} 
else 
{ while(s<c) {it+;s+=b[i];} 
printf ("%d.\n", i); 


, 
3. 程序 运行 示例 与 说 明 


请 输入 n,m: 5,2019 
5 位 优美 数 序列 共 27216 项 。 
序列 第 2019 项 为 :17025。 


注意 : 这 里 的 n 位 优美 数 包 含 数字 0。 
这 里 所 得 第 2019 项 可 靠 吗 ? 17025 是 如 何 得 来 的 ? 
注意 到 n= 二 5,a[4] 二 A(9,4) 二 3024,m 二 2019 二 3024, 则 其 最 高 位 只 能 为 1 ,m= 
2019; 而 a[3] 二 A(8,3) 二 336,c 二 2019/336 二 6, 则 其 次 高 位 为 7,m 二 2019 一 6X 336 二 3; 
因而 得 第 2019 项 是 17 开头 的 第 3 个 数 : 17023,17024,17025。 

当 n 比较 大 时 ,应 用 上 述 设计 求解 比 一 般 枚 举 要 简明 快捷 得 多 。 


6.6 2 部 数 序 列 


新 颖 的 2 部 数 是 一 类 构 形 独特 的 整数 ,是 对 由 一 个 数字 组 成 的 单 码 数 的 扩充 。 
本 节 首 先 探 索 双 码 2 部 数 序列 ,在 此 基础 上 探求 有 着 ACM 背景 的 2 部 数 积 问题 。 


222 


第 6 齐 多 考 妃 列 钦 党 ‖ 


6.6.1 双 码 2 部 数 序列 


双 码 2 部 数 定义 : 由 两 个 不 同 数码 组 成 ,每 个 数码 多 于 1 位 时 相连 而 不 分 开 的 正 整 
数 称 为 双 码 2 部 数 。 其 中 ,处 于 高 位 相连 数字 称 为 高 部 ,处 于 低位 相连 数字 称 为 低 部 。 

例如 ,330 是 一 个 3 位 双 码 2 部 数 : 高 部 数字 为 3 ,高 部 位 数 为 2; 低 部 数字 为 0, 低 部 
位 数 为 1。 而 333 只 有 1 个 数码 ,4407 有 3 个 数码 ,4474 的 数码 4 呈 分 开 状态 ,都 不 是 双 
码 2 部 数 。 

注意 : 双 码 2 部 数 强调 了 双 码 ,排除 了 单 码 数 。 

【问题 】 试问 10 位 双 码 2 部 数 共 多 少 个 ? 探求 10 位 双 码 2 部 数 升序 序列 的 第 
100 项 。 

【求解 】 注意 到 双 码 2 部 数 的 高 位 数字 从 1 开始 ,一 直 取 到 数字 9。 

以 下 按 10 位 双 码 2 部 数 高 位 递增 取 值 实施 。 

(1) 高 位 数字 为 1 。 

数字 1 后 : 9 个 0;9 个 2;……;9 个 9; 共 计 9 个 。 

数字 11 后 : 8 个 0;8 个 2;……;8 个 9; 共 计 9 个 。 


数字 11…1(9 个 1) 后 : 1 个 0;1 个 2;……;1 个 9; 共 计 9 个 。 

综 上 ,高 位 数字 为 1 的 10 位 双 码 2 部 数 共 9X9=81 个 。 

(2) 高 位 数字 为 2 一 9。 

同 理 , 高 位 数字 为 2 的 10 位 双 码 2 部 数 有 9X9=81 个 ; 

高 位 数字 为 3 的 10 位 双 码 2 部 数 有 9X9=81 个 ; 

高 位 数字 为 9 的 10 位 双 码 2 部 数 有 9X9=81 个 。 

综 上 (1)(2) 得 ,10 位 双 码 2 部 数 共 9X81==729 个 。 

(3) 探求 10 位 双 码 2 部 数 升 序 序列 的 第 100 项 。 

高 位 数字 为 2 的 双 码 2 部 数 显然 大 于 81 个 高 位 数字 为 1 的 双 码 2 部 数 ; 而 高 位 数字 
为 3 的 双 码 2 部 数 显然 大 于 81 个 高 位 数字 为 2 的 双 码 2 部 数 ;可 以 确定 10 位 双 码 2 部 数 
升序 序列 的 第 100 项 即 为 高 位 数字 为 2 的 10 位 双 码 2 部 数 升序 序列 的 第 19 项 。 

以 下 按 递增 列举 探求 高 位 数字 为 2 的 10 位 双 码 2 部 数 升序 序列 的 第 19 项 。 

数字 2 后 : 9 个 0;9 个 1; 共 计 2 个 。 

数字 22 后 :8 个 0;8 个 1; 共 计 2 个 。 

数字 22…2(8 个 2) 后 : 2 个 0;2 个 1; 共 计 2 个 。 

数字 22…2(9 个 2) 后 : 1 个 0;1 个 1;1 个 3; 共计 3 个 。 

以 上 共 8X2 十 3 一 19 个 。 

因而 得 高 位 数字 为 2 的 10 位 双 码 2 部 数 升序 序列 的 第 19 项 为 : 9 个 2 后 1 个 3。 

综 上 得 ,10 位 双 码 2 部 数 升序 序列 的 第 100 项 为 2222222223 ,或 简写 为 2(9)3(1)。 

【编程 拓展 】 
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在 所 有 双 码 2 部 数 中 ,10 是 最 小 的 。 

试 求 一 般 双 码 2 部 数 从 小 到 大 排序 序列 的 第 m 项 。 

输入 正 整数 m(2 二 m 二 10000), 输出 双 码 2 部 数 升序 序列 的 第 m 项 ,并 在 输出 第 m 
项 之 前 输出 各 位 双 码 2 部 数 的 个 数 。 


1. 递增 枚 举 要 点 

设置 n 标记 双 码 2 部 数 的 位 数 , 变 量 p 标记 双 码 2 部 数 升序 序列 的 项 数 。 

同时 ,用 a(1 志 a 志 9) 存 储 高 位 数字 ,la(1 志 la 志 n 一 1) 存 储 高 位 的 位 数 ;用 b(0 二 b 寺 9) 
存储 低位 数字 ,lb(lb>0) 存 储 低位 的 位 数 。 显 然 有 n 一 la 十 lb。 

(1) 突破 升序 枚 举 难点 。 

搜索 的 起 点 : n 一 2;p 王 1;a 一 1;b 一 0;la 一 1;1lb 一 1;。 

为 了 确保 从 小 到 大 枚 举 双 码 2 部 数 ,要 注意 枚 举 循环 的 先后 次 序 。 

首先 ,位 数 n 确定 之 后 ,高 部 数字 a 须 从 小 到 大 ,范围 为 1 一 9。 

当 a 确定 后 ,高 部 位 数 la 简单 地 从 小 到 大 或 从 大 到 小 都 不 能 确保 双 码 2 部 数 从 小 到 
大 递增 , 需 配 合 b 分 以 下 3 步 完 成 ,这 也 是 枚 举 升 序 2 部 数 的 难点 所 在 。 

为 便于 理解 ,以 n= 二 4,a==4 的 递增 进程 实施 标注 。 

@ la 增长 (1~n 一 2) 段 ,lb==n 一 la,b 递增 (0 一 a 一 1) 取 值 。 

4000 4111 4222 4333 (la=1,lb=3,b: 0~3) 

4400 4411 4422 4433 (la=2,lb=2,b: 0~3) 

@ la 与 lb 取 定 值 段 ,la=n 一 1,lb==1,b 递增 (0 一 9) 取 值 ( 当 b=a 时 跳 过 ) 。 

4440 4441 4442 4443 4445 4446 4447 4448 4449 

(la 一 3,lb 王 1,b: 0 一 9, 其 中 b=4 时 跳 过 ) 

@ la 减 小 (n 一 2 一 1) 段 ,lb=n 一 la,b 递增 Ca 十 1 一 9) 取 值 。 

4455 4466 4477 4488 4499 (la=2,lb=2,b: 5 一 9) 

4555 4666 4777 4888 4999 (la=1,lb=3,b: 5~9) 

以 上 3 步骤 中 每 一 步骤 中 都 是 递增 的 , 且 3 个 步骤 衔接 中 没有 重复 与 遗漏 ,从 而 可 确 
保 n 位 的 双 码 2 部 数 从 小 到 大 递增 ,没有 重复 与 遗漏 。 

精简 关于 a,la 与 b 的 循环 ,转化 为 关于 b 与 la 的 条 件 判 断 , 根 据 条 件 判断 结果 进行 
asb 的 增值 与 la 的 增 减 操作 。 

(2) 比较 与 输出 。 

在 项 数 p 增长 过 程 中 , 若 出 现 p=m 时 , 即 找到 所 求 项 ,用 a0,la0 与 b0 进行 标记 后 退 
出 循环 后 输出 所 标记 的 双 码 2 部 数 。 

同时 应 用 变量 p0 存储 n 位 之 前 的 双 码 2 部 数 的 个 数 , 当 在 搜索 过 程 中 当 某 一 位 数 n 
搜索 完成 时 ,输出 p 一 p0 即 为 n 位 双 码 2 部 数 的 个 数 。 


2. 程序 设计 


// 探 求 双 码 2 部 数 升序 序列 的 第 m 项 
# include < stdio. h> 


void main0 
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{ Iong a,b,a0,b0, i, j,m,n,p,p0, 1a, 1a0; 


printf(” 请 输入 整数 m: "); scanf("% 1d",&m) ; 
n=1;p=pO= 0; 
while(1) 


{ nt+;pt+;a=1;b=0;la=1; 
if (p==m) {a0= a;b0=b;1a0= la;break;} 
while(la<cnr11| ac9 || b<8) 
发 
if(b==9) 
if (la==1) {at+; b=0;} 
else {la-—; b=at1;} 
else if(b!=a-1) b++; 
else if(lal=n-1) {lat+ ;b=0;} 
else if(b< 8) b+=2; 
if(p==m) {a0=a;b0=b;1a0= la;break;} 
} 
if (p==m) break; 
printf(” %1d(%1d)",n,p-pO); 
pO=p; 
} 
printf("\n 
if (n> 15) 
{ printf(" %d(%d)",a0,1a0); 
printf (", %d(%d)", b0, n- 1a0) ; 
} 
else 
{ for(j=1;j<=1a0;j++) printf("%d",a0); 


for (j=1;j<=n- la0;j++) printf("%d",b0); 


} 
printf("\n 
} 


3. 程序 运行 示例 与 说 明 


请 输入 整数 m:2019 

2(81) 3(162) 4(243) 5(324) 6(405) 7(486) 

双 码 2 部 数 升序 序列 的 第 2019 个 为 :62222222 
(该 项 为 8 位 双 码 2 部 数 序列 中 第 318 项 .) 


双 码 2 部 数 升序 序列 的 第 %1d 个 为 :",m); 


第 6 部 | 


// 默 认 n 位 2 部 数 第 1 个 为 1 后 mr 1 个 0 


// 此 时 b 不 能 增 1, 有 以 下 两 种 选择 
MO a 增 1 后 ,b 从 0 开始 
/GO a 段 长 增 1 后 ,b 从 ar+1 开 始 
//a 与 la 不 变 ,b 增 1 

//a 段 长 增 1 后 ,b 从 0 开始 
/b 增 2 跳 过 a=b 情 形 ,确保 双 码 


// 位 数 超过 15 位 时 简约 输出 


// 位 数 小 于 等 于 15 时 如 实 输出 


(该 项 为 % 1d 位 双 码 2 部 数 序列 中 第 % 1d 项 .)\n"，n,p- p0) ; 


可 知 2 位 双 码 2 部 数 共 有 81 个 ,3 位 双 码 2 部 数 共 有 162 个 ,其 他 各 位 双 码 2 部 数 的 


个 数 请 见 上 面 输出 。 


双 码 2 部 数 升序 列 的 第 2019 项 有 8 位 : 高 部 1 个 6, 低 部 7 个 2, 在 8 位 2 部 数 序 列 


中 排 第 318 项 。 


运行 程序 ,输入 m 王 9102, 得 双 码 2 部 数 升序 序列 的 第 9102 个 为 5(12)1(4), 即 12 个 
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5 后 4 个 1, 相 当 于 16 位 双 码 2 部 数 序列 中 第 597 项 。 

枚 举 循 环 次 数 随 m 增加 ,其 位 数 n 增 大 ,因而 程序 运行 时 间 相 应 增长 。 

双 码 2 部 数 的 递增 枚 举 是 比较 复杂 的 ,也 容易 出 错 。 这 一 设计 提醒 我 们 不 要 轻视 枚 
举 , 枚 举 设计 可 以 解决 一 些 较为 复杂 的 搜索 案例 。 


6.6.2 探求 2 部 数 积 


定义 形 如 a…ab…b 的 数 叫 作 2 部 数 (bipartite number) ,例如 1222,333999999,50， 
8888 ,1 等 都 是 。 给 出 一 个 整数 x, 求 出 x 的 最 小 倍数 n 二 kx(k 二 1) ,使 得 n 是 2 部 数 。 

输入 正 整 数 x, 输 出 最 小 2 部 数 积 。 

这 是 第 30 届 ACM( 国 际 大 学 生 程序 设计 竞赛 ) 的 一 道 程序 设计 竞赛 试题 。 


1. 递增 枚 举 设计 要 点 

对 2 部 数 a…ab…b, 称 数码 a 组 成 的 为 高 部 ,数码 b 组 成 的 为 低 部 。 作 为 2 部 数 的 特 
例 , 低 部 可 为 空 , 即 单 码 数 (例如 8888) 作 为 特例 包含 在 2 部 数 中 ,是 出 于 减少 对 “最 小 2 部 
数 积 ” 受 阻 的 考虑 。 

车 x 本 身 为 2 部 数 ,约定 所 求 的 2 部 数 积 要 大 于 x 本 身 。 

(1) 当 x 不 大 于 50 时 简单 处 理 。 
注意 到 所 有 2 位 数 为 2 部 数 , 若 2x 之 10, 则 2x 即 为 所 求 的 2 部 数 积 。 

若 2x 迄 10, 则 增加 倍数 t, 使 tx 三 10 即 可 。 

(2) 模拟 竖 式 除法 运算 定义 余数 函数 。 

设 la 位 高 部 a 与 lb 位 低位 b 的 2 部 数 除 以 整数 x 的 余数 为 r, 余 数 初始 值 rz 一 0, 从 高 
位 开始 模拟 竖 式 除法 运算 逐 位 试 商 ,经 二 重 循环 

for (j=1;j<= 1a;jt++) r= (10x r+a)%x; 

for (j=1;j<= lb;j++) r= (10x r+b)%x; 
即 可 算出 余数 r, 并 赋值 给 余数 函数 br(x,a,la,b,lb)。 

(3) 从 小 到 大 枚 举 2 部 数 。 

在 算出 整数 x 的 位 数 为 h 与 其 最 高 位 数字 为 t 的 基础 上 ,搜索 的 初始 值 定 为 a 一 2* 
t, 位 数 le 二 h。 如 果 2x*t 为 2 位 数 , 则 a==1,le 二 h 十 1。 

设 2 部 数 为 a…ab…b(1 志 a 三 9,0 达 b 达 9) ,其 高 部 数字 a 有 la 位 , 低 部 数字 b 有 lb 
位 ,显然 有 1a 十 lb 二 le (1 二 la 二 le, 当 1a=le 时 ,a 二 b, 即 二 部 的 数字 相同 )。 

为 了 确保 从 小 到 大 枚 举 2 部 数 ,要 注意 枚 举 循 环 的 先后 次 序 。 

一 般 地 ,为 了 确保 从 小 到 大 枚 举 2 部 数 ,要 注意 枚 举 循环 的 先后 次 序 。 

Q@ 2 部 数 的 总 位 数 le 二 la 十 lb 须 从 小 到 大 ,le 起 点 是 x 的 位 数 h。 

@ 在 总 位 数 le 一 定时 ,高 部 数字 a 须 从 小 到 大 ,范围 为 1 一 9。 

@ 当 le 与 a 确定 后 ,高 部 位 数 1a 从 小 到 大 或 从 大 到 小 都 不 能 确保 2 部 数 从 小 到 大 变 
化 , 需 配 合 b 分 以 下 3 个 步骤 完成 。 

la 增长 (1 一 le 一 2) 段 ,lb 二 le 一 la,b 递增 (0 一 a 一 1) 取 值 。 

la 与 lb 取 定 值 段 ,la=le 一 1,lb=1.b 递增 (0 一 9) 取 值 。 
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la 减 小 (le 一 2 一 1) 段 ,lb 二 le 一 la,b 递增 Ca 十 1 一 9) 取 值 。 
以 上 3 个 步骤 中 每 一 步骤 中 都 是 递增 的 , 且 3 个 步骤 衔接 中 没有 重复 与 遗漏 ,从 而 可 


确保 la 位 的 2 部 数 从 小 到 大 递增 ,没有 重复 与 遗漏 。 


精简 关于 a,la 与 b 的 循环 ,转化 为 关于 b 与 la 的 条 件 判断 ,根据 条 件 判断 结果 进行 


ab 的 增值 与 la 的 增 减 操作 。 


其 中 a,b 的 增值 是 保持 递增 枚 举 的 需要 ,而 la 的 增 减 同样 是 保持 递增 枚 举 的 需要 。 


(4) 检测 与 输出 。 


检测 : 若 br(x,a,la,b,lb) 二 0, 则 输出 所 得 2 部 数 。 


注意 到 最 高 位 数 a 二 t, 即 使 le 与 x 的 位 数 h 相同 ,所 得 2 部 数 积 大 于 x。 


应 用 模拟 除法 运算 计算 乘 x 的 另 一 个 乘 数 并 逐 位 输出 ,然后 输出 2 部 数 积 。 
当 所 得 2 部 数 积 位 数 比较 多 时 (例如 x 一 210, 其 最 小 2 部 数 积 位 数 多 达 34 位 ) ,改进 


为 a(la) ,b(lb) 的 简约 形式 输出 更 为 清晰 。 
2. 程序 设计 


// 探 求 2 部 数 积 枚 举 设计 

# include < stdio.h> 

long br (long x, int a, int la,int b, int 1b); 
voidmain0 

{ longt,x; int a,b,c,d,h,i,j, le, la, |b; 


printf(” 请 输入 整数 x:"); scanf("% 1d", &x) ; 


if (x<=50) 
{ t=2;while(t* x<10) t++; 


printf(”%1d 的 最 小 2 部 数 积 为 :n=%1d \n",x, tx x); 


return; 
} 
txih=1; 
while(t>9) {t=t/10;h++ 计 
t=2xt;le=h; 
if(t>9) { le= le+ 1;t=1;} 
while(1) 
{ a=t;la=1;b=0; 
while(la< le-1|| a<9 || b<9) 
{ ifb==9) 
if (la==1) {at+; b=0;} 
else {la--; b=at+1;} 
else if(bl=a-1) bt+; 
else if(lal= le-1) {lat+ ;b=0;} 
else if(b<=8) b++; 
lb= le- 1a; 
if (br (x, a, a, b, Ib)==0) 
{ printf(” %ldX",x); 
for (c=ax 111, i=4;i<= le;it+) 


// 整 数 x 位 数 为 h, 最 高 位 数字 为 t 


// 此 时 b 不 能 增 1, 有 以 下 2 种 选择 
//a 增 1 后 ,b 从 0 开始 
//a 段 长 增 1 后 ,b 从 a+1 开 始 


//a 段 长 增 1 后 ,b 从 0 开始 


// 当 lak4 时 可 改 为 c=a,i=2 
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{ if(i<=1a)d=cx 10+a; 


else d=c* 10+b; // 两 部 相继 一 个 循环 中 实施 除法 
printf ("%d", d/x) ;c= d% x; 

} 

printf ("="); 

if (le> 15) // 位 数 较 多 时 简约 输出 2 部 数 积 


{ printf(" %d(%d)",a,1a); 
if (Ilb> 0) printf(",%d(%d)",b, Ib); 
} 
else // 位 数 不 多 时 详细 输出 2 部 数 积 
{ for(j=1;j<=1a;j++) printf("%d",a); 
for(j=1;j<=1b;j++) printf("%d",b); 
} 


printf ("\n"); return; 


le++ ;t=1; 


long br (long x, int a, int |a, int b, int Ilb) // 定 义 余 数 统计 函数 
{ long r=0;int j; 

for(j=1;j<=1a;jt+) r= (10x r+ a)%x; 

for (j=1;j<= Ib;j++) r= (10x r+b)%x; 

return(r); 


} 
3. 程序 运行 示例 与 变通 


请 输入 整数 x: 2019 

2019X 4952947= 9999999993 

请 输入 整数 x: 2010 

2010X 552791597567716970702045328911= 1 (33), 0(1) 


原 ACM 竞赛 题 不 要 求 输出 男 一 乘 数 ,这 里 进行 了 适当 扩展 。 

如 果 求 得 的 最 小 2 部 数 积 是 一 个 单 码 数 , 即 为 2 部 数 的 一 个 特例 。 

输出 第 1 例 因 位 数 不 超过 15 位 , 即 照 实 输出 最 小 2 部 数 积 。 输 出 第 2 例 运行 输出 结 
果 多 达 34 位 , 即 以 简约 形式 输出 ,该 例 实际 上 是 33 个 1 被 201 整除 。 

变通 : 以 上 程序 输出 一 个 解 即 “ 最 小 2 部 数 积 ” 后 ,用 return; 退 出 。 

如 果 需 探求 并 输出 多 个 2 部 数 积 解 ,只 需 加 设 一 个 解 的 计数 器 即 可 。 例 如 ,设置 变量 
k 统计 解 的 个 数 如 下 所 示 。 

(1) 循环 前 清 零 k 一 0。 

(2) 把 语句 

printf(”%1d 的 最 小 2 部 数 积 为 :n= ",x); 
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修改 为 
printf(” %1d 的 第 %d 小 2 部 数 积 为 :nr= ",x,++k); 
(3) 在 return; 之 前 加 上 解 的 个 数控 制 : if(k 二 二 5)return;( 输 出 5 个 解 ) 。 


6.7 连 写 数 序列 


连 写 数 序列 是 一 个 新 颖 而 平凡 的 序列 , 求 连 写 数 积 是 一 项 具有 挑战 性 的 探索 。 

定义 : 从 1 开始 按 正 整 数 的 递增 顺序 不 间断 连续 写 下 去 直 写 到 整数 m, 所 成 的 整数 
为 连 写 序列 第 m 项 , 记 为 L(m)。 

显然 ,L(1)=1,L(2)=12, L(3)=123,…,L(12)=123456789101112,…。 

【问题 】 L(2019) 共 有 多 少 个 数字 ? 并 写 出 其 中 从 高 位 开始 第 2020 个 数字 。 

【求解 】 从 小 到 大 按 位 数 统计 。 

(1) 为 避免 出 现 重复 或 遗漏 ,从 小 到 大 按 位 数 分 别 为 1,2,3,4 位 统计 。 

从 1 至 9, 共 9 个 1 位 数 , 计 9 个 数字 ; 

从 10 至 99, 共 90 个 2 位 数 , 计 180 个 数字 ; 

从 100 至 999, 共 900 个 3 位 数 , 计 2700 个 数字 ; 

从 1000 至 2019, 共 1000 十 20 王 1020 个 4 位 数 , 计 4080 个 数字 。 

以 上 4 项 求 和 即 得 L(2019) 共 有 6969 个 数字 。 

(2) 为 求 取 L(2019) 共 6969 个 数字 从 高 位 开始 的 第 2020 个 数字 ,从 小 到 大 按 位 数 调 
整 确定 。 

从 1 至 99, 共 9 个 1 位 数 ,90 个 2 位 数 , 计 9 十 2X90 一 189 个 数字 ; 

从 100 至 699, 共 600 个 3 位 数 , 计 1800 个 数字 。 

以 上 2 项 求 和 即 为 1989 个 数字 , 即 在 699 之 后 还 有 2020 一 1989 二 31 个 数字 。 

31 个 数字 刚好 是 10 个 3 位 数 后 的 第 一 个 数字 。 
注意 到 699 后 面 的 10 个 3 位 数 分 别 为 700,701,…,709。 随 后 一 个 数字 为 7。 
因而 得 L(2019) 中 从 高 位 开始 第 2020 个 数字 为 7。 


【编程 拓展 】 
给 出 一 个 整数 n, 寻 求 一 个 最 小 的 整数 m, 使 得 L(m) 能 被 n 整除 。 
1. 设计 要 点 


对 输入 的 正 整 数 n, 是 否 存在 L(m) 能 被 n 整除 ,m 上 限 为 多 大 ,理论 上 还 未 确定 。 

(1) 搜索 上 限 。 

如 果 对 有 些 n 不 存在 连 写 数 积 ,为 避免 无 限 运行 ,加 一 限制 : 约定 搜索 到 m 一 nz? 时 尚 
未 找到 连 写 数 积 , 输 出 “所 求 连 写 数 积 可 能 不 存在 1!” 而 退出 。 

实际 上 ,这 一 限制 不 一 定 合 理 , 必 要 时 可 适当 加 大 。 

(2) 模拟 整数 除法 探索 LC(m) 。 

应 用 模拟 整数 除法 探索 能 被 键盘 指定 的 整数 n 整除 的 连 写 数 序列 项 L(m)。 

设置 m 从 1 开始 的 递增 循环 ,对 每 一 个 m, 设 被 除数 为 a, 除 数 为 n, 余 数 为 c, 则 


229 


| 起 二 妨 学 及 编程 据 关 


a=cxt+mi c=a%n; 


循环 中 对 每 一 个 m 计算 中 间 量 t。 

车 m 为 1 位 数 ,t==10; 

车 m 为 2 位 数 ,t==100;… 

当 c 隆 0 时 继续 试 商 ,直至 c 一 0 时 ,搜索 到 整数 m, 即 L(m) 能 被 n 整除 。 

(3) 输出 另 一 乘 数 。 

另 一 乘 数 b 实际 上 是 连 写 数 L(m) 除 以 n 的 商 。 

为 避免 乘 数 b 出 现 高 位 0, 分 情况 确定 输出 循环 jCi 一 m) 中 的 参数 1 及 余数 变量 c 的 


初 值 。 


车 2 二 n 志 12, 则 c=1,i=2; 

车 13<n<123, 则 c=12,i=3;… 

设 被 除数 为 a, 除数 为 n, 商 为 b, 余 数 为 c, 则 
a=c* 10+d; b=a/n; c=a%n; 


当 c 天 0 且 m 为 1 位 数 时 ,a 二 cx* 10 十 m( 此 时 d= 二 m) 作 为 被 除数 继续 试 商 。 
当 c 和 0, 一 般 地 m 为 一 个 w 位 数 时 , 则 分 解 w 次 ( 即 循环 w 次 ) 实 施 上 述 操作 : 借助 


中 间 量 t 把 整数 m 从 高 位 开始 分 离 每 一 个 数字 d,a 一 cx* 10 十 d 作为 被 除数 继续 试 商 。 
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直至 c=0 时 , 另 一 乘 数 计算 并 输出 完成 。 
2. 模拟 除法 程序 设计 


// 探 求 最 小 连 写 数 项 能 被 指定 整数 n 整除 
# include < math. h> 
# include < stdio. h> 
voidmain0 
{ int oe,d,e,i,j,k,m,n,t,w; long ai 
printf(" 请 给 出 整数 n: "); scanf("%d",&n) ; 


c=1im=1; 
while(m nxn) 
{ m+;e=m/10;t=10; 
while(e>0) {e=e/10;t=t* 10; } // 对 每 一 个 m, 计 算 t 
a=cx ttm;c=a%n; 
if (c==0) break; // 余 数 为 零 ,找到 连 写 数 项 Lm) 


} 
printf(” 搜索 到 最 小 项 LW%d) 能 被 %d 整除 。\n", m,n); 
printf(” LGWd)M%d= "mn); 
if (n=12) {c=1;i=2;} 
else if (n=123) {c=12;i=3;} // 根 据 n 确定 试 商 参 数 ic 
else if (n=1234) {c=123;i=4;} 
else {c=1234;i=5;} 
m; j++) // 由 连 写 数 试 商 求 另 一 乘 数 
{ ej/10;t=1;w1; 


for (j= ij 
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while(e> 0) // 对 每 一 个 j, 计 算 t 与 w 
{e= e/10;t=tx 10;w= wt 1;} 
e=j; 
for (k=1;k<=w;k++) // 对 每 一 个 j, 分 位 试 商 
{ d=e/t;e=e%t;t=t/10; 
a=cx* 10+d;c=a% n; 
printf ("% d", a/n) ; // 输 出 整数 b 的 每 一 位 
} 
} 
if(c==0) // 检 验 合格 后 输出 连 写 数 项 
{printf("\n 经 试 商检 验 无 误 1\n",m) ;} 
ifm>=nxm printf(” 所 求 连 写 数 积 可 能 不 存在 I\n",m) ; 
} 


3. 程序 运行 示例 与 说 明 


请 给 出 整数 n: 21 
搜索 到 最 小 项 L(11) 能 被 21 整除 。 
L(11)/21= 58788947191 

经 试 商检 验 无 误 ! 


如 果 输 入 n 二 11, 能 被 11 整除 的 最 小 连 写 数 项 为 L(106); 如 果 输 入 n 一 2019 ,能 被 
2019 整除 的 最 小 连 写 数 项 为 L(335)。 这 些 项 都 是 相当 庞大 的 数量 。 

程序 求 出 能 被 给 定 整 数 n 整除 的 连 写 数 L(m) ,然后 实施 L(m) 除 以 n 求 得 另 一 乘 数 
a, 实 际 上 是 对 n 整除 LCm) 的 检验 : 试 商 余数 c= 二 0, 说 明 n 整除 L(m) 成 立 。 


6.8 德 布 鲁 金 环 


由 2" 个 0 或 1 组 成 的 环 序列 , 沿 环 每 相连 的 n 个 数字 (0 或 1) 组 成 的 一 个 二 进 制 数 ， 
在 共 2" 个 二 进 制 数 中 没有 任何 一 个 重复 , 即 2" 个 二 进 制 数 恰 在 环 中 各 出 现 一 次 ,这 个 环 
序列 称 为 n 阶 德 布 鲁 金 (Debrujin) 环 序列 。 

n 阶 德 布 鲁 金 环 序列 实际 上 是 一 个 环 排列 问题 ,其 中 必 有 相连 的 n 个 0。 为 构造 与 输 
出 方便 ,约定 显示 n 阶 德 布 鲁 金 环 序列 由 n 个 0 开头 。 

2 阶 德 布 鲁 金 环 序列 非常 简单 ,显然 只 有 0011 这 一 个 解 ,由 两 个 相连 数字 组 成 的 二 
进 制 数 依次 为 00,01,11,10( 因 为 是 环 ,开头 的 0 与 结尾 的 1 相连), 共 4 个 2 位 二 进 制 数 ， 
每 个 数 各 出 现 一 次 。 

随 着 阶 数 n 的 增加 ,求解 n 阶 德 布 鲁 金 序列 的 难度 相应 增 大 。 


6.8.1 探求 3-4 阶 环 


下 面 先 从 简单 的 3 阶 开 始 , 然 后 再 行 构建 4 阶 德 布 鲁 金 环 序列 。 
【问题 1】 试 构建 3 阶 环 序列 。 
【思考 】 从 必 有 段 的 连接 这 一 关键 入 手 。 
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3 阶 德 布 鲁 金 环 序列 由 2 一 8 个 0/1, 即 4 个 0 与 4 个 1 构成 。 沿 环 每 相连 的 3 个 数 
字 (0 或 1) 组 成 的 一 个 二 进 制 数 ,在 共 8 个 二 进 制 数 中 没有 任何 一 个 重复 , 即 8 个 二 进 制 
数 恰好 在 环 中 各 出 现 一 次 ,这 个 环 序 列 称 为 3 阶 德 布 鲁 金 环 序列 。 

序列 约定 相连 3 个 0 即 000 开头 ;同时 ,序列 中 必 有 相连 的 3 个 1, 和 否则 111 就 无 法 
生成 。 

下 面 从 000 与 111 连接 入 手 , 有 以 下 两 种 连接 方式 。 

(1) 两 者 相连 。 

当 000 与 111 相连 ,随后 车 带 10, 则 出 现 1111 与 0000, 显 然 不 满足 要 求 。 

若 随后 带 01 即 成 为 00011101。 

所 得 这 一 环 序列 是 否 满足 要 求 ,必须 经 过 检验 。 

分 解 00011101 中 每 3 个 相连 数字 组 成 的 二 进 制 数 依次 为 

000,001,011,111,110,101,010,100( 因 为 是 环 , 尾 部 0 即 开头 的 0)， 

共 8 个 ,每 个 各 出 现 一 次 ,满足 序列 要 求 。 

(2) 两 者 相隔 。 

当 000 与 111 相隔 ,用 一 个 0 隔 开 会 出 现 0000; 用 一 个 1 隔 开 会 出 现 1111; 或 用 01 
隔 开 同 样 不 行 , 唯 有 用 10 隔 开 , 即 成 00010111 。 

所 得 这 一 环 序列 是 否 满足 要 求 ,也 必须 经 过 检验 。 

分 解 00010111 中 每 3 个 相连 数字 组 成 的 二 进 制 数 依次 为 

000,001,010,101,011,111,110,100 

共 8 个 ,每 个 各 出 现 一 次 ,同样 满足 序列 要 求 。 
因而 得 到 3 阶 德 布 鲁 金 环 序列 的 两 个 解 : 00011101,00010111。 

分 析 这 两 个 解 ,事实 上 是 互 为 顺 时 针 与 逆 时 针 方向 的 关系 ,其 中 一 个 解 为 顺 时 针 方 
向 , 则 另 一 个 解 为 其 对 应 的 逆 时 针 方向 。 

【问题 2】 试 构建 4 阶 环 序列 。 

【思考 】 抓 住 必 有 段 的 连接 这 一 关键 展开 构建 。 

由 24 王 16 个 0/1 数字 组 成 环 序列 , 沿 环 每 相连 的 4 个 数字 (0 或 1) 组 成 的 一 个 二 进 
制 数 ,在 共 16 个 二 进 制 数 中 没有 任何 一 个 重复 , 即 16 个 二 进 制 数 恰好 在 环 中 各 出 现 一 
次 ,这 个 环 序列 称 为 4 阶 德 布 鲁 金 环 序列 。 

同样 ,序列 约定 相连 4 个 0 即 0000 开头 ;同时 序列 中 必 有 相连 的 4 个 1, 和 否则 1111 这 
二 进 制 数 就 无 法 生成 。 

下 面 的 问题 是 确定 0000 与 1111 连接 ,有 以 下 两 种 连接 方式 。 

(1) 两 者 相连 。 

当 0000 与 1111 相连 , 紧 随后 的 8 个 数字 串 ,开头 为 0, 尾 必 为 1。 这 个 数字 串 在 0 与 
1 之 间 还 有 需 填 补 6 个 数字 , 即 已 成 000011110(6)1, 其 中 (6) 示 意 该 处 需 填 补 6 个 0/1 
数字 。 

需 填补 的 6 个 数字 串 中 须 有 00 与 11, 否 则 所 形成 的 4 位 二 进 制 数 中 将 缺少 00 与 11 
的 必要 条 件 。 因 而 6 个 数字 串 可 试用 101100 或 110010。 

当然 , 需 填补 的 6 个 数字 串 也 可 与 这 6 个 数字 的 前 一 个 0 相配 合 形成 00, 即 可 试用 
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010110 或 011010; 

同样 , 需 填 补 的 6 个 数字 串 也 可 与 尾部 的 1 相配 合 形 成 11, 即 可 试用 100101 
或 101001 。 

(2) 两 者 相隔 。 

当 0000 与 1111 相隔 ,用 一 个 0 隔 开会 出 现 00000, 用 一 个 1 隔 开 会 出 现 11111; 用 01 
隔 开 同 样 不 行 , 唯 有 用 10 或 100 或 110 这 3 个 oO/1 串 隔 开 。 

@ 用 10 分 隔 , 形 成 0000101111(5)1, 需 填补 的 5 个 数字 串 中 须 含 有 00 与 11 ,可 试 
00110 或 01001( 与 尾 1 连 成 11) 。 

@ 用 100 分隔, 形成 00001001111(4)1, 需 填补 的 4 个 数字 串 中 须 含 有 11, 可 试 0110 
或 0101( 与 尾 1 连 成 11)。 

@ 用 110 分 隔 , 形 成 00001101111(4)1, 需 填补 的 4 个 数字 串 中 须 含 有 00, 可 试 0010 
或 0100。 

(3) 按 要 求 检验 。 

经 检验 ,可 得 以 下 8 个 满足 德 布 鲁 金 环 序列 要 求 的 序列 : 

0000111100101101,0000111101001011 

0000111101011001,0000111101100101 

0000101111001101,0000101111010011 

0000100111101011,0000110111100101 

不 妨 分 解 第 一 个 0000111100101101, 每 4 个 相连 数字 组 成 16 个 二 进 制 数 ,依次 为 
0000, 0001, 0011, 0111, 1111, 1110, 1100, 1001, 0010, 0101, 1011, 0110, 1101, 1010， 
0100,1000 。 

比较 以 上 所 分 解 的 16 个 二 进 制 数 互 不 相同 ,满足 序列 要 求 。 为 清楚 计 , 把 它们 转换 
为 十 进 制 数 依次 为 0,1,3,7,15,14,12,9,2,5,11,6,13,10,4,8。 

(4) 转换 讨论 。 

对 于 环 序列 ,存在 顺 时 针 与 逆 时 针 的 区 别 。 如 果 把 以 上 8 个 序列 定义 为 顺 时 针 , 则 可 
写 出 它们 的 逆 时 针 解 。 

例如 ,第 一 个 解 0000111100101101 的 逆 时 针 解 为 0000101101001111。 这 些 道 时 针 
解 当然 同样 满足 德 布 鲁 金 环 序列 要 求 。 

4 阶 德 布 重金 环 序列 的 解 以 * 编 码 转动 盘 * 形 式 ( 见 
图 6-1) 检 验 : 一 个 编码 盘 分 成 16 个 相等 的 扇面 ,每 个 扇面 


b 


上 标注 0 或 1, 每 相 邻 的 4 个 扇面 组 成 4 位 二 进 制 数 , 共 16 人 1 请 
个 4 位 二 进 制 输出 没有 重复 。(3 阶 的 “编码 转动 盘 ” 9 
类 似 。) 


图 6-1 4 阶 编码 转动 盘 
6.8.2 构建 n 阶 环 


下 面 应 用 回溯 设计 探求 n 阶 德 布 鲁 金 环 序列 。 


1. 设计 要 点 
对 于 mn 阶 环 序列 ,共有 m= 二 2" 个 二 进 制 数字 。 设 置 一 维 a 数组 ,约定 a(n) 二 1,a(m 一 
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1) 一 1, 其 余数 组 元 素 清 零 。 


(1) 检测 与 回溯 实施 。 
应 用 回溯 法 探求 an 二 1) 一 aCm 一 2) ,这些 元 素 取 0 或 1。 问题 的 解 空间 是 由 数字 0 


或 1 组 成 的 m 一 n 一 2 位 整数 组 ,其 约束 条 件 是 0 的 个 数 为 m/2 一 n 个 , 且 没 有 相同 的 由 相 
连 n 个 数字 组 成 的 二 进 制 数 。 


的 二 


当 运 m 一 2 时 ,a(i) 从 0 取 值 ; 

当 i 访 n 十 1 且 a(i)==1 时 回溯 ; 

当 i=n 十 1 且 a( 让 =1 时 退出 ; 

当 a(n 十 1)~a(m 一 2) 已 取 数 字 时 ,设置 h 统计 其 中 0 的 个 数 。 

车 h 隆 m/2 一 n, 则 返回 ; 

车 h= 二 m/2 一 n, 则 进一步 通过 循环 计算 ml,m2, 判 断 是 否 有 相同 的 由 n 个 数字 组 成 
进 制 数 ， 

若 存 在 相同 的 由 n 个 数字 组 成 的 二 进 制 数 , 则 标注 t=1; 

若 不 存在 相同 的 由 mn 个 数字 组 成 的 二 进 制 数 , 则 保持 t=0, 进 行 打印 输出 。 

(2) 参数 设置 。 

按 以 上 所 描述 的 回溯 的 参数 : n。 

元 素 初 值 : a[n] 二 1, a[m 一 1] 二 1, 其 余数 组 元 素 初 值 取 0。 

取 值 点 : a[n 十 1 二 0, 各 数组 元 素 从 0 开始 取 值 。 

回溯 点 : a[ 让 二 1, 各 数组 元 素 取 值 至 1 时 回溯 。 

条 件 1: i=m 一 2 and h= 二 m/2 一 n( 其 中 h 为 a[ 训 中 0 的 个 数 )。 

条 件 2: ml 天 m2, 其 中 ml 与 m2 分 别 为 环 序列 中 所 有 由 相连 的 n 个 数字 组 成 的 前 后 


的 二 进 制 数 。 
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2. n 阶 德 布 鲁 金 环 序列 程序 设计 


// 回 漳 探 求 n 阶 德 布 鲁 金 环 序列 
# include < stdio. h> 
# include < math. h> 
voidmain0 
{ intd,i,h,k, j,m,mi,m2,n, s, t,x,a[200]; 
printf(” 请 输入 阶 数 n:") ;scanf("%d",&n) ; 
m1; s=0; 
for(k=1;kKC=nikr+) mmx2; 
for (k=0;k<=mt n;k++) a[k]=0; 
a[n]=1;alm 1]=1;i=n+1; 
while(1) 
{ if(i==m2) 
{ for(h=0,j=nt+1;j<=m-2;j++) 
if (a[j]==0) ht+; 


if (n==m/2-n) // 判 别 是 否 有 m/2-n 个 零 
{ for(t=0,k=0;k<=m- 2;k++) 
for (j=k+ 1;j<=m1;j++) // 检 验 2n 个 二 进 制 数 是 否 有 相同 的 
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{ 中 1;:mI=0;m2=0; 
for (x=n- 1;x>=0;x--) 
{mi=mi+a[k+ x] * d; m2=m2+ a[j+ x] * d; d=d* 2; } 
if (m1==m2) {t= 1;break;} 
} 
if(t==0) // 若 没有 相同 的 ,输出 结果 
i 
if(nk=4 || (n> 4 8&8 s<=5)) 
{ printf("” NO(%d):",s); 
for (j=0;j<=m- 1;j++) 
printf ("%d", a[j]); 
printf ("\n"); 


} 
} 
if (i<m 2) 
{ i++ ;a[i]=0;continue;} 
while(a[i]==1 && i>n+1) i--; // 向 前 回溯 
if(a[i]==1 && i==n+ 1) break; 
else a[li]=1; 


} 
3. 程序 运行 示例 与 说 明 


请 输入 阶 数 n:5 

NO(1) :00000100011001010011101011011111 
NO (2) :00000100011001010011101101011111 
NO(3) :00000100011001010011111010110111 
NO (4) :00000100011001010011111011010111 
NO (5) :00000100011001010110100111011111 


请 具体 选择 其 中 某 一 个 解 实施 分 解 ,检验 环 中 32 个 相连 5 位 0/1 数字 形成 的 5 位 数 
中 是 否 存在 重复 。 

当 n>4 时 , 解 的 个 数 快 速 增长 ,因此 设计 中 只 输出 其 中 5 个 解 (必要 时 可 修改 增加 )。 

程序 运行 的 时 间 随 阶 数 n 的 增长 迅速 增加 ,解决 5 阶 以 上 的 德 布 鲁 金 环 序列 问题 ,还 
需 从 算法 上 进行 优化 与 改进 。 


6.9 高 超 挑剔 数列 


先 看 一 个 新 颖 有 趣 的 “情侣 拍照 排队 ?案例 。 
编号 分 别 为 1,2,…,n 的 n(n 宇 3) 对 情侣 参加 聚会 后 拍照 。 主 持 人 要 求 这 n 对 情 但 
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共 2n 人 排 成 一 横 排 ,别出心裁 地 规定 每 对 情侣 男 左 女 右 且 不 得 相 邻 : 编号 为 第 1 号 的 情 
但 之 间 有 1 个 人 ,编号 为 第 2 号 的 情侣 之 间 有 2 个 人 ,…… ,编号 为 第 n 号 的 情侣 之 间 有 n 
个 人 。 注 意 到 排队 的 左 端 与 右 端 不 可 能 同 号 ,约定 排队 左 端 编号 小 于 右 端 编号 。 

以 上 * 情 倡 拍照 排队 ”所 揭示 出 的 高 超 而 别致 的 数列 称 为 挑剔 数列 。 

当 n= 二 2 时 ,两 个 2 之 间 的 两 个 数 只 有 两 个 1, 必 造成 两 个 1 相 邻 ,显然 不 符合 挑剔 数 
列 要 求 , 即 当 n=2 时 不 存在 挑剔 数列 。 

【问题 1】 试探 索 n 一 3 时 的 挑剔 数列 。 

【思考 】 从 两 个 3 中 间 的 3 个 数 入 手 构建 。 

当 n=3 时 共 3 对 6 个 数 排队 ,两 个 3 中 间 的 3 个 数 中 必 有 两 个 2 或 两 个 1 。 

(1) 两 个 3 中 间 含 两 个 2 不 行 , 显 然 两 个 2 中 间 不 足 两 个 数 。 

(2) 两 个 3 中 间 含 两 个 1 可 行 : 两 个 1 中 间 为 2, 则 另 一 个 2 在 前 ,形成 231213( 当 数 
字 不 多 时 按 紧凑 格式 书写 ,下 同 ) ; 另 一 个 2 在 后 ,形成 312132。 

所 得 排队 231213 从 后 面 看 即 为 312132, 因 而 这 两 个 解 实际 上 是 一 个 排队 。 

按照 排队 * 左 端 小 于 右 端的 约定 , 当 n= 二 3 时 挑剔 数列 只 有 231213 这 唯一 一 个 解 。 

【问题 2】 试探 索 n==4 时 的 挑剔 数列 。 

【思考 】 从 两 个 4 中 间 的 4 个 数 入 手 构建 。 

当 n=4 时 , 共 4 对 8 个 数 排队 ,着 眼 寻求 两 个 4 中间 的 4 个 数 (简称 中 4 数 )。 

(1) 中 4 数 中 至 少 存在 两 个 相同 数 ( 即 一 对 数 ) 。 

(2) 中 4 数 若 含有 一 对 3, 因 两 个 3 中 间 不 足 3 个 数 , 不 符合 要 求 ; 中 4 数 车 含有 一 对 
2, 导 致 两 个 1 中 间 超 过 一 个 数 ,或 两 个 1 中 间 没 有 数 , 显 然 不 可 以 。 因 此 ,中 4 数 为 一 对 
1, 与 一 个 2 一 个 3 组 成 。 

(3) 车 中 4 数 的 两 个 1 中 间 为 数字 2, 则 导致 两 个 3 中 间 超 过 3 个 数 或 不 足 3 个 数 ， 
不 符合 要 求 。 因 此 , 唯 有 两 个 1 中 间 为 数字 3, 即 可 推 得 排队 23421314 与 41312432 两 
个 解 。 

所 得 排队 23421314, 从 后 面 看 即 为 41312432, 可 见 这 两 个 解 实际 上 是 一 个 排队 。 

因此 ,按照 排队 * 左 端 小 于 右 端 ?约定 , 即 得 当 n=4 时 只 有 23421314 这 唯一 一 个 解 。 

在 以 上 n=3,n 一 4 的 挑剔 数列 基础 上 继续 下 去 ,能 和 否 构 造 出 n=5 或 n=6 的 挑剔 数 
列 ? 回答 是 否定 的 。 

【命题 】 当 mod(n,4) 王 1,2, 即 整数 mn 除 以 4 的 余数 为 1 或 2 时 ,不 存在 挑剔 数列 。 

【证 明 】 以 下 给 出 颇 为 形象 的 简单 证 明 。 

将 排队 的 2n 个 位 置 按 奇 数位 着 白色 ,偶数 位 着 黑色 ,显然 黑白 点 各 有 nm 个。 

对 于 n 如 果 存 在 挑剔 数列 , 则 数列 中 的 2n 个 数 所 占 白 点 与 黑 点 应 一 样 多 。 

按 挑剔 数列 要 求 , 由 于 一 对 偶数 中 间隔 有 偶数 个 数 ,显然 这 对 偶数 占据 一 个 黑 点 和 一 
个 白 点 ,因而 无 论 偶 数 对 为 多 少 对 ,数列 中 所 有 偶数 对 所 占 白 点 数 与 黑 点 数 相等 。 

而 一 对 奇数 中 间隔 有 奇数 个 数 , 则 一 个 奇数 对 要 么 都 占 两 黑 点 ,要么 都 占 两 白 点 。 

当 mod(n,4) 二 1,2 时 , 即 n 一 4k 十 1 或 n 一 4k 十 2(k 为 正 整数 ) 时 ,数列 中 有 2k 十 1 组 
奇数 对 , 设 有 m(m<2k 十 1) 对 奇数 占有 白 点 , 则 另外 2k 十 1 一 m 对 奇数 占有 黑 点 。 
注意 到 m 天 2k 十 1 一 m, 因 而 2k 十 1 组 奇数 对 所 占 黑 点 数 与 白 点 数 不 相 等 ,与 存在 挑 
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剔 数列 时 所 占 黑 点 数 与 白 点 数 相等 矛盾 。 

因而 , 当 modCn,4) 王 1.2 时 ,不 存在 挑剔 数列 。 

例如 , 当 n=5 或 6 时 ,有 3 组 奇数 对 (一 对 1, 一 对 3, 一 对 5)。 如 果 其 中 一 对 占 白 点 ， 
则 另 2 对 占 黑 点 ;如 果 其 中 2 对 占 白 点 , 则 另 一 对 占 黑 点 。 无 论 选 样 排 ,这 3 组 奇数 对 所 
占 黑 点 数 与 所 占 白 点 数 不 可 能 相等 ,因而 不 存在 挑剔 数列 。 

由 以 上 证 明 可 知 ,奇数 对 的 对 数 必 须 是 偶数 , 才 有 可 能 存在 挑剔 数列 解 。 

当 mod(n,4) 一 3,0 时 ,奇数 对 的 对 数 是 偶数 ,可 能 存在 挑剔 数列 。 此 时 仍 须 具体 构 
造 出 挑剔 数列 ,才能 予以 肯定 的 回答 。 

例如 , 当 n=7 或 n=8 时 ,奇数 对 的 对 数 是 4( 一 对 1, 一 对 3, 一 对 5 与 一 对 7) ,只 能 
说 可 能 存在 挑剔 数列 解 ,而 没有 证 明 此 时 必 存 在 挑剔 数列 解 。 

此 时 如 何 具体 构造 出 挑剔 数列 ? 共有 多 少 个 数列 的 首尾 分 别 为 指定 c,d(1 志 c=<d<<n) 
的 不 同 挑剔 数列 ?” 这些 , 靠 人 工 探求 就 显得 非常 困难 ,有 必要 借助 程序 设计 来 实现 。 

【编程 拓展 】 

对 于 指定 的 正 整数 n, 选择 参数 p=1 构建 满足 以 上 拍照 排队 要 求 的 挑剔 数列 (约定 
数列 左 端 编号 小 于 右 端 编号 ) ;如 果 须 对 挑剔 数列 的 首尾 项 定位 ,选择 参数 p= 二 2 并 确定 首 
为 c, 尾 为 dCc<d) 。 

通过 程序 设计 判别 、 构 建 并 统计 满足 要 求 的 挑剔 数列 是 可 行 的 。 

1. 程序 设计 要 点 

输入 指定 的 n 对 ,并 选择 参数 p。p 二 0, 数列 首尾 无 须 定 位 ;p= 二 1 时 ,数列 首尾 项 需 定 
位 : 分 别 输入 首 项 c 与 尾 项 d(1 志 ce 二 dn)。 

(1) 编号 设置 。 

注意 到 男 左 女 右 ,把 每 对 情侣 中 女 伴 编号 在 男 伴 编号 基础 上 加 n。 例 如 5 号 男 ,其 女 
伴 的 编号 为 n 十 5。 这 样 ,n 对 情侣 的 编号 恰好 是 1,2,… ,2n。 

座位 按 1,2,…,2n 编号 。 设 置 数组 a 表示 每 个 人 的 座 号 。 例 如 ,第 i 号 男子 坐 在 第 j 
号 , 则 a[ 让 =j, 他 的 情侣 应 该 坐 在 第 j 十 i 十 1 号 , 即 a[i 十 nj==j 十 i 十 1。 

设置 数组 b 表示 每 个 座位 上 所 坐 人 的 号 码 , 第 i 对 情侣 的 号 码 都 用 i。 例如, 前面 的 
坐 法 可 写 为 b[j]=b[j 十 i 十 1]=i。 

(2) 成 对 安排 设置 。 

安排 的 初始 值 : a[1]==1,aLn 十 1]=3, 即 b[1]=b[3j]=1。 

对 第 i 对 情侣 安排 , 男 如 果 安 排 在 第 j 位 , 即 a[ 让 =j(1 志 j 过 2n 一 i 一 1), 则 其 女 伴 需 安 
排 在 第 i 十 j 十 1 号 ,因而 作 赋值 b[j] 二 b[i 十 j 十 1] 二 i。 

这 样 成 对 安排 的 前 提 是 这 两 个 位 置 是 空 的 , 即 b[j]==b[i 十 j 十 1]==0, 则 安排 成 功 标记 
8 一 15 

(3) 实施 回溯 。 

如 果 对 所 有 的 j 第 i 对 情侣 安排 不 了 ,标记 t=0,i 一 一 ,回溯 到 其 前 面 一 对 调整 。 

如 果 第 i 对 情侣 安排 成 功 ,检测 i 二 n 且 bL1] 过 b[L2n]( 为 避免 重复 ), 则 输出 一 个 拍照 
排列 ,同时 t==0。 

设置 t=0 的 调整 回溯 循环 ,把 前 面 安排 不 成 功 位 置 清空 : b[a[ 让 ] 二 b[a[ 订 十 i 十 1] 二 0 
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(输出 一 个 解 后 也 需 把 最 后 位 置 清 空 ) ;然后 探索 从 j 位 开始 (Ca[i 订 十 1 科 j 科 2n 一 i 一 1) 进 行 
新 的 成 对 安排 。 

(4) 输出 结果 。 

输出 解 的 条 件 为 


i==n && (p==0 && b[1]<b[m] || (p>=1 &8 b[1]==c 8&8& b[m]==d)) 


Qi 二 =n 是 公共 的 , 即 回溯 到 最 后 第 n 对 已 排列 。 

@ p 王 二 0 && b[1] 二 bLm], 即 无 须 首尾 定位 ,只 要 保证 “ 左 端 小 于 右 端 "约定 即 可 。 

@ p=1 && b[1]==c && bLm]= 一 d, 首 尾 需 定位 时 ,要 确保 数列 首 项 与 尾 项 
分 别 为 指定 的 < 与 d。 

以 上 条 件 外 ,加 用 或 | | 运算 ,只 要 其 中 之 一 成 立 , 即 输出 挑剔 数列 解 。 

同时 , 当 n<10 时 , 因 单 个 数字 不 致 引起 混乱 , 按 紧凑 格式 输出 ,每 一 行 输出 两 个 解 。 

当 n>10 时 ,由 于 数列 项 有 单个 数字 也 有 两 位 整数 ,为 避免 混乱 ,每 一 数列 项 后 带 一 
空格 分 隔 , 且 每 一 行 只 输出 一 个 解 。 

注意 到 n>10 时 , 因 挑 剔 数列 的 解 太 多 ,不 搜索 全 部 数列 解 并 统计 解 的 个 数 ,约定 只 
输出 其 前 5 个 解 后 结束 。 


2. 回溯 程序 设计 


// 成 对 安排 回溯 探求 n 对 挑剔 数列 
# include < stdio. h> 
#define N 200 
voidmain0 
{ int c,d,ij,g,nm,p,t,a[200],b[200]; long s; 
printf(” 请 输入 对 数 n (2<n):"); scanf ("%d",&n); 
if(n%4==1 || n%4=2) 
{printf(” %d 对 无 解 1\n",n) ;return;} 
printf(” 请 选择 p, 首 尾 无 须 定 位 选 0; 首 尾 需 定位 选 1:"); 
scanf ("% d", &p) ; 
if(p>=1) 
{ printf(” 请 选择 排 首 与 排 尾 d(c<d):"); 
scanf("% d, %d", &c, &d) ; 


j]=a[j]=0; 
i=1;a[1]=1;a[ln+ 1]= 3;b[1]=b[3]=1; 
while(i>0) 
{ if(i==n&& (p==0 8&8 b[1]<b[m] || (p>=1 8&8 b[1]==¢ 8&8& b[m]==d))) 
{ printf(” %1d: ",++s); // 统 计 并 输出 挑剔 数列 的 一 个 解 


for (j=1;j<=m;j++) 
{ printf("%d",b[j]); 

if (n> 10) printf(" "); // 当 n> 10 时 每 数 后 空格 
有 
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if(n< 10 && s% 2==0 || n>10) printf ("\n"); 
if (n> 10 && s==5) return; // 当 D10 时 解 太 多 ,只 输出 5 个 解 
b[a[n]]=b[a[m]]=0; t=0; i--; 

} 

else if(t==1) 

{ i++;g=0; 
for (j=1;j<=m i-1;j++) 

0 && b[i+ j+ 1]==0) 

; a[n+ i]= j+ i+1; 
b[j]=b[i+ j+1]=i;g=1; break; 

} 


if(ge==0) {t=0; i--;} // 没 有 新 对 定位 则 回 漳 
} 
if (t==0) 
{ g=0; b[a[i]]=b[a[i]+i+1]=0; // 一 对 位 清空 
for (j=a[i]+1;j<=m i-1;j++) 
if(b[j]==0 && b[i+ j+ 1]==0) // 从 后 一 位 开始 搜索 新 的 定位 对 


{ a[i]=j; alnt i]= j+ i+1; 
b[j]=b[i+ j+1]=i; g=1; t=1; break; 
} 
if(e==0)i--; // 没 有 新 对 定位 则 回溯 


} 
if(s>0 8& p>=1) printf(” n=%d, 排 首 为 %d 且 排 尾 为 %d, 共 以 上 % 1d 个 解 。\n",n,c,d, s); 
else if(p==0) printf(” n=%d 时 共 以 上 %1d 个 解 。\n",n, s); 
else printf(” 无 解 。\n"); 
} 


3. 程序 运行 示例 与 变通 


请 输入 对 数 n (2<n):7 
请 选择 p, 首尾 无 须 定位 选 0; 首 尾 需 定位 选 1:0 
1: 17125623475364 。 2: 17126425374635 
25: 52642753461317 26: 34673245261715 
n=7 时 共 以 上 26 个 解 。 
请 输入 对 数 n (2<n):8 
请 选择 p, 首 尾 无 须 定位 选 0; 首 尾 需 定位 选 1:1 
请 选择 排 首 e 与 排 尾 dc<d:1,8 
1: 1316738524627548 2: 1317538642572468 
3: 1514678542362738 4: 1613758364257248 
5: 1517368534276248 6: 1713568347526428 
7: 1516738543627428 8: 1516478534623728 
n=8, 排 首 为 1 且 排 尾 为 8, 共 以 上 8 个 解 。 


以 上 输出 说 明了 是 否 首尾 定位 的 选择 。 
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当 n==7 且 无 须 定位 时 ,输出 并 统计 所 有 26 个 挑剔 数列 解 ; 
当 n= 二 8 且 需 定位 ( 首 为 1, 尾 为 8) 时 ,输出 并 统计 所 有 首 项 为 1, 尾 项 为 8 的 8 个 定位 
挑剔 数列 解 。 


请 输入 对 数 n (2<n):12 

请 选择 p, 首 尾 无 须 定 位 选 0; 首 尾 需 定 位 选 1:1 

请 选择 排 首 与 排 尾 de< d):1,12 
1:121321193104128574691151087612 
2:121321011384129754610811579612 
3:121321193104126784591161075812 
4:121321011384127964510811765912 
5:121328103119124578641059117612 


对 于 n= 二 12 的 输出 ,定位 并 只 输出 前 5 个 定位 挑剔 数列 解 。 

请 具体 验证 以 上 拍照 排列 是 否 满足 排队 位 置 要 求 。 

当 有 些 定 位 不 存在 相应 的 挑剔 数列 解 时 ,程序 给 出 “无 解 ” 提 示 。 

当 输 入 n=8,p=0, 以 紧凑 格式 输出 1712862357436854 等 共 150 个 挑剔 数列 ; 

当 输 入 n==11,p==0, 输 出 12182103961137845610947511 等 共 17792 个 
挑剔 数列 ， 

当 输 入 n= 二 12,p 二 0, 输 出 121321193104128574691151087612 等 共 
108144 个 挑剔 数列 。 

由 以 上 挑剔 数列 的 构建 ,统计 与 输出 ,可 以 从 一 个 侧面 看 出 程序 设计 功能 强大 而 非 
凡 。 这 些 单 任 人 工 的 聪明 推算 与 机 灵 调 试 是 难以 完成 的 ,这 也 说 明 在 趣味 数学 的 深化 与 
拓展 进程 中 ,程序 设计 不 可 或 缺 。 


240 


AAAAA 


最 优 探索 展示 


最 优 设计 、 最 优 操作 及 最 值 探求 等 通常 是 实际 案例 的 求解 目标 ,是 最 精彩 、 最 生动 .最 
具 挑 战 性 与 创新 精神 的 课题 。 

本 章 汇 聚 了 插入 运算 符号 之 最 、 积 最 大 的 整数 分 解 、. 条 件 最 值 与 无 理 函 数 的 最 值 . 迷 
宫 最 短 通道 .序列 子 段 与 数 阵子 形 之 最 等 最 优 探索 经 典 。 同 时 创新 剪 切 构建 最 大 容器 、 优 
化 水 网 设计 、 智 能 甲虫 安全 点 与 “铁人 三 项 ”等 几何 最 优 设计 。 重 点 拓展 泊 松 分 酒 、 杜 登 尼 
省 刻度 尺 等 形象 生动 的 优化 案例 。 这 些 优化 案例 ,有 数字 的 ,也 有 几何 的 ;有 序列 的 ,也 有 
数 阵 的 ;有 著名 的 国际 经 典 , 也 有 构思 独到 的 新 颖 案例 ,颇具 启发 性 与 示范 性 。 

让 我 们 一 道 前 行 , 在 最 优 探索 的 丛林 中 漫步 ,在 最 优 设 计 的 高 峰 上 攀登 。 


7.1 插 符 号 之 最 


在 指定 数字 串 中 插 和 人 若干 乘 号 求 积 的 最 大 值 , 是 一 个 颇具 吸引 力 的 最 优化 案例 。 
进一步 ,在 指定 数字 串 中 插入 若干 加 号 (其 他 数字 间 插 入 乘 号 ) , 求 其 综合 和 的 最 小 
值 , 设 计 难 度 更 大 些 。 


7.1.1 最 大 r 乘 积 


为 清楚 起 见 ,不 妨 先 从 一 些 简单 实例 谈 起 。 

【问题 1】 如 何在 各 位 数字 相同 的 单数 码 整数 中 插入 若干 乘 号 ,使 得 分 割 的 两 个 整 
数 的 积 最 大 ? 

【求解 】 插入 乘 号 使 所 分 各 个 整数 的 位 数 相差 不 超过 1。 

(1) 插入 一 个 乘 号 。 

因 整 数 中 各 位 数字 相同 ,插入 一 个 乘 号 的 位 置 在 数字 正中 或 靠近 中 间 , 即 插入 乘 号 所 
分 割 的 两 个 整数 的 位 数 相差 不 大 于 1, 其 积 的 值 最 大 。 

Wn ili Ri 
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(2) 插入 多 个 乘 号 。 

因 整 数 中 各 位 数字 相同 ,插入 多 个 乘 号 ,所 分 割 的 多 个 整数 的 位 数 相 差 最 少时 , 即 揪 
入 乘 号 所 分 割 的 多 个 整数 的 位 数 相 差 不 大 于 1 时 ,其 积 的 值 最 大 。 

例如 ,在 3333333 中 插入 2 个 乘 号 ,插入 方法 很 多 ， 
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33333X3X3<3333X33X3<333X33X33 
前 一 插入 法 ,分 割 的 3 个 整数 的 位 数 分 别 为 1 位 、1 位 与 5 位 ,位 数 相差 最 大 ;中 间 插 
和 人 法 ,分 割 的 3 个 整数 的 位 数 分 别 为 1 位 .2 位 与 4 位 ,位 数 相 差 比较 大 ;后 一 插入 法 ,分割 
的 3 个 整数 的 位 数 分 别 为 2 位 .2 位 与 3 位 ,3 个 整数 的 位 数 相差 不 大 于 1。 实 施 知 后 者 的 


积 大 。 
【问题 2】 如 何在 7 位 整数 3250729 中 插入 一 个 乘 号 ,使 得 分 割 的 两 个 整数 的 积 
最 大 ? 


【思考 】 插入 乘 号 使 得 后 一 个 整数 的 首位 数字 最 大 。 

选择 插入 乘 号 位 置 ,使 得 插入 后 的 后 一 个 整数 的 首位 数字 最 大 , 则 积 达 到 最 大 。 

第 一 个 整数 的 首位 数字 是 数字 3 ,这 是 不 容 改变 的 。 但 第 2 个 整数 的 首位 数字 可 以 
随 插入 乘 号 的 位 置 而 改变 。 

乘 号 如 果 插 入 在 数字 2 与 5 之 间 ,第 2 个 整数 的 首位 数字 是 5; 

乘 号 如 果 插 入 在 数字 0 与 7 之 间 ,第 2 个 整数 的 首位 数字 是 7， 

乘 号 如 果 插 入 在 数字 2 与 9 之 间 ,第 2 个 整数 的 首位 数字 是 9。 

第 2 个 整数 的 首位 数字 最 大 为 9, 所 得 积 最 大 。 因 而 使 积 最 大 的 插入 方式 为 

325072 X 9 = 2925648 

为 什么 断言 最 大 ? 

当 且 仅 当 第 2 个 整数 的 首位 数字 分 别 为 5,7 与 9 时, 积 可 达 7 位 数 。 

第 一 个 整数 的 首位 数字 是 3, 第 2 个 整数 的 首位 数字 为 5 时 ,其 积 的 首位 数字 只 能 为 
1; 第 2 个 整数 的 首位 数字 为 7 时 ,其 积 的 首位 数字 可 为 2. 但 其 积 的 高 2 位 不 超过 25, 显 
然 低 于 高 2 位 为 29 的 积 。 

【问题 3】 如 何在 8 位 整数 24727158 中 插入 r=2 个 乘 号 ,使 积 最 大 ? 

【思考 】 应 用 贪心 策略 : 每 插入 一 个 乘 号 ,使 得 插入 后 的 积 达到 最 大 。 

首先 对 整数 的 组 成 数字 实施 降序 排序 8 过 7 一 7 二 5 二 … 

首先 ,在 数字 8 前 插入 一 个 乘 号 ,使 8 成 为 一 个 分 割 整数 的 高 位 数字 (包括 一 个 整数 
情形 ) ;其 次 , 需 在 数字 7 前 插入 一 个 乘 号 ,但 整数 中 有 2 个 7, 如何 选择 ? 可 对 这 两 种 情形 
实施 比较 : 

24 X 72715 X 8 = 13961280 

2472 X 715 X 8 = 14139840 
比较 得 知 后 者 乘积 大 ,因而 在 24727158 中 插入 2 个 乘 号 ,使 分 割 的 3 个 整数 的 乘积 最 大 
的 插入 法 为 2472X715X8 一 14139840。 

【问题 4】 如 何在 给 定 的 数 串 267315682902764 中 插入 5 个 乘 号 ,使 得 分 割 的 6 个 整 
数 的 乘积 最 大 ? 

【求解 】 对 组 成 整数 的 15 个 数字 从 大 到 小 排序 : 9 之 8>>7 一 7 二 6 一 6 一 6( 以 下 可 
省 略 ) 。 

在 数 串 中 的 数字 9,8.7,7 前 插入 乘 号 后 ,还 有 一 个 乘 号 要 插入 在 6 前 ,存在 3 种 选 
择 , 可 通过 实施 乘积 比较 。 

2X6X73156 X82X902X764 一 49607226400512 
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26X7315X6X82X902X764 王 64484105125440 
26 X 73156 X 82X902X7X64 王 63026284152832 


因而 ,给 定 的 数 串 267315682902764 中 插入 5 个 乘 号 ,使 得 分 割 的 6 个 整数 的 乘积 最 大 的 


分 割 为 26X7315X6X82X902X764 二 64484105125440。 
【编程 拓展 】 


在 一 个 由 n 个 数字 组 成 的 数字 串 中 插入 r 个 乘 号 (1 二 r<n<15) ,将 它 分 成 tr 十 1 个 整 


数 , 试 找 一 种 乘 号 的 插 人 方法 ,使 得 这 r 十 1 个 整数 的 乘积 最 大 。 
注意 到 插入 个 乘 号 是 一 个 多 阶段 决策 问题 ,应 用 动态 规划 来 求解 是 适宜 的 。 


1. 设计 要 点 


设置 字符 串 s 数组 方便 输入 数字 串 ;b 数组 b(k) (k= 二 0,1,…,n 一 1) 存 储 字符 串 s 的 


每 一 个 数字 。 
(1) 建立 递 推 关系 。 


设 f(i,k) 表 示 在 前 i 位 数 中 插入 个 乘 号 所 得 乘积 的 最 大 值 ,a(i,j) 表 示 从 第 i 


字 到 第 j 个 数字 所 组 成 的 j 一 i 十 1G<<j) 位 整数 值 。 


要 数 


为 了 寻求 递 推 关系 , 先 看 一 个 实例 : 对 给 定 的 9 个 数字 的 数 串 847313926 ,如 何 插入 5 


个 乘 号 ,使 其 乘积 最 大 ? 
我 们 的 目标 是 求 取 最 优 值 f(9,5)。 
设 前 8 个 数字 中 已 插入 4 个 乘 号 , 则 最 大 乘积 为 f(8,4) X6; 
设 前 7 个 数字 中 已 插入 4 个 乘 号 , 则 最 大 乘积 为 f(7,4) X26; 
设 前 6 个 数字 中 已 插入 4 个 乘 号 , 则 最 大 乘积 为 {(6,4) X926; 
设 前 5 个 数字 中 已 插入 4 个 乘 号 , 则 最 大 乘积 为 {(5,4) X3926。 
比较 以 上 4 个 数值 的 最 大 值 即 为 {(9,5)。 
以 此 类 推 ,为 了 求 fC8,4) : 
设 前 7 个 数字 中 已 插入 3 个 乘 号 , 则 最 大 乘积 为 {(7,3) X2; 
设 前 6 个 数字 中 已 插入 3 个 乘 号 , 则 最 大 乘积 为 {(6,3) X92; 
设 前 5 个 数字 中 已 插入 3 个 乘 号 , 则 最 大 乘积 为 {(5,3) X 392; 
设 前 4 个 数字 中 已 插入 3 个 乘 号 , 则 最 大 乘积 为 {(4,3)X1392。 
比较 以 上 4 个 数值 的 最 大 值 即 为 {(8,4)。 


一 般 地 ,为 了 求 取 f(i,k) ,考察 数字 串 的 前 i 个 数字 , 设 前 j(k 志 过 让 个 数字 中 已 插入 
k 一 1 个 乘 号 的 基础 上 ,在 第 j 个 数字 后 插 和 人 第 k 个 乘 号 ,显然 此 时 的 最 大 乘积 为 f(j,k 一 


Ta 二。 
于 是 可 以 得 递 推 关系 式 
f(i'k) = max(fG,k 一 1D)aj+1.D) (kk<i<d) 


前 j 个 数字 没有 插入 乘 号 时 的 值 显然 为 前 j 个 数字 组 成 的 整数 ,因而 得 边界 值 为 


{0,0) =a(l,) (<ij<i) 
(2) 递 推 计算 最 优 值 。 
为 简单 计 ,在 设计 中 可 省 略 a 数组 ,用 变量 d 蔡 代 。 
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for (d=0, j=1;j<=n;j++) 

{d=d* 10+b[j-1]; f[j][0]=d; } 
for (k= 1;k<=r;k++) 
for (i=k+1;i<=n;i++) 
for (j=k;j< i;j++) 

{ for(d=0,u= jt+1;u<=i;ut+) 

d=dx* 10+b[u- 1]; // 计 算 d 即 为 a(j+1,i) 
if (fF[i][kI< FICk-1]*d) fCi]Ck]=f[j][k-1]*d; 

} 

printf(" 最 优 值 为 %.0f",f[n] [r]); 


(3) 构造 最 优 解 。 

为 了 能 打印 相应 的 插入 乘 号 的 乘积 式 , 设 置 标注 位 置 的 数组 t(k) 与 c(i,k) ,其 中 c(i， 
k) 为 相应 的 fGi,k) 的 第 k 个 乘 号 的 位 置 ,而 t(k) 标 明 第 k 个 乘 号 的 位 置 , 例 如 ,t(2) 一 3， 
表明 第 2 个 乘 号 在 第 3 个 数字 后 面 。 

当 给 数组 元 素 赋值 f(i,k)=f(j,k 一 1) * d 时 , 作 相 应 赋值 c(i,k)==j, 表 明 f(i,k) 的 第 
k 个 乘 号 的 位 置 是 j。 在 求 得 fn,r) 的 第 r 个 乘 号 位 置 t(r) 一 cCn'r) 一 j 的 基础 上 ,其 他 
t(k)(1 委 k 委 r 一 1) 可 应 用 t(k) 王 c(t(k 十 1) ,k) 逆 推 产 生 。 

根据 t 数组 的 值 ,可 直接 按 字符 形式 打印 出 所 求 得 的 插入 乘 号 的 乘积 式 。 


2. 动态 规划 程序 设计 


// 探 求 最 大 r 乘积 
# include < stdio. h> 
# include < str ing. h> 
voidmain0 
{ char s[16]; double f[17][17],d; 
int n, i, j,k,u, r,b[16], t[16], c[16] [16]; 
printf(” 请 输入 整数 :"); gets(s) ; 
n= str len(s); 
printf(” 请 输入 插入 的 乘 号 个 数 r:"); scanf ("%d", &r); 
if(n<=m) 
{printf(” 输入 的 整数 位 数 不 够 或 r 太 大 ! ") ;returni] 
printf(” 在 整数 %s 中 插入 %d 个 乘 号 ,使 乘积 最 大 :\n “",s,7); 
for (d=0, j=0;j<=n-1;j++) 


b[j]= s[j]- 48; // 把 输入 的 数 串 逐 位 转换 到 b 数组 
for (d=0, j=1;j<=n-r;j++) 
{d=dx 10+b[j-1]; f[j][0]=d; } //f[j] [0] 赋 初始 值 


for (k=1;k<=r;kt++) 
for (i=k+1;i<=n- rtk;it++) 
for (j=k;j<i;jt+) 
{ for(d=0,u=j+1;u<=i;ut+) 
dx 10+b[u-1]; 
if (FLi] [KICFLI I 1] * d) // 递 推 求 取 f[i][k] 
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{Ff[i] [kJ]= fF[j] [k- 1] * d;e[i] [kJ= j;} 
} 
t[r]=c[n] [r]; 
for (k=r-1;k>=1;k-—) 
t[k]= ef[t[k+ 1]] Ck]; // 道 推出 第 k 个 乘 号 的 位 置 t[k] 
t[0]=0;t[r+ 1]=n; 
for (k=1;k<=r+1;k++) 
{ for(u=t[k- 1]+1;u<=t[k];ut+) 
printf ("% ec", s[u- 1]); // 输 出 最 优 解 
if(k< r+1) printf ("Xx"); 
} 
printf ("=%. Of\n ",f[n][r]); // 输 出 最 优 值 
} 


3. 程序 运行 示例 与 说 明 


请 输入 整数 :632701784659264 

请 输入 插入 的 乘 号 个 数 r:5 

在 整数 632701784659264 中 插入 5 个 乘 号 ,使 乘积 最 大 : 
632X 701X7X 84X 65X 9264= 156864375682560 


以 上 运行 结果 中 分 割 的 6 个 整数 有 1 位 数 .2 位 数 ,3 位 数 ,也 有 4 位 数 ,与 前 面 实施 
贪心 策略 选择 的 结果 相符 。 


7.1.2 最 小 r 加 综合 和 


在 给 定 n 个 非 零 数字 组 成 的 数字 串 中 ,数字 间 有 n 一 1 个 位 置 可 以 插入 运算 符号 。 请 
在 这 n 一 1 个 位 置 中 选择 r 个 插入 加 号 ,其 他 n 一 1 一 r 个 位 置 插入 乘 号 ,使 得 表达 式 的 值 
最 小 。 

例如 ,在 7924891278 这 10 个 数字 间 插 入 4 个 加 号 ,其 他 数字 间 插 入 乘 号 ,使 表 
达 式 的 综合 和 值 最 小 的 插入 方式 为 

7 十 9X2 十 4X8 十 9X1X2 十 7X8 二 131( 最 小 值 ) 

键盘 输入 正 整数 n,r(3 三 n 二 40,r 二 n 一 1) ,随机 产生 n 个 非 零 数 字 ,在 这 n 个 数字 
之 间 选 择 插入 rt 个 加 号 ,其 他 n 一 1 一 r 个 位 置 插 入 乘 号 ,使 得 插入 符号 后 的 表达 式 值 
最 小 。 

1. 设计 要 点 

在 n 个 数字 之 间 插 入 r 个 加 号 ,其 余 n 一 1 一 r 个 位 置 插入 乘 号 , 共 插 入 n 一 1 个 符号 。 

根据 先 乘 后 加 的 规则 ,为 叙述 方便 ,把 相 邻 两 个 加 号 之 间 称 为 一 段 ,连同 头 、 尾 两 段 ， 
整个 表达 式 共 r 十 1 段 。 

应 用 回溯 设计 确定 r 个 加 号 的 组 合 位 置 。 

(1) 数据 结构 设置 。 

数组 a(k)(k 二 1,…,n) 存 储 产生 的 n 个 数字 ,其 中 a(n) 是 左边 第 1 个 数字 ; 
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数组 t(k) (k 王 1,…,r) 存 储 插入 加 号 的 组 合 位 置 ; 

数组 p(k)(k 二 1,…,r 十 1) 存 储 被 插入 加 号 分 割 的 r 十 1 个 整数 ; 

数组 b(k)(k 王 1,…,r) 存 储 表 达 式 最 小 时 的 个 加 号 位 置 。 

(2) 回溯 探求 插入 加 号 位 置 。 

为 计算 方便 ,约定 t(0)=1;t(r 十 1)==n。 

设置 计算 r 十 1 个 整数 p(k) 的 k(1 一 fr 十) 循环 ;注意 到 p(k) 由 t(k 一 1) 十 1 至 t(k) 的 
各 数字 之 积 , 设 置 j(t(k 一 1) 十 1 一 t(k)) 循 环 ,p(k) 二 p(k)a(j)。 

(3) 计算 乘积 并 求 和 的 最 大 值 。 

在 k(1 一 r 二 1) 循环 中 ,通过 s 二 s 十 p(k) 求 取 r 十 1 段 整数 之 和 。 

通过 s 与 存储 最 小 值 的 变量 min 比较 , 若 s 二 min, 则 作 赋 值 min= 王 s, 同 时 把 此 时 的 
个 位 置 t(k) 记 录 于 b(k) (k=0,1,2,…,r 十 1)。 

(4) 输出 结果 。 

按 b 数 组 由 b(r 十 1) 至 b(1) 输 出 ,每 输出 一 个 段 p(k) (k= 二 =r,…,1) 前 打印 一 个 十 号 ， 
而 段 中 各 数字 之 间 打 印 X。 最 后 输出 表达 式 最 小 值 min。 


2. 程序 设计 


// 回 漳 探 求 最 小 加 综合 和 
# include < stdio.h> 
# include < stdlib. h> 
# include < time. h> 
voidmain0 
{ double s,min,p[40]; int i, j,k,m,n,r,a[40],b[40],t[40]; 
MF time (0)% 1000; srand (m) ; // 随 机 数 发 生 器 初始 化 
printf(” 请 输入 位 数 n(3C=m 40) :"); scanf ("%d",&n); 
printf(" 请 确定 r 个 加 号 (r<n-1):"); scanf("%d",&r); 
for (k=n;k>=1;k-—) // 随 机 产生 并 输出 n 个 数字 
{a[k]=rand0%9+1; printf(” %d",af[k]);} 
printf("\n 在 以 上 %d 个 数字 间 插 入 %d 个 +,",n,r); 
printf(" 其 他 数字 间 为 X, 其 值 最 小 的 插入 方式 为 :\n "); 
min= 10000; i=1;t[1]=1;t[0]=0;t[r+ 1]=n; 
while(1) 
{ if(i==r) 
{ s=0; 
for (k=1;k<=r+1;k++) p[k]=1; 
for (k=1;k<=r+1;k++) 
{ for(j=t[k-1]+1;j<=t[k];j++) 


p[k] *=a[j]; // 计 算 第 k 段 各 数字 之 积 
s= st p[k]; /计算 各 段 数值 之 和 
} 
if (s<min) // 比 较 得 最 小 值 min 
{ min=s; 


for (k=0;k<=r+1;k++) 
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b[k]=t[k] ; //b 数组 记录 最 小 时 插入 加 号 位 置 
} 
else { i++; t[i]=t[i- 1]+1; continue;} // 产 生 一 组 r 个 分 割 位 置 
while(t[i]==n-r+i-1) i--; // 调 整 或 回溯 
if(i>0) t[i]++; 
else break; 
} 
printf("\n %d",a[n]); // 输 出 最 高 段 的 积 式 


for (j=b[r+ 1]-1;j>=b[r]+1;j--) 
printf ("X%d",a[j]); 
for (k=r;k> =1;k-—) // 输 出 随后 段 的 积 式 
{ printf("+%d",a[b[k]]); // 段 与 段 之 间 输 出 + 
for (j=b[k]-1;j>=b[k- 1]+1;j--) 
printf("X%d",a[j]); 
printf("=%.of (最 小 值 )\n",min) ; // 输 出 所 求 的 最 小 值 
| 


3. 程序 运行 示例 与 说 明 


请 输入 位 数 n(3<=n< 40) :20 
请 确定 r 个 加 号 (r<n-1):6 
76971962464646137168 
在 以 上 20 个 数字 间 插 入 6 个 +, 其 他 数字 间 为 X, 其 值 最 小 的 插入 方式 为 : 
7X6+9X7X1+9X6+2X4X6+4X6X4 村 6X1X3X7X1+6X8=477( 最 小 值 ) 


以 上 所 得 最 小 值 477 是 唯一 的 ,但 20 个 数字 之 间 插 入 6 个 加 号 13 个 乘 号 的 方式 可 
能 存在 多 种 ,这 里 显示 的 仅 是 其 中 插入 方式 之 一 。 

以 上 产生 的 mn 个 数字 都 不 为 零 ,如 果 数 字 中 出 现 零 ( 例 如 把 表达 式 rand()%9 十 1 改 
为 rand()%10), 则 通常 式 中 所 有 乘 号 会 出 现在 有 零 的 段 中 ,有 损 一 般 性 。 有 兴趣 的 读者 
可 修改 程序 并 运行 验证 。 


7.2 最 值 探求 


最 值 探 求 是 最 优 探索 中 的 基本 问题 ,案例 形式 多 变 ,内 容 涉 及 数学 的 各 个 分 支 ,以 及 
程序 设计 应 用 的 各 个 领域 。 

本 节 探 讨 对 给 定 整数 实施 分 解 求 积 最 大 ,探求 条 件 最 值 以 及 一 类 有 代表 性 的 无 理 函 
数 的 最 值 ,技巧 性 较 强 ,很 有 启发 性 。 
7.2.1 整数 分 解 中 积 的 最 值 


先 求解 一 道 整数 分 解 求 积 最 大 的 国际 数学 奥林匹克 题 。 
【问题 1】 求 和 为 1976 的 正 整 数 之 积 的 最 大 值 (第 18 届 国 际 数学 奥林匹克 题 ) 。 
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【求解 】 和 为 1976 的 若干 正 整数 相当 于 把 1976 分 解 为 若干 整数 ,分 解 整数 个 数 不 
限 , 且 各 分 解数 允许 相等 。 
事实 上 ,为 使 积 最 大 ,分 解数 须 满足 以 下 条 件 。 
(1) 分 解数 中 不 应 有 大 于 3 的 数 。 
车 分 解数 中 有 数 d 宇 4, 则 把 d 分 解 为 2 与 d 一 2, 和 为 2 十 (d 一 2) 一 d 未 改变 ,但 乘积 
为 2(d 一 2) 二 2d 一 4 三 d, 式 中 等 号 当 且 仅 当 d= 二 4 时 成 立 。 
即 当 d=4 时 ,把 4 分解 为 2,2, 积 不 变 ; 当 d 二 4 时 ,把 d 分解 为 2,d 一 2, 积 增加 。 
(2) 分 解数 中 不 应 有 数 1。 
车 分 解数 中 有 数 1, 则 把 1 与 3 转换 为 两 个 2, 和 为 1 十 3 二 2 十 2 未 改变 ,由 2X2 二 3 
知 乘积 增加 。 
(3) 分 解数 中 的 数 2 不 多 于 两 个 。 
若 分 解 的 数 中 有 3 个 2 时 ,把 3 个 2 换 成 2 个 3, 显 然 和 未 变 , 由 3X3 二 2X2X2, 显 然 
积 增 大 。 
由 上 述 3 点 , 据 
1976 = 658X3 十 2 (1) 
即 把 1976 分 解 为 658 个 3 与 一 个 2, 其 积 P=2X3% 最 大 。 这 是 实现 积 最 大 的 唯一 分 解法 。 
题 中 没有 限定 正 整 数 的 个 数 , 如 果 加 上 限定 分 解 正 整数 个 数 的 条 件 , 则 探求 积 的 最 大 
也 应 相应 改变 。 
【问题 2】 求 和 为 2019 的 1000 个 正 整数 之 积 的 最 大 值 。 
【思考 】 为 叙述 方便 ,把 待 分 解 的 整数 称 为 和 数 , 分 解 所 得 的 各 整数 称 为 零 数 。 
问题 可 转换 为 把 给 定 和 数 2019 分 解 为 1000 个 零 数 ,如 何 实施 分 解 ,可 使 这 1000 个 
零 数 之 积 最 大 。 
联想 到 应 用 “算术 平均 不 小 于 几何 平均 ”的 基本 不 等 式 : 
Da fs 
一 >> Js (ai > 0) (2) 
当 且 仅 当 a 一 a 一 … 一 an 时 式 中 等 号 成 立 。 
若 所 给 和 数 能 被 分 解 的 个 数 整除 时 ,应 用 式 (2) 是 可 行 的 。 
若 所 给 和 数 不 能 被 分 解 的 个 数 整除 ,不 可 直接 应 用 式 (2) 。 
因 2019 不 能 被 1000 整除 ,分 解 的 1000 个 零 数 应 在 其 平均 数 附近 。 鉴 于 2 二 2019/ 
1000 过 3, 即 分 解 的 零 数 应 取 2 或 3。 
为 使 分 解 零 数 积 最 大 ,分 解 须 满足 以 下 条 件 。 
(1) 分 解数 中 不 应 有 大 于 3 的 零 数 。 
若 分 解数 中 有 数 d 二 4, 则 把 d 与 2 转换 为 4 一 1 与 3, 整 数 个 数 未 变 , 和 为 3 十 (d 一 1) 一 
2 十 d 也 未 变 , 但 乘积 为 3(d 一 1)=3d 一 3 之 2d, 可 见 ,转换 后 积 增加 。 若 d 一 1 仍 大 于 3 ,再 
多 次 实施 转换 。 
(2) 分 解数 中 不 应 有 零 数 1 。 
若 分 解数 中 有 数 1, 则 把 1 与 3 转换 为 2 与 2, 整 数 个 数 未 变 , 和 为 4 也 未 变 , 由 乘积 
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不 等 式 2X2 二 3, 可 见 转换 后 积 增加 。 

由 上 述 两 点 ,可 知 要 使 乘积 最 大 ,分 解 零 数 只 能 是 2 与 3 ,而 

2019 = 981X2 十 19X3 (3) 

即 把 2019 分 解 为 981 个 2 与 19 个 3, 可 使 积 P=2”X3” 最 大 。 这 是 实现 积 最 大 的 唯一 
分 解法 。 

顺便 指出 , 若 要 使 1000 个 分 解 零 数 之 积 最 小 ,分 解 为 999 个 1, 另 一 个 为 1020。 

下 面 把 这 一 趣 题 拓展 到 一 般 和 数 n 与 一 般 个 数 m, 或 给 分 解 零 数 以 某 些 限 制 。 

【编程 拓展 】 探求 以 下 涉及 整数 两 个 特定 要 求 分 解 中 积 的 最 大 值 。 

(1) 求 和 为 n 的 mCn>m) 个 正 整 数 之 积 的 最 大 值 。 

(2) 求 和 为 n 的 若干 互 不 相同 的 正 整数 之 积 的 最 大 值 。 

这 里 拓展 两 个 问题 : 前 者 对 一 般 和 数 n 分 解 限定 了 零 数 个 数 m 个 ;后 者 零 数 个 数 不 
限 ,但 增加 了 各 零 数 互 不 相等 的 限制 。 

1. 设计 要 点 

(1) 把 n 分 解 为 指定 m 个 零 数 。 

题目 要 求 分 解 堆 数 的 个 数 为 指定 的 m 个 , 即 m 个 零 数 之 和 为 n。 目 标 是 使 所 有 零 数 
之 积 达 最 大 。 

@ 分 解 的 零 数 大 小 至 多 为 两 个 。 

设 最 小 零 数 为 c, 最 大 零 数 为 4。 要 使 积 最 大 ,分 解 的 零 数 大 小 至 多 为 两 个 , 即 d=c 十 1 
或 d=c。 

假若 有 3 个 或 3 个 以 上 大 小 不 同 的 零 数 ,不 妨 设 为 ec 二 e 二 d,e=c 十 1,d 二 e 十 1, 把 零 
数 c,d 转换 为 两 个 e, 整 数 个 数 与 和 均 未 变 , 但 由 cd=(e 一 1)(e 十 1) 一 坚 一 1 一 e: , 即 通过 
转换 乘积 增加 了 。 对 于 3 个 或 3 个 以 上 大 小 不 同 零 数 的 其 他 情形 ,可 通过 类 似 以 上 转换 
多 次 使 积 变 大 。 

@ 零 数 大 小 确定 。 

小 零 数 c= 二 [n/mj( 这 时 [xj 为 x 取 整 ) ,大 零 数 d=c 十 1。 

大 零 数 d 的 个 数 为 b=n 一 cm, 相当 于 在 m 个 为 c 的 基础 上 ,把 多 余部 分 n 一 cm 分 到 
了 其 中 b 个 ,每 一 个 增加 1,c 十 1 即 为 d。 

显然 d 的 个 数 为 b=n 一 cm 而 小 零 数 c 的 个 数 a 二 m 一 b。 

特别 地 , 若 n%m=0 时 , 因 nn 二 cm 导致 b= 二 0, 此 时 零 数 大 小 统一 为 c。 

(2) 把 n 分 解 为 互 不 相同 的 正 整数 。 

进行 一 般 化 处 理 ,把 指定 正 整 数 n 分 解 为 若干 互 不 相同 的 正 整 数 之 和 ,使 这 些 互 不 相 
同 的 正 整 数 之 积 最 大 。 

同样 设 使 积 最 大 的 分 解 中 ,最 小 零 数 为 c, 最 大 零 数 为 d。 

@ 最 小 零 数 c>>1。 若 c 王 1, 去 掉 零 数 1, 把 1 加 至 最 大 零 数 , 显 然 积 会 增 大 。 

@ 零 数 按 由 小 到 大 排列 ,从 < 到 d 的 零 数 序列 中 ,中 间 的 空 数 (不 在 零 数 序列 中 的 数 ) 
不 能 多 于 一 个 。 

设 序列 中 有 两 个 空 数 x,y, 满 足 a(D<x<y<aGj) ,其 中 a(i) ,a(j) 为 零 数 序列 中 的 项 
(i<j) ,x 二 =a) 十 1,y= 二 a(j) 一 1。 因 a 十 aQj)= 二 x 十 y; 而 
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a() > a(D 十 1=>xX7y 一 (ai 十 ID x(a — D> ad XaQ) 


即 把 a(i) ,aG) 两 个 零 数 分 别 换 成 x,y 后 ,和 不 变 而 积 增加 ,与 所 设 积 最 大 矛盾 。 


@ 最 小 零 数 c<4, 即 < 只 能 取 2,3。 
车 c 二 4, 此 时 车 5 在 序列 中 ,把 5 化 为 2 十 3, 积 增加 ;车 5 不 在 序列 中 而 6 在 序列 中 ， 


把 4,6 化 为 2,3,5, 显 然 和 不 变 而 积 增加 ; 若 5,6 都 不 在 序列 中 , 则 与 上 述 @ 矛 盾 。 


车 c>4, 把 c 化 为 2 与 c 一 2, 显 然 2(c 一 2) 之 c, 积 增加 。 
因此 ,把 指定 的 n 转化 为 以 2 或 3 开始 的 连续 或 至 多 一 个 空 数 的 正 整 数 序列 ,相应 的 


积 达 最 大 。 
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可 以 应 用 求 和 判断 实现 以 上 转化 。 
2. 整数 分 解 综合 程序 设计 


// 积 最 大 的 整数 两 种 分 解 程序 设计 

# include < stdio. h> 

voidmain0 

{ inta,b,c,d,h,k,m,n,p, s,z; double t; 
printf( ” 请 选择 项 目 1, 把 n 分解 为 m 个 ;2, 分 解 零 数 互 不 相等 : "); 
scanf ("% d", &p) ; 
printf( "” 请 输入 和 数 n:") ;scanf("%d",&n) ; 


if(p==1) 

{ printf("” 请 输入 分 解 零 数 个 数 mm :") ;scanf ("%d", &m) ; 
c=n/m;d= c+ 1; // 计 算 分 解 零 数 c,d 
b=n-cxm;a=m-b; // 计 算 d 的 个 数 b,c 的 个 数 a 


printf( ” 把 %d 分 解 为 %d 个 %d,%d 个 %d,",n,a,c,b, qd); 
for (t=1,k=1;k<=a;kt+) t=tx ci 


for (k=1;k<=b;kt+) t=tx di // 计 算 分 解 零 数 的 乘积 
} 
else 
{ s=0;h=0;a=1; 
while(s<n) {at+ ;s= sta;} // 此 时 s-n 可 能 为 1,2,...， a 
z=s-n; 
if (z==0) {c=2;d=a;} //n 分 解 为 2 至 a-1 的 连续 序列 


else if(z==2) {c= /人 n 分 解 为 3 至 a 的 连续 序列 

else if(z==1) {c=3; //n 分 解 为 3 至 a+1( 不 含 a) 

else {c=2;d=a;h=z;} /n 分 解 为 2 至 a( 不 含 s-n) 

printf(" 把 %d 分 解 为 : %d™ %d,",n, c,d); 

if(h>0) printf(" (不 包括 其 中 的 数 %d ).",h); 

for tt=1,k=cikKK=d;kr+) //c 至 d 求 积 (不 含 h) 
if(k!=h) t=t x k; 


| 
if (tK 1e15) printf(" 积 最 大 为 t=%.0Of。\n",t); 
else printf( " 积 最 大 为 t=%.6e。\n",t); // 输 出 最 大 积 的 值 


第 7 齐 最 估 笃 过 庆幸 | 


3. 程序 运行 示例 与 说 明 


请 选择 项 目 1, 把 n 分 解 为 m 个 ;2, 分 解 零 数 互 不 相等 : 1 

请 输入 和 数 n: 50 

请 输入 分 解 零 数 个 数 m(m<n) :14 

把 50 分 解 为 6 个 3,8 个 4, 积 最 大 为 t 47775744。 

请 选择 项 目 1, 把 n 分 解 为 m 个 ;2, 分 解 零 数 互 不 相等 : 2 

请 输入 和 数 n: 2019 

把 2019 分 解 为 : 2” 64, (不 包括 其 中 的 数 60 ). 积 最 大 为 t=2.114782e+ 087。 


对 于 项 目 1, 如 果 输 入 n= 二 50,m 二 10, 结 果 为 把 50 分 解 为 10 个 5, 积 t=5" 为 最 大 。 
通过 项 目 选 择 把 两 个 不 同 要 求 分 开 探求 ,最 后 统一 输出 结果 。 
在 输出 结果 中 ,根据 乘积 t 的 大 小 分 精确 形式 或 指数 形式 输出 。 


7.2.2 条 件 最 值 探求 


先 求解 一 道 涉及 x,y 的 简单 条 件 最 值 问题 ,然后 加 项 加 权 拓 展 。 
【问题 3】 若 x 十 y 一 5, 试 求 函 数 :二 x 一 3y 的 最 大 值 与 最 小 值 。 
【求解 】 问题 的 条 件 是 二 次 式 ,而 函数 式 是 一 次 的 ,可 通过 消 元 后 应 用 二 次 函数 的 判 
别 式 非 负 进行 探求 。 
由 z 一 x 一 3y 得 (z 十 3y)2 一 xz 
代入 条 件 式 ,展开 得 好 十 6zy 十 9 史 十 到 一 
整理 为 关于 y 的 2 次 式 ,有 
1l0y: 二 6zy 十 2 一 5 二 0 (4) 
上 述 关于 y 的 二 次 式 (4) 有 人 解 ,其 判别 式 非 负 , 即 
(6z)* —40(z2:—5) 宇 0 
整理 得 z2<50 
解 得 一 5V2 委 zs 5V2 
代入 可 得 当 x 一 一 闻 ,y 一 党 时 ,一 5V5<z 等 号 成 立 , 即 得 z 有 最 小 值 一 5V2。 


当 x 一 站 ,y= 一 3 时 ,x<5 VE 等 号 成 立 , 即 得 z 有 最 大 值 5V5。 


【编程 拓展 】 在 原 问题 基础 上 增加 xy 项 ,并 增加 参数 p,q。 
若 x 十 py 二 5, 试 求 函 数 


2 一 X 十 qxy 一 3y (5) 
的 最 大 值 与 最 小 值 ( 精 确 到 小 数 点 后 7 位 )。 
其 中 正 权 系数 p,q 从 键盘 输入 。 


1. 编程 设计 要 点 

在 原 条 件 最 值 问 题 基 础 上 ,增加 xy 项 ,增添 p,q 两 个 参数 ,显然 增加 了 求解 难度 ,应 
用 编程 求解 是 适合 的 。 

在 定义 域 范围 内 设置 xy 二 重 循环 .在 满足 条 件 式 前 提 下 通过 比较 求 最 值 当然 可 行 ， 
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但 不 必要 。 
因为 有 条 件 要 求 ,所 有 x,y 必须 满足 指定 条 件 , 因 而 可 只 对 一 个 变量 循环 枚 举 , 另 一 
变量 由 条 件 式 决定 。 


注意 : 因 条件 式 是 二 次 的 ,所 以 由 x 与 条 件 式 产生 的 y 有 正 负 两 个 。 如 果 遗 漏 一 个 ， 
将 导致 所 求 最 值 出 错 。 

为 了 达到 指定 的 精度 要 求 , 提 高 循环 效益 ,设置 kC1 一 7) 循 环 实施 分 级 求 精 。 

(1) 循环 参数 x1 ,x3 取 初 值 xl 王 一 sqrt(5) 十 d;x3 一 sqrt(5) 一 dj;d 一 0.01。 

(2) 随后 每 一 级 x 的 循环 的 循环 起 点 xl 与 终点 x3 定位 在 上 一 级 的 最 小 值 点 x2 附 
近 , 即 xl 一 x2 一 d,x3 一 x2 十 d。 

(3) 每 一 级 的 循环 步 长 d 缩减 为 前 一 级 的 1/10, 即 d=d/10。 


这 


样 处 理 , 可 有 效 缩减 循环 次 数 ,确保 精度 要 求 。 


考虑 到 最 大 值 和 最 小 值 在 不 同 的 点 ,因而 对 最 大 值 与 最 小 值 必须 分 别 求 精 。 


入 


程序 设计 


// 探 求 带 参数 的 条 件 函 数 最 值 
# include < math. h> 
# include < stdio.h> 


voidmain0 


{ 
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int k;double d, p, q, x, x1, x2, x3, y, y2, z, max, min; 
printf(” 请 输入 正 参 数 p,q:"); scanf("% 1f,% 1f", &p, &q) ; 


max= 0; min= 0;d= 0. 01; // 第 1 级 求 精 步 长 初 定 0.01 
x3= pow (5. 0, 0. 5) ; x1=— x3; 
for (k= 1;k<=7;k++) // 实 施 7 级 求 精 


{ for(x=x1;x<x3;x=x+d) 
{ y=pow((5-x* x)/p,0.5); 
ery ys 
if (z<min) {min=z;x2=x;y2=y;} // 通 过 比较 求 取 最 小 值 min 
-Ve Sy; 
if(z<min) {min=z;x2=x;y2=y;} 
} 
x1= x2- d;x3= x2+ d;d= d/10; // 每 级 求 精 , 步 长 d 缩 减 至 1/10 
| 
printf(” 当 x=%.7f,y=%.7f 时 ,z 有 最 小 值 :%.7f\n",x2,y2,min) ; 
x3= pow (5. 0, 0.5) ; x1=— x3; d= 0.01; 
for(k=1;kKK=7;kr+) // 实 施 7 级 求 精 
{ for (x=x1;x<x3;x= x+ d) 
{ y=pow((5- xx x)/p,0.5); z=x+qxxxy-3xyi 
if(z> max) {max=z;x2=x;y2=y:} // 通 过 比较 求 取 最 大 值 max 
-yxtqrx*y 3xy; 
if (z> max) {max=z;x2=x;y2=y;} 
} 
x1= x2- d;x3= x2+ d;d= d/10; // 每 级 求 精 , 步 长 d 缩 减 至 1/10 
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} 
printf(” 当 x=%.7f,y=%.7f 时 ,z 有 最 大 值 :%.7f\n",x2,y2, max) ; 
} 
3. 程序 运行 示例 与 说 明 


请 输入 正 参数 p,q: 4.7 
当 x= 一 1.5487238, y= 0.8064513 时 ,z 有 最 小 值 :- 12.7108695 
当 x= 一 1.3968654, y= 一 0.8730360 时 ,z 有 最 大 值 :9. 7588384 


显然 , 原 条 件 最 值 问 题 是 取 p 二 1,q 二 0 的 特例 , 即 运行 程序 时 输入 p 二 1,q 二 0 即 可 得 
原 问 题 以 小 数 形式 给 出 的 最 值 解 。 
有 意思 的 是 ,z 取 最 大 值 时 x,y 都 为 负数 ,是 所 加 项 qxy 影响 的 结果 


7.2.3 无 理 函 数 的 最 值 
下 面 先 行 依据 柯 西 不 等 式 求解 一 例 涉 及 两 个 根 号 特殊 函数 的 最 大 值 问题 ,再 行 编程 
拓展 到 求解 涉及 3 个 根 号 并 带 加 权 的 无 理 函 数 的 最 值 。 
【问题 4】 试 求 函数 y= V2019x 一 1 十 V2019 一 x 的 最 大 值 。 
【求解 】 函数 涉及 两 个 根 号 , 据 柯 西 不 等 式 
(Bo) < (6) 
其 中 ,ai,b; 为 实数 , 当 且 仅 当 Ne … 一 地 让 时 式 中 等 号 成 立 。 
据 柯 西 不 等 式 (6) 构 造 
和 + ds) [Cv2019x—1)?+2019( V2019—x)’] 
宇 (V2019x—1++ V2019— x)’ Ky 


即 有 (+ 


人 下 3 
05 ) (2019 D>y 


2018 
2< 2 
化 简 得 y* 夺 2020 2019? : 即 有 


2018 


2019 人 


y 三 2010 


2019x—1 2019。 V2019 一 
1 1 


V2019 


X 时 式 (8) 等 号 成 立 , 即 当 x 二 2018 十 二 


当 且 仅 当 时 , 函 


TE 


2018 
数 y 有 最 大 值 2020，\/ 5019。 


以 上 求解 中 ,应 用 柯 西 不 等 式 消去 变量 x 进行 巧妙 构造 是 探求 的 关键 。 
【拓展 】 在 上 述 问题 基础 上 增加 一 个 根 号 ,并 加 权 两 个 系数 。 
设 p,q 为 正 数 , 试 求 函数 
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y= V2019x 一 1 十 p。V2019 十 xx 十 9。V2019 一 工 (9) 


的 最 大 值 。 
从 键盘 输入 正 数 p,q, 计 算 并 输出 y 的 最 大 值 (精确 到 小 数 点 后 7 位 )。 


1. 分 级 求 精 设 计 要 点 

为 开 p 次 方 方 便 , 设 置 双 精 度 型 变量 处 理 。 

为 了 达到 指定 的 精度 要 求 ,提高 循环 效益 ,设置 k(1 一 7) 循 环 实施 分 级 求 精 。 

(1) 循环 参数 xl ,x3 取 初 值 xl 一 1/2019 十 d;x3 一 2019 一 d;d 一 0.01。 

(2) 随后 每 一 级 x 的 循环 的 循环 起 点 xl 与 终点 x3 定位 在 上 一 级 的 最 小 值 点 x2 附 
近 , 即 xl 一 x2 一 d,x3 一 x2 十 d。 

(3) 每 一 级 的 循环 步 长 d 缩减 为 前 一 级 的 1/10, 即 d==d/10。 

这 样 处 理 , 可 有 效 缩减 循环 次 数 , 确 保 精度 要 求 。 


2. 程序 设计 


// 探 求 带 参数 的 无 理 函 数 最 大 值 
# include < math. h> 
# include < stdio.h> 
void main0 
{ int kidouble c,d,p,q,x,x1,x2,x3,y,max; 
printf(” 请 输入 正 参 数 p,q:"); scanf("% 1f,% 1f", &p, &q) ; 


max= 0; d= 0. 01; // 第 1 级 求 精 步 长 初 定 0.01 
x1= 1/2019+ d;x3= 2019- d; 
for (k= 1;k<=7;k++) // 实 施 7 级 求 精 


{ for(x=x1;x<x3;x=x+d) 
{ y=pow(2019* x—1,0.5)+p*x pow(2019+ x,0.5)+q* pow(2019- x, 0.5) ; 


if (y> max) // 通 过 比较 求 取 最 大 值 max 
{ max= y;x2= x;} 
} 
x1= x2- d;x3= x2+ d;d= d/10; // 每 级 求 精 , 步 长 d 缩 减 至 1/10 


} 
printf(” 当 x=%.7f 时 ,y 有 最 大 值 :%.7f\n", x2, max); 
} 


3. 程序 运行 示例 与 变通 


请 输入 正 参数 p,q: 20, 19 
当 x=1827. 6453070 时 ，y 有 最 大 值 :3424. 1966577 
编程 设计 中 的 分 级 求 精 颇具 特色 ,很 有 启发 性 。 在 运行 程序 时 ,输入 在 参数 p,q 可 以 
带 小 数 。 
若 输 入 p 二 0,q 二 1 时 , 即 小 数 形式 输出 前 面 求解 的 结果 。 
变通 : 设 p,q,t 为 正 整数 , 试 求 函数 
y= V2019x 一 1 十 p。V2019 十 x 十 q。V2019 一 x (10) 


的 最 大 值 。 
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7.3 几何 优化 设计 


本 节 推 出 “构建 最 大 容器 ”与 “优化 供水 网 设计 ”两 个 具有 代表 性 的 几何 案例 ,为 几何 
优化 设计 抛砖引玉 。 


7.3.1 构建 最 大 容器 


先 求 解 两 个 构建 最 大 容器 的 简单 趣味 数学 案例 。 

【问题 1】 在 正方 形 板材 上 剪 切 构建 。 

在 一 个 边 长 为 a 的 正方 形 板 材 的 4 个 角 剪 去 边 长 都 为 x 的 小 正方 形 , 然 后 折 转 四 边 ， 
形成 一 个 底面 为 a 一 2x 的 正方 形 .高 为 x 的 柱 体形 敞 口 容器 。 

如 何 剪 切 ,可 使 得 柱 体形 敞 口 容器 的 容积 最 大 ? 

【求解 】 设 柱 体形 敞 口 容器 的 容积 为 V, 显 然 有 

V = x(a— 2x)’ 

据 平 均值 不 等 式 有 


ax (a—2x) | Ca— 2x) 
3 


则 4V 委 (2a/3)3,V 委 2a3/27, 当 且 仅 当 4x 一 a 一 2x, 即 x 二 a/6 时 等 号 成 立 。 

结论 : 按 x 二 a/6 剪 切 四 角 小 正方 形 , 折 转 所 得 柱 体形 敞 口 容器 的 容积 最 大 ,容积 最 
大 值 为 2a: /27。 

【问题 2】 在 矩形 板材 上 剪 切 构建 。 

一 块 边 长 为 a,b 的 矩形 材料 的 4 个 角 剪 去 边 长 都 为 x 的 正方 形 ,然后 折 转 四 边 ,形成 
一 个 底面 两 边 长 分 别 为 a 一 2x 与 b 一 2x 的 矩形 .高 为 x 的 柱 体形 敞 口 容器 。 

如 何 剪 切 ,可 使 得 柱 体 形 敞 口 容器 的 容积 最 大 ? 

【求解 】 设 柱 体形 敞 口 容器 的 容积 为 V, 显 然 有 

V= x(a—2x)(b— 2x) 一 4xs 一 2(a 十 b)xz 十 abx 
为 了 求 V 的 最 大 值 , 让 V 对 x 的 导数 为 零 ,得 
V'= 12x:—4(a+b)x+ab=0 

解 得 ( 舍 去 另 一 不 符合 实际 的 根 ) 


> Vix(a—2x) (1) 


a+b— Va +b—ab 
6 

式 (2) 给 出 了 使 容积 最 大 的 剪 切 方案 ,容积 的 最 大 值 略 。 

显然 ,于 式 (2) 取 a 二 b, 即 得 正方 形 时 x 二 a/6 的 剪 切 点 。 

【拓展 】 在 矩形 板材 上 实施 两 种 方案 剪 切 。 

用 一 块 边 长 为 a,b 的 矩形 材料 通过 剪 切 折 转 制 成 容积 尽 可 能 大 的 敞 口 容器 。 

A:B 两 同学 的 剪 切 制作 方案 如 下 。 

A 方案 : 在 矩形 的 4 个 角 剪 去 边 长 都 为 x 的 正方 形 , 然 后 折 转 四 边 ,形成 一 个 底面 为 
(Ca 一 2x,b 一 2x) 的 矩形 .高 为 x 的 柱 体 形 敞 口 容器 。 


(2) 
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了 方案 : 在 矩形 的 4 个 角 按 x,y 画 线 剪 去 相同 的 小 四 边 形 , 然 后 折 转 四 边 , 形 成 一 个 
底面 为 (a 一 2x,b 一 2x) 的 矩形 , 敞 口 为 (a 一 2x 十 2y,b 一 2x 十 2y) 的 矩形 的 拟 柱 体形 敞 口 容 
器 ,如 图 7-1 所 示 。 


a2xt2y 


a2x 


7-1 剪 切 构建 拟 柱 体 形 敞 口 容 器 示意 图 


对 于 指定 的 a,b, 试 分 别 求 A 方案 的 容积 V1 与 B 方 案 的 容积 V2 的 最 大 值 , 并 对 两 
个 方案 所 得 容积 最 大 值 进行 比较 。 
输入 矩形 边 长 a,b(10 二 a,b 二 50) ,输出 使 容积 V1 最 大 的 x 与 V1 最 大 值 ,输出 使 容 
积 V2 最 大 的 x,y 与 V2 最 大 值 ,并 输出 V2 最 大 值 与 V1 最 大 值 的 比值 (精确 到 小 数 点 后 
3 位 )。 
1. 设计 要 点 
(1) 求 A 方案 的 V1 最 大 值 。 
A 方案 形成 一 个 底面 为 (a 一 2x,b 一 2x) 的 矩形 、 高 为 x 的 柱 体形 的 敞 口 容 器 ,其 容 
积 为 
V1 = (a— 2x)(b— 2x)x 
设置 x(0.1~c/3) 单 循环 (这 里 c= 二 min(a,b)), 计 算 精 确 到 小 数 点 后 3 位 ,循环 步 长 
可 取 0.0001。 循环 内 计算 V1 并 与 maxl 比较 , 求 得 当 x 二 xl 时 V1 取 最 大 值 maxl 。 
为 了 相互 验证 ,在 打印 V1 的 最 大 值 maxl 之 前 ,加 上 与 公式 (2) 比 较 条 件 : 
e= (atb- sqrt(a* atb*x b-ax* b))/6; 
if (fabs (e- x1)< 0. 0001) 
因为 e 与 xl 都 是 双 精 度 值 ,不 直接 用 相等 二 二 xl 比较 , 须 在 一 定 精度 内 比较 。 
(2) 求 B 方 案 的 最 大 值 。 
B 方案 形成 一 个 底面 为 (a 一 2x,b 一 2x) 的 矩形 , 敞 口 为 (a 一 2x 十 2y,b 一 2x 十 2y) 的 矩 
形 的 拟 柱 体形 敞 口 容器 ,其 高 h 为 
h= Vx —y Ca) 
则 拟 柱 体形 敞 口 容 器 的 容积 v2 为 
V2 一 汪 [CKa 一 2 一 2 十 420a 一 2 十 难 好 一 2 十 玖 十 
(a 一 2x 十 2y)(b 一 2x 十 2y)]/6 (4) 
(3) 通过 循环 分 级 求 精 。 
设置 x,y(0.1~c/3) 二 重 循环 ( 步 长 取 0. 0001) , 因 无 效 循环 太 多 致使 时 间 太 长 ,为 此 
改进 为 分 3 级 求 精 。 
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第 1 级 求 精 时 赋 初 值 : 
x0= y0= 1;x3= y3= c/3;d= 0.1; 


设置 xC(x0 一 x3, 步 长 为 d) ,y(y0 一 y3, 步 长 为 d) 二 重 循环 ,通过 计算 h 与 V2, 并 比较 
得 当 x 二 x2,y= 二 y2 时 ,V2 有 最 大 值 max2 。 

进入 下 一 级 求 精 时 ,循环 探索 的 起 始 与 终止 点 取 在 x2,y2 附近 , 步 长 缩减 为 现 有 步 长 
的 1/10, 即 赋值 : 


x0= x2- d;x3= x2+ d;y0= y2- d;y3= y2+ d; d= d/10; 


通过 3 级 求 精 后 ,输出 x,y 与 V2 的 最 大 值 max2。 
最 后 输出 max2 与 maxl 的 比值 。 


2. 程序 设计 


// 探 求 矩形 两 方案 剪 切 构建 敞 口 容器 的 最 大 值 
# include < math. h> 
# include < stdio.h> 
void main0 
{ int kidouble ab,c, d,e,h,x,x0,x1,x2, x3, y,y0, y2, y3, v1, v2, max1, max2; 
printf(” 输入 矩形 二 边 长 a,b:"); scanf("% 1f,% 1f",&a,&b) ; 
max1= max2= 0; 
c=a>b?b:a; //c 为 a,b 的 最 小 值 
for (x= 0.1;x< c/3;x= x+ 0. 0001) 
{ h=x; vi=hx (a-2xx)* (b-2xx); 
if (v1> max1) // 通 过 比较 求 取 最 大 值 max1 
{ max1= v1;x1=x;} 
} 
e= (a+b- sqrt(ax afbxb-axb))/6; // 公 式 计 算 值 
if (fabs(e- x1)< 0. 0001) 
printf(” 当 x=%.3f 时 ,v1 有 最 大 值 :%.3f\n",x1,max1); 


d=0.1; // 第 1 级 求 精 步 长 初 定 0.1 
x0= y0= 1;x3= y3= c/3; 
for (k= 1;k<=3;k++) // 实 施 3 级 求 精 


{ for(x=x0;x<x3;x=x+d) 
for (y= y0;y< y3;y= y+ d) 
{ h=pow(x* x-yxy,0.5); 
Vv2=h/6x ((a-2x x) x (b-2x x)+4x (a-2x xty) * (b-2xx+y)+ (a- 2x x+2x*y) * (b-2x 
x+2x y)); 
if (v2> max2) // 通 过 比较 求 取 最 大 值 max2 
{ max2= v2;x2= x;y2= y;} 
} 
x0= x2- d;x3= x2+ d;y0= y2- d;y3= y2+ d; 
d=d/10; // 每 级 求 精 , 步 长 d 缩减 至 1/10 
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printf(” 当 x=%.3f,y=%.3f 时 ,v2 有 最 大 值 :%.3f\n", x2, y2, max2) ; 
printf(” v2 最 大 值 相当 于 v1 最 大 值 的 :%.3f 倍 \n",max2/max1) ; 
} 


3. 程序 运行 示例 


输入 矩形 二 边 长 a,b:30, 40 

当 x= 5.657 时 ,v1 有 最 大 值 :3032. 302 

当 x=7.860, y=4.163 时 ,v2 有 最 大 值 :3535.856 
v2 最 大 值 相当 于 v1 最 大 值 的 :1.166 倍 


此 数据 的 结果 表明 ,方案 B 的 最 大 容积 超过 了 方案 A 的 16%。 
7.3.2 优化 供水 网 设计 


本 案例 寻求 构建 供水 管 网 络 的 最 低 费 用 , 先 求解 简单 的 常规 网 设计 ,然后 编程 拓展 到 
较为 复杂 的 网 格 情形 。 


【问题 3】 在 一 河流 的 一 侧 有 A,B 两 个 村 ,A 距离 河 边 1000m,B 距离 河 边 4000m， 
A 与 B 相距 6000m。 

今 要 在 河 边 修一 抽水 站 D, 分 别 向 A,B 两 村 供水 。 

已 知 供水 管道 费用 为 90 元 /m, 问 抽水 站 建 在 何 处 ,使 建 供水 管 网 费用 最 低 ( 精 确 到 
整数 米 与 整数 元 ) 。 

【思考 】 应 用 对 称 简 化 求解 。 

为 计算 方便 ,建立 直角 坐标 系 如 图 7-2 所 示 。 设 A 到 河岸 的 垂 足 为 坐标 原点 O(0,0)， 
沿 河岸 为 x 轴 ,O 到 A 为 y 轴 ,抽水 站 D(x,0),A(0,1000) ,B(x, ,4000) 。 


站 B(x, ,4000) 
6000 
A(0,1000) 
ie 
0 D(x,0) x 
A(0,-1000) 


图 7-2 A,B 两 村 位 置 坐标 图 
供水 管道 单价 已 知 ,要 使 水 管 网 费用 最 低 , 只 要 选择 x, 使 管道 总 长 S=DA 二 DB 最 小 
即 可 。 


易 知 xn 6000 一 (4000 一 1000)2 一 3000。W3 


为 此 , 找 A 关 于 x 轴 的 对 称 点 A'(0, 一 1000) ,连接 DA, 连 接 BA' 交 x 轴 于 C(x,/5,0) 点 。 
注意 到 DA 一 DA', 则 
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S= DA+DB= DA’+DB BA!' (xb)2 十 (4000 十 1000)2 一 2000 V13 
因而 把 抽水 站 D 设 在 CCxe/5,0) 点 , 即 取 x 一 台 /5 一 600 V3s1039 时 ,管道 总 长 约 s 一 
7211m, 最 少 费 用 约 648999 元 。 

【拓展 】 增加 公共 管道 完善 水 网 设计 。 

由 于 两 村 的 人 口 不 同 ,单独 向 A 村 的 供水 管道 费用 为 a 二 90 元 /m, 单独 向 人 口 较 少 
的 B 村 的 供水 管道 费用 可 降 到 b==70 元 /m。 而 同时 满足 A,B 两 村 用 水 的 大 管道 费用 c 
在 100 一 120 元 /m 的 范围 内 正 与 供 货 商 协商 。 

试 请 根据 c 的 值 设 计 抽水 站 的 地 址 D 与 输 水 管 网 布局 ,达到 供水 网 费用 最 省 的 目的 。 

输入 c, 输出 D 的 位 置 与 安装 输 水 管道 的 最 小 费用 。 

测试 数据 : c==100;c==110;c 二 120。 

1. 设计 要 点 

同样 建立 直角 坐标 系 , 设 A 到 河岸 的 垂 足 为 坐标 原点 O(0,0) , 沿 河岸 为 x 轴 ,O 到 A 
为 y 轴 , 河 边 抽水 站 D(x,0) ,管线 分 又 点 C(x,y) ,如 图 7-3 所 示 。 

y B(xw, 4000) 


6000 


A(0,1000) 


C(x,y) 


| 


0(0.0) D(x,0) 
图 7-3 A,B 两 村 位 置 坐标 图 


已 知 A 与 B 的 距离 le==6000, 设 A,B 的 纵 坐 标 为 ya 二 1000 ,yb 二 4000。 
计算 A,B 到 河岸 的 垂 足 之 间 的 距离 xb 及 管线 分 义 点 C 至 A,B 的 距离 ca,cb, 则 包 
括 3 种 不 同 价格 供水 网 总 费用 为 
f=cXy++9I90Xcat+70Xceb 
设置 二 重 循环 x(0 一 xb),y(0 一 1000), 按 上 式 计算 ff 并 比较 得 f 的 最 小 值 min。 
同时 ,根据 输出 最 小 费用 时 的 x,y 值 确定 最 优 设计 方案 。 


2. 程序 设计 


// 依 据 参 数 优化 供水 网 设计 

# include < stdio. h> 

# include < math. h> 

void main0 

{ double  c, ca, cb, f, xb, le, x, y, ya, yb, x1,y1,min; 
printf(” 请 输入 大 管道 费用 c:") ;scanf("% 1f",&c) ; 
min= 1000000;ya= 1000; yb= 4000;1e= 6000; 
xb= sqrt (le * le- (yb- ya) * (yb- ya)):; 
for (x= 0;x< = xb;x= x+ 0.5) 
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for (y= 0;y< = yb;y= y+ 0. 5) 


{ ca= sqrt(xx x+ (ya-y) * (ya-y)); //C 点 到 A 村 的 距离 
cb= sqrt ((xb~ x) * (xb-x)+ (yb- y) * (yb-y)); //C 点 到 B 村 的 距离 
f=cx yt 90* cat 70* cb; // 建 水 管 总 费用 
if (fCmin) {min=f;x1=x;y1=y;} // 通 过 比较 求 取 和 最 小 值 min 


} 
printf( ” 河岸 抽水 站 的 地 址 0D 为 : %.Of \n",x1); 
printf( ” 水 管线 分 叉 点 地 址 6 为 : %.0f,%.0f \n",x1,y1); 
printf( ” 输 水 管道 的 最 小 费用 为 : %.0f \n",min); 
} 


3. 程序 运行 3 参数 输出 与 说 明 


请 输入 大 管道 费用 c: 100 

河岸 抽水 站 的 地 址 0 为 : 0 

水 管线 分 叉 点 地 址 5 为 : 0, 1000 

输 水 管道 的 最 小 费用 为 : 520000 
请 输入 大 管道 费用 c: 110 

河岸 抽水 站 的 地 址 D 为 : 353 

水 管线 分 又 点 地 址 6 为 : 353, 571 

输 水 管道 的 最 小 费用 为 : 528201 
请 输入 大 管道 费用 c: 120 

河岸 抽水 站 的 地 址 D 为 : 713 

水 管线 分 叉 点 地 址 6 为 : 713,0 

输 水 管道 的 最 小 费用 为 : 531109 


由 公共 大 水 管 的 单价 不 同 ,对 应 的 输 水 管 多 的 费用 自然 不 同 , 且 3 种 不 同 价格 对 应 的 
最 优 设计 也 不 同 。3 种 不 同 的 优化 设计 如 图 7-4 所 示 。 其 中 ,图 7-4(a) 表 示 c= 二 100,D 在 
原点 C 在 A 村 ;图 7-4(b) 表 示 c 二 110, 有 水 管 交 汇 C 点 ;图 7-4(c) 表 示 c 一 120 ,无 水 管 交 


汇 C 点 。 
B(xw4000) A Be 4000) 
6000 6000 7 
0 AlO 1000) 一 
D ~ E 
0(0,0) ”河岸 0O(0, 0) D(353,0) 河岸 
(a) c=100 (b) c=110 


4 B(xb, 4000) 
6000 
A(0,1000) 一 


0(0,0) D(713,0) 河岸 
(c) c=120 


图 7-4 对 应 3 种 价格 的 3 种 设计 
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当 c==100 时 , 即 大 管 价格 较 低 ,由 输出 x==0 确定 抽水 站 D 位 置 即 在 原点 ,由 y==1000 
确定 交叉 点 C 的 位 置 设 在 A 村 ,此 时 CD 铺设 大 管 .然后 由 A 村 用 小 水 管 直通 B 村 。 

当 c= 二 110 时 , 即 大 管 价格 适中 ,由 x 一 353 确定 抽水 站 D 位 置 ,由 yy 一 571 确定 交叉 点 
C 的 位 置 , 最 优 设 计 3 种 水 管 都 用 上 ,为 典型 的 Y 型 设计 。 

当 c= 二 120 时 , 即 大 管 价格 较 高 ,由 x 一 713 确定 抽水 站 D 位 置 , 由 y=0 确定 省 去 交叉 点 
C, 即 无 须 大 管 铺设 ,由 抽水 站 D 用 另 两 种 水 管 分 别 直通 A 村 与 BB 村 ,为 典型 的 V 型 设计 。 

由 这 一 案例 清楚 看 到 , 某 一 关键 构件 价格 的 差异 不 仅 影响 到 建 网 费用 ,还 直接 影响 到 
最 优 设计 方案 的 不 同 。 


7.4 智能 几何 


本 节 推 出 “智能 甲虫 安全 点 ”与 “创新 铁人 三 项 ”两 个 新 颖 的 智能 几何 案例 ,为 几何 最 
优化 探索 新 的 思路 。 


7.4.1 智能 甲虫 安全 点 


作为 一 道 数学 竞赛 试题 的 引申 与 拓展 ,介绍 一 个 有 趣 的 几何 最 值 问题 。 

先 看 20 世纪 50 年 代 北 京 市 的 一 道 数 学 竞赛 题 。 

【问题 】 试 求 从 长 a、 宽 b、 高 c(a 宇 b 宇 c) 的 长 方 体 ABCD-A1B1C1D1 的 顶点 A 沿 长 
方 体 表面 到 其 对 角 顶 点 Cl 的 最 短路 程 。 

【思考 】 这 是 一 道 新 颖 的 几何 最 值 探索 题 。 

设 在 长 方 体 ABCD-AlB1C1D1 中 ,AB=a,AD=b,AA1=c( 约 定 a 宇 b 宇 c, 参 见 
图 7-5) ,探求 从 顶点 A 点 沿 长 方 体 各 面 到 其 对 角 顶 点 Cl 的 最 短路 程 。 

(1) 在 展开 面 上 列举 3 条 不 同 路 径 。 

为 探求 方便 , 拟 把 立体 转化 为 平面 。 

试 把 面 ABB1A1 与 面 A1B1C1D1 沿 AlB1( 或 
DO) 在 一 个 平面 展开 ,从 顶点 A 经 AlB1( 或 DC) 到 
对 角 顶 点 Cl 的 最 短路 径 即 展开 图 上 的 连 线 AC1。 
根据 勾 股 定理 可 知 其 最 短路 程 的 平方 为 a& 十 (b 十 图 7-5 对 角 顶 点 Cl 落脚 
co)” ;同样 ,从 A 经 BB1( 或 DD1) 到 Cl 的 最 短路 程 的 
平方 为 十 (a 十 b)? ;从 A 经 BC( 或 A1D1) 到 Cl 的 最 短路 程 的 平方 为 十 (a 十 cy)?。 
(2) 通过 比较 求 取 最 小 值 。 
注意 到 a 三 b 三 c, 则 ab 三 ac 三 bc, 显 然 

十 (a 十 b)? 宇 十 (a 十 co)? 宇 a 十 (b 十 c)? 
因而 需 从 顶点 A 沿 长 方 体 表面 到 对 角 顶 点 Cl 的 最 短路 径 为 沿 最 长 边 A1B1( 或 DC) 
展开 面 上 的 AC1 连 线 , 最 短路 程 L 为 
L2: 一 az 十 (b 十 c): (1) 
这 就 是 以 上 数学 竞赛 题 的 结论 。 
【拓展 】 探求 智能 甲虫 的 安全 点 。 
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在 长 a、 宽 b、 高 c( 约 定 a 宇 b 宇 co) 的 长 方 体 房间 的 地 面 墙角 处 有 一 蜂 蛛 , 蜂 蛛 可 沿 房间 
各 面 仆 行 去 捕 提 附 于 房间 表面 的 甲虫 。 

甲虫 是 智能 的 , 它 所 停留 的 位 置 是 长 方 体 表面 的 安全 点 。 之 所 以 称 为 安全 点 ,是 在 房 
间 表 面 的 所 有 点 中 ,从 该 点 沿 房间 表面 到 蜘蛛 所 在 的 墙角 的 最 短路 程 为 最 大 。 

试 根据 已 知 ab,c 的 值 确定 甲虫 所 停留 在 长 方 体 表面 的 安全 点 位 置 , 并 求 出 蜘蛛 从 
墙角 沿 房间 表面 到 安全 点 的 最 短路 程 。 

【探求 】 安全 点 位 置 的 确定 与 悬念 。 

请 不 必 急 于 下 结论 : 安全 点 不 就 是 对 角 顶 点 吗 ? 

在 某 些 情形 下 ,安全 点 确实 在 对 角 顶 点 ,但 并 不 总 是 这 样 ! 

(1) 首选 对 角 顶 点 C1。 

以 上 得 从 顶点 A 沿 长 方 体 表面 到 对 角 顶 点 Cl 的 最 短路 程 工 为 L? 二 a? 十 (b 十 c)?。 

(2) 试探 对 面 小 侧面 上 的 点 。 

然后 ,甲虫 试图 运用 自身 的 智能 在 顶点 A 的 对 角 小 侧面 BCC1B1 上 寻求 比 顶 点 C1 
更 为 安全 的 点 ,因为 其 他 5 个 面 上 的 任何 一 点 沿 表面 到 A 的 最 短路 程 显然 小 于 工 , 这 从 以 
下 展开 图 7-6( 该 图 为 若干 展开 图 的 综合 ) 上 容易 得 知 。 


Cl 
图 7-6 在 对 角 小 侧面 展开 示意 图 


设 在 对 角 小 侧面 BCC1B1 上 的 P 点 距 CC1 为 y, 距 Bl1C1 为 z(0 二 y,z 二 c) ,由 展开 图 
根据 勾 股 定理 知 从 顶点 A 沿 各 表面 到 P 点 的 最 短路 径 有 以 下 4 条 可 选 路 线 : 
A 经 CD、CC1l 到 P 点 的 最 短路 程 为 (为 了 方便 比较 ,没有 用 根 号 而 用 其 平方 式 ): 


== (b 十 c 一 2z)? 十 (a 十 y)? (2) 
A 经 AlB1、B1Cl 到 P 点 的 最 短路 程 为 

Lz? = 二 (bc 一 y)? 十 (a 二 2)? (3) 
A 经 BC 到 P 点 的 最 短路 程 为 

1L:: 一 (a 十 c 一 2)2 十 (b 一 y)2 (4) 
A 经 BBl 到 P 点 的 最 短路 程 为 

下 和 一直 有 一 (5) 


如 果 求 得 L1,L2,L3,L4 的 最 小 值 比 工 大 , 则 所 得 P 点 就 比 Cl 点 更 为 安全 。 
(3) 以 上 4 路 径 的 合并 与 淘汰 。 
注意 到 式 (2) (3) 是 关于 变量 y,z 的 轮换 ,要 使 L1.L2 的 最 小 值 达 到 最 大 ,显然 y=z， 
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即 了 点 应 在 面 BCC1B1 过 C1 点 的 角 平 分 线 上 。 
试 把 式 (2)(3) 中 的 y,z 改写 为 x, 即 


LD? = Ls = (bie—2) + (atx) (6) 
同样 把 式 (4)(5) 中 y,z 改写 为 x, 展开 比较 , 因 ac<ab, 则 Ls 二 LL ,于 是 只 需 考虑 
La: = (atce— x)’:++ (b— x)’ CT 
(4) 两 式 比较 。 
为 便于 比较 , 式 (6)(7) 分 别 展开 
Li 一 L2 一 a2 十 bz 十 民 十 2bc 十 2x: 一 2(b 十 c 一 a)x (8) 
La 之 1 一 a2 十 b 十 导 十 2ac 十 2x: 一 2(a 十 b 十 c)x (9) 


注意 到 x 二 c, 显 然 L; 是 x 的 减 函 数 , 要 使 Li 与 Ls 的 最 小 达到 最 大 , 取 x 的 值 使 
LL 二 L3, 即 2bc 一 2(b 十 c 一 a)x 一 2ac 一 2(a 十 b 十 c)x, 解 得 


x 一 (a 一 b)c/(2a) (10) 
以 式 (10) 代 入 式 (8) ,注意 到 LL?==a? 十 (b 十 c)?*, 则 有 
et La a LL 十 2x(x 十 a 一 b 一 c) (11) 
据 以 上 式 (10) 与 式 (11) 可 知 
> 0Basb 


LIL =1i=1Li>Lesx= (a—b)c/(2a) >0 有 有 x+a> b+t+ec 
(5) 得 出 结论 。 
当 a=b 或 (a 一 b)c/(2a) 十 a 二 b 十 c 时 ,对 角 顶 点 Cl 为 唯一 安全 点 ,最 短路 程 为 
(1 的 5 
当 a hr Dot a ae 时 ,得 由 式 (10) 的 x==(a 一 b)c/(2a) 给 出 的 点 P 


当 ai Ca—b)e/(28) +a=bte 时 ， 得 由 式 (10) 的 x 二 (a 一 b)c/(2a) 给 出 的 点 P 
与 对 角 顶 点 Cl 同 为 安全 点 ,最 短路 程 为 式 (1) 的 L。 

【举例 】 

【 例 1】 若 取 a 二 1000,b= 二 500,c 二 300, 据 式 (10) 得 x= 王 75 ,而 x 十 a 二 1075 之 b 十 c= 
800, 可 知 安全 点 在 顶点 A 的 对 角 侧 面 BCC1B1 上 , 距 CC1 与 Bl1C1 均 为 x=75 的 P 点 
处 。 此 时 最 短路 程 为 L? = 二 1681250, 显 然 比 L? 二 1640000 要 大 。 

也 就 是 说 ,确定 在 对 角 侧 面 BCC1B1 上 的 安全 点 P 确 实 比 对 角 顶 点 Cl 更 为 安全 。 这 
一 结论 可 能 并 不 在 我 们 的 意料 之 中 。 

【 例 2】 车 取 a 二 1000,b 二 600,c 二 500, 据 式 (10) 得 x 二 100, 而 x 十 a 一 1100 一 b 十 c， 
可 得 对 角 侧 面 BCC1B1 上 距 CC1 与 B1C1 均 为 x 二 100 处 的 P 点 与 对 角 顶 点 Cl 同 为 安全 
点 ,此 时 最 短路 程 为 : L? 二 2210000。 


7.4.2 创新 "铁人 三 项 ” 


“铁人 三 项 "是 新 兴 的 综合 性 运动 竞赛 项 目 ,由 天 然 水 域 游泳 、 公 路 自行 车 、 公 路 长 跑 
3 个 项 目 组 成 。 
本 节 模 拟 * 铁 人 三 项 ?并 增添 “智能 ?选择 ,是 一 个 新 颖 的 贴近 体育 运动 实际 的 几何 智 
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能 案例 。 

一 条 宽 200m 两 岸 平行 的 河 两 岸 有 A.,B 两 个 码头 ,A 码头 在 对 岸 的 垂 足 C 距 码头 
的 距离 为 1000m。 

某 学 院 计 划 利 用 该 河 段 的 静止 水 面 与 河 的 两 岸 进行 一 场 包括 跑步 、 游 泳 与 骑 自 行车 
“铁人 三 项 ”的 综合 竞赛 。 

竞赛 的 起 点 O 设 在 过 A 的 河岸 垂直 线 上 ,距离 A 为 100m。 规 定 参赛 选手 首先 从 O 
跑步 至 河岸 某 一 点 D; 从 D 下 河 游泳 至 对 岸 某 一 点 EE; 从 E 上 岸 后 骑 自 行车 至 终点 B 
码头 。 

同时 明确 河岸 上 的 D,E 点 由 各 选手 根据 自身 素质 自行 选 定 ,如 图 7-7 所 示 。 


0 
100| \ 跑 步 
A D 河岸 
游泳 静水 
200 VE 
| : _ 
C 1000 骑 自 行车 B 


图 7-7 静水 “三 项 ”示意 图 


某 选 手 的 跑步 ,游泳 与 骑 自 行车 的 速度 分 别 为 v1,v2,v3(m/s), 试 根据 这 3 个 速度 求 
该 选手 完成 三 项 竞赛 所 需 的 最 短 时 间 。 
从 键盘 依次 输入 跑步 速度 vl、 游泳 速度 v2、 骑 自行 车 速度 v3( 约 定 4<v2 二 vl 二 v3 二 
15) ,输出 该 运动 员 完 成 “铁人 三 项 ”的 最 短 时 间 ( 单 位 为 s, 四 舍 五 人 精确 到 小 数 点 后 1 位 )。 
1. 设计 求解 要 点 
该 三 项 竞赛 之 所 以 称 为 “智能 ”, 是 因为 选手 需 根据 自身 的 3 项 速度 来 确定 下 河 的 D 
点 与 上 岸 的 EE 点 。 有 些 选手 可 能 在 “能 ” 即 3 项 速度 上 占有 优势 ,但 在 “ 智 " 即 D,E 点 的 选 
择 上 欠 准 确 , 也 不 可 能 获得 理想 成 绩 。 
为 使 三 项 运动 所 需 的 时 间 最 短 ,三 项 运动 轨迹 都 应 为 直线 。 
设 AD==x,EB==y, 有 
OD= Vx +1007 
DE = V(1000 一 x 一 y)5 十 2002 
显然 ,OD 是 跑步 的 距离 ,DE 是 游泳 的 距离 ,y 是 骑 自 行车 的 距离 。 
设置 x,y 循环 : 根据 一 般 的 速度 差距 .设置 循环 初 值 与 终 值 x(0 一 150),y(0 一 750)， 
通过 循环 优选 D,E 两 点 。 
根据 输入 的 3 项 速度 v1,v2,v3 容易 通过 以 上 3 段 距离 计算 这 3 项 分 别 所 需 时 间 的 
tl,t2.t3, 并 通过 3 项 的 总 时 间 t== 世 十 世 十 t3 与 最 小 值 变量 min 的 比较 , 求 得 所 需 的 最 短 
时 间 min(s)。 
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2. 程序 设计 

// 创 新 带 3 参数 的 "铁人 三 项 " 

# include < stdio.h> 

# include < math. h> 

void main0 

{ double d,v1,v2,v3, t,t1,t2,t3,x,y,x1,y1,min; 
printf(” 请 依次 输入 3 个 速度 v1,v2,v3: "); 
scanf ("% If,% If,% If", &v1, &v2, &v3) ; 
min= 1000; 
for (x= 0;x<=150;x=x+0.1) 
for (y= 0;y< = 850;y= y+ 0.1) 


{ t1=sqrt(x* x+100* 100)/v1; // 计 算 跑 步 时 间 
d= (1000- x— y) ; 
t2= sqrt (d * d+ 200 * 200) /v2; // 计 算 游 泳 时 间 
t3= y/v3; // 计 算 骑 自行 车 时 间 
t= t1+ t2+ t3; 
if (tCmin) {min=t;x1=x;y1=y:;} // 记 录 最 短 时 间 与 岸上 两 点 
} 
printf("” 选择 AD=%.0f 米 ,EB=%.0f 米 时 ,，",x1,y1); // 输 出 下 水 与 上 岸 点 
printf( "最 短 时 间 为 :%.1f 秒 \n",min); // 输 出 最 短 时 间 


1 
3. 程序 运行 示例 与 说 明 


请 依次 输入 3 个 速度 v1,v2, v3: 6.5,4.8,9 

选择 AD= 104 米 ,EB=770 米 时 ,最 短 时 间 为 :157.0 秒 

输入 的 3 个 速度 可 带 小 数 点 。 

本 案例 之 所 以 说 是 创新 “铁人 三 项 ”, 是 因为 每 一 选手 根据 自身 3 项 速度 的 差异 ,可 在 
河 的 两 岸 选择 合适 的 D 与 下 两 点 ,这 是 智能 的 体现 。 


7.5 杜 登 尼 省 刻度 尺 


英国 数学 游戏 大 师 杜 登 尼 (Dudeney) 曾 给 出 这 样 一 个 趣 题 : 一 根 23cm 长 的 尺子 ,要 
求 能 够 度量 出 1 一 23 任何 整数 厘米 长 ,至少 要 几 个 刻度 ? 他 给 出 的 答案 是 : 只 需 6 个 刻 
度 ( 尺 的 头 尾 不 用 刻 ), 这 种 尺 被 称 作 “ 省 刻度 尺 ”。 

省 刻度 尺 作 为 智力 游戏 ,实际 上 是 一 个 数学 最 优化 设计 问题 。 

本 节 探 索 省 刻度 尺 的 具体 构建 ,并 引申 出 若干 线性 模型 。 


7.5.1 构建 省 刻度 尺 
当 尺 长 为 s 单 位 长 时 ,为 度量 1 一 s 任意 整数 单位 长 度 ( 简 称 完全 度量 ) ,通常 在 尺 上 
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均匀 刻 有 s 一 1 条 刻度 。 如 果 只 从 实现 完全 度量 考虑 ,一 般 不 需要 s 一 1 条 刻度 ,可 以 把 刻 
度 条 数 予 以 适当 缩减 。 

对 于 给 定 的 长 s, 在 实现 完全 度量 前 提 下 能 缩减 到 多 少 条 刻度 ? 这 些 刻度 应 如 何 分 
布 ? 这 些 都 是 最 优 设计 所 要 面 对 的 。 

首先 ,考虑 求解 一 个 较 简单 的 省 刻度 尺 问题 。 

【问题 】 考古 中 的 神奇 古 尺 。 

有 一 年 代 尚 无 考究 的 古 尺 长 17 才 , 因 磨损 日 久 尺 上 的 刻度 只 剩 下 5 条 ,其 余 刻 度 均 
已 不 复 存在 。 神 奇 的 是 ,使 用 该 尺 仍 可 一 次 性 度量 1 一 17 之 间 任 意 整数 十 长 度 。 

试 确定 古 尺 上 5 条 刻度 的 位 置 分 布 。 

【思考 】 本 题 就 是 探索 构建 尺 长 为 17 单位 长 的 省 刻度 尺 。 

尺 上 5 条 刻度 把 尺 分 为 6 段 , 设 从 左 至 右 各 段 长 记 为 al ,a2,… ,a6( 称 为 段 长 序列 )。 

显然 ,有 al 十 a2 十 a3 十 a4 十 a5 十 a6 一 17。 

为 了 实现 度量 1 一 17 之 间 任 意 整数 单位 长 度 的 完全 度量 , 段 长 序列 的 部 分 和 (各 个 相 
邻 段 的 和 ) 应 完全 覆盖 区 间 [1,17] 中 的 每 一 个 整数 。 

(1) 确定 al ,a6。 

为 能 度量 16 ,两 端 段 al ,a6 中 必 有 一 段 的 段 长 为 1( 否 则 不 能 度量 16) ,不 妨 设 al 一 1。 

为 能 度量 15 ,余下 两 端 段 a2,a6 中 有 一 段 的 段 长 为 1, 或 a6 王 2。 不 妨 设 a6 一 2。 

(2) 确定 a2,a5。 

为 能 从 两 端 度量 4,5 ,不 妨 把 两 段 a2,a5 的 段 长 都 初 定 为 3。 

这 样 初步 确定 尺 的 首尾 各 2 段 即 段 长 序列 为 (1,3,a3,a4,3,2) 后 ,可 度量 的 整数 为 1 ， 
2,3;4;5 及 17 一 1;517 一 2,17 一 3;517 一 4,17 一 5。 

(3) 最 后 调整 确定 a3 ,a4。 
注意 到 总 长 为 17 ,余下 两 段 a3 十 a4 王 8。 选 择 a3,a4 可 有 以 下 段 长 序列 。 

段 长 序列 为 1,3,4,4,3,2; 检 验 发 现 不 能 度量 10。 

段 长 序列 为 1,3,3,5,3,2; 检 验 发 现 不 能 度量 9。 

段 长 序列 为 1,3,5,3,3,2; 检 验 发 现 不 能 度量 10。 

段 长 序列 为 1,3,2,6,3,2; 检 验 发 现 不 能 度量 7。 

段 长 序列 为 1,3,6,2.3,2; 通 过 完全 度量 检验 , 即 该 段 长 序列 可 实现 对 区 间 [1,17] 的 
完全 度量 。 

把 这 一 段 长 序列 1,3,6,2,3,2 转换 成 省 刻度 尺 , 即 得 省 刻度 尺 如 图 7-8 所 示 。 

由 有 段 长 序列 的 部 分 和 ,证 明 该 尺 能 实现 完全 


度量 。 
1,2,3,1 十 3 二 4,3 十 2 二 5,6,2 十 3 十 2 二 7,6 十 2 图 7-8 古 尺 17 长 5 刻度 示意 图 


(ee 


1 4 10 12 1 


8,3 十 6 一 9,1 十 3 十 6 一 10,6 十 2 十 3 一 11,1 十 3 十 6 十 
2 一 12.6 十 2 十 3 十 2 一 13,3 十 6 十 2 十 3 一 14,1 十 3 十 6 十 2 十 3 一 15,3 十 6 十 2 十 3 十 2 一 16,1 十 
全 二 从 二 区 二 3 寺 2 二 这 。 

【拓展 】 探索 尺 长 为 s, 刻 度数 为 n(s,n 均 为 正 整数 ) 的 省 刻度 尺 。 
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1. 设计 要 点 

(1) 数组 设置 。 

为 了 寻求 实现 尺 长 s 完全 度量 的 n 条 刻度 的 分 布 位 置 ,设置 以 下 两 个 数组 。 

数组 a 的 元 素 a(i) 为 第 i 条 刻度 距离 尺 左 端 线 的 长 度 ,约定 a(0) 王 0 以 及 aCn 十 1) 一 
s 对 应 尺 的 左右 端 线 。 
注意 到 尺 的 两 端 至 少 有 一 条 刻度 距 端 线 为 1( 否 则 长 度 s 一 1 不 能 度量 ) ,不 妨 设 a(1) 一 
1。 其 余 的 al) (i 二 2,…,n) 在 2 一 s 一 1 中 取 数 , 即 有 2 二 a(2) 二 a(3) 二 …<a(n)s 一 1。 

从 a(2) 取 2 开始 ,以 后 aGD 从 a(i 一 1) 十 1 开始 递增 1 取 值 ,直至 s 一 (n 十 1) 十 i 为 止 。 

(2) 完全 度量 检测 。 

当 i=n 时 ,n 条 刻度 连同 尺 的 两 条 端 线 共 n 十 2 条 ,从 n 十 2 取 2 的 组 合 数 为 Con 十 2,2)， 
记 为 变量 m, 显 然 有 


m 一 CCn 十 2,2) 一 Cn 十 1)Cn 十 2)/2 

试 把 m 个 长 度 赋 给 b 数组 元 素 b(1),b(2),…,b(m)。 为 判定 某 种 刻度 分 布 能 否 实现 完 
全 度量 ,设置 特征 量 u, 对 于 1 三 ds 的 每 一 个 整数 长 度 d, 如 果 在 b(1) 一 b(m) 中 存在 某 
一 元 素 等 于 d, 特 征 量 u 值 增 1。 

最 后 , 若 u=s, 说 明 从 1 至 尺 长 s 的 每 一 个 整数 d 都 有 一 个 b(i) 相 对 应 , 即 实现 完全 
度量 ,于 是 输出 带 n 条 刻度 分 布 的 直 尺 ,并 打印 相应 的 段 长 序列 。 

(3) 回溯 设计 。 

若 i<n',i 增 1 后 ai=aLi 一 1 十 1 后 继续 探索 。 

当 i>1 时 aG) 增 1 继续 ,至 a(i) 一 s 一 (n 二 1) 十 ;时 回 漳 。 


2. 回溯 程序 设计 


// 探 求 尺 长 sn 条 刻度 省 刻度 尺 
# include < stdio. h> 
voidmain0 
{ intd,i,j,k,t,u, s,m,n,a[30],b[300]; 
printf(” 尺 长 s, 寻 求 n 条 刻度 分 布 ,请 确定 s,n:"); 
scanf ("%d,%d", &s, &n) ; 
a[0]=0;a[1]=1;a[nt+ 1]=s; 
mF (nt 2) # (n+ 1)/2; i=2;a[i]=2; 
while(1) 
{ if(i<n) {it+; a[li]=a[i-1]+1; continue;} 


else 
{ for(t=0,k=0;k<=n;k++) 
for (j=k+1;j<=nt+1;j++) 
{t++ ;b[t]=a[j]-afk];} // 序 列 部 分 和 赋值 给 b 数 组 
for(u=0,d=1;d<=s;d++) 
for (k=1;k<=m;k++) 


if (b[k]==d) {ut=1;k=m;} // 检 验 b 数 组 取 位 s 有 多 少 
if(u==s) /b 数组 值 含 1 s 所 有 整数 


{ if(e[m!=s-1 || (aln]==s-1) 8&& (a[2]<=s-a[n-1])) 
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{ printf(" rr); // 输 出 尺 的 上 边 


for (k=1;k<=s-1;k++) printf ("—"); 
printf(™ \n"); 
printf(" | "); 


for (k=1;k<=nt 1;k++) // 输 出 尺 的 数字 标注 


{ for(j=1;j<=a[k]-a[k-1-1;j++) printf(" "); 
if(k< n+ 1) printf ("% 2d", a[k]); 
else printf(" | \n"); 

} 


printf(" C"); // 输 出 尺 的 下 边 与 刻度 


for (k=1;k<=n+ 1;k++) 

{ for(j=1;j<=a[k]-afk-1]-1;j++) printf("—"); 
if(k<n+ 1) printf ("Ht"); 
else printf ("J \n"); 

} 


printf(” 直 尺 %d 段 的 段 长 序列 为 :", nt 人); // 输 出 段 长 序列 


for (k=1;k<=n;k++) printf ("% 2d, ", a[k]- afk- 1]); 
printf("%2d \n", s- a[n]); 


} 


while(a[i]==s- (nt 1D)+i 8&8 i>1) i--; // 调 整 或 回溯 


if(i>1) aliJ++; 


else break; 
| 


3. 程序 运行 示例 与 说 明 
输入 s=23,n 一 6 ,程序 输出 如 图 7-9 所 示 。 


尺 长 s， 寻 求 n 条 刻度 分 布 ， 请 确定 s，n: 23, 6 


i 11 15 18 21 
| 1 上 1 L 


直 尺 7 段 的 段 长 序列 为 : 1, 1, 9, 4, 3, 3, 2 


1 4 10 16 18 21 
1 1 1 4 1 
直 尺 7 段 的 段 长 序列 为 : 1, 3, 6, 6, 2, 3, 2 


图 7-9 23 长 6 刻度 最 省 刻度 尺 图 


图 7-9 所 示 即 为 杜 登 尼 大 师 前 面 所 提 的 省 刻度 尺 的 两 个 解 。 


运行 程序 ,如 果 输 入 s 二 24,n 二 6; 或 输入 s 二 23,n 二 5, 都 无 解 。 这 说 明 图 7-9 所 示 的 
省 刻度 尺 是 最 优 设计 : 对 于 s 二 23, 不 可 能 减 刻度 ;对 于 n 二 6, 不 可 能 加 长 度 。 
运行 程序 ,如 果 输 入 s 二 17,n 王 5, 则 输出 包括 图 7-8 在 内 的 多 个 解 。 
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运行 程序 ,如 果 输 入 s 一 29,n 一 7, 则 输出 段 长 序列 为 (1,2,3,7,7,4,4,1) 省 刻度 

运行 程序 ,如 果 输 入 s 二 36,n 二 8, 则 输出 段 长 序列 为 (1,2,3,7,7,7,4,4， a 
度 尺 。 

程序 设置 应 用 表格 元 素 具 体 输出 所 得 到 的 省 刻度 尺 图 形 , 并 输出 该 尺 的 段 长 序列 ,是 
程序 设计 的 一 个 特色 。 

顺便 指出 ,网 上 某 些 网 站 关于 “Colomb 尺 ” 上 7 刻度 能 完全 度量 44 尺 长 .8 刻度 能 
完全 度量 55 尺 长 等 结论 显然 并 不 成 立 。 有 兴趣 的 读者 不 妨 自己 运行 以 上 程序 予以 
验证 。 


7.5.2 省 刻度 尺 线性 模型 


当 尺 长 s 与 刻度 数 n 比较 大 时 ,应 用 程序 构建 省 刻度 尺 时 间 会 比较 长 。 

例如 ,如 何 构建 刻度 数 n 一 20 对 应 的 省 刻度 尺 。 

根据 已 有 较 小 数据 的 省 刻度 尺 刻度 分 布 规律 ,概括 提升 为 一 般 的 刻度 分 布 模型 ,可 大 
大 方便 对 于 较 大 数据 的 省 刻度 尺 构建 。 


1.“ 增 6” 与 “ 增 7 模型 

首先 ,概括 以 上 构建 的 省 刻度 尺 的 刻度 分 布 共同 规律 ,推出 * 增 6” 与 “ 增 7” 两 个 线性 
模型 。 

(1)“ 增 6” 模 型 。 

由 图 7-8 省 刻度 尺 的 段 长 序列 1,3,6,2,3,2 及 图 7-9 pd 
列 1,3,6,6,2,3,2 可 以 看 出 : 两 个 解 首 均 为 1,3 ,尾部 均 为 2,3,2, 首 尾 完全 相同 ,只 是 
间 相 差 一 个 6 段 。 由 此 可 以 总 结 出 以 下 一 般 结 论 。 

【命题 1】 对 于 We n 十 1 段 , 有 “ 增 6 模型 

$l Wi 

其 中 , 尺 的 中 部 有 连续 en 简 记 为 [6]( 下 面 记号 类 同 ), 对 应 实现 尺 长 为 6n 一 
13, 则 该 尺 可 实现 完全 度量 。 

【证 明 】 证 “ 增 6” 模 型 (1) 能 实现 尺 的 完全 度量 , 即 证 (1) 的 n 十 1 段 的 部 分 和 能 覆盖 
尺 长 6n 一 13 以 内 的 所 有 整数 。 

为 简便 , 简 记 [6] 为 x 个 6 段 (x==1,2,…,n 一 4), 只 证 其 中 的 递 推 部 分 , 即 证 部 分 和 能 
覆盖 长 度 6x 十 r(r==1,2,…,5), 见 表 7-1, 其 余 从 略 。 


表 7-1 “ 增 6” 模 型 递 推 者 分 证 明 


连续 段 组 合 覆盖 长 度 连续 段 组 合 覆盖 长 度 
[6] 十 2 十 3 十 2 6x 十 1 1 十 3 十 [6] 6x 十 4 
[6] 十 2 6x 十 2 [6] 十 2 十 3 6x 十 5 
3 十 [6] 6x 十 3 
顺便 指出 ,简单 的 段 长 序列 1.1,1.1,1,[6] 或 1.1,1,1,[6],5 等 为 “ 增 6” 的 平凡 情 


形 , 显 然 可 实现 尺 长 的 完全 覆盖 ,但 其 实现 尺 长 小 于 6n 一 13。 


269 


| 去 和 各 学 及 编程 拓展 


(2)“ 增 7 模型 。 
由 以 上 程序 得 到 的 7 刻度 分 布 的 段 长 序列 与 8 刻度 分 布 的 段 长 序列 比较 ,两 个 解 首 
均 为 1,2,3, 尾 部 均 为 4,4,1, 首 尾 完全 相同 ,只 是 中 间 相 差 一 个 7 段 。 由 此 可 以 总 结 出 以 
下 一 般 结论 。 

【命题 2】 对 于 nCn 之 6) 条 刻度 把 直 尺 分 割 为 如 下 分 布 的 n 十 1 段 , 有 “ 增 7 模型 

DA .| (2) 

其 中 尺 的 中 部 有 连续 n 一 5 个 7 段 ,对 应 尺 长 为 7n 一 20, 则 该 尺 可 实现 完全 度量 。 

【证 明 】 证 * 增 7? 模型 (2) 能 够 实现 尺 的 完全 度量 , 即 证 (2) 的 n 十 1 段 的 部 分 和 能 覆 
盖 尺 长 7n 一 20 以 内 的 所 有 整数 。 

设 其 中 [7] 为 x 个 7 段 (x==1,2,…,n 一 5), 只 证 其 中 的 递 推 部 分 , 即 证 部 分 和 能 覆盖 
长 度 7x 十 r(r 王 1,2,…,6), 见 表 7-2, 其 余 从 略 。 


表 7-2 “ 增 7” 模 型 递 推 部 分 证 明 


连续 段 组 合 覆盖 长 度 连续 段 组 合 覆盖 长 度 
[7] 十 4 十 4 7x 十 1 [7] 十 4 7x 十 4 
[7] 十 4 十 4 十 1 7x 十 2 2 十 3 十 [7] 7x 十 5 
3 十 [7] 7x 十 3 1 十 2 十 3 十 [7] 7x 十 6 


2. 已 有 线性 模型 汇总 
笔者 在 20 余年 的 不 懈 探 索 中 ,得 到 “ 增 6 至 “ 增 16” 共 11 个 刻度 线性 模型 ,为 简单 
计 , 现 把 具有 尺 长 优势 的 8 个 线性 模型 公布 于 下 ( 见 表 7-3)。 
表 7-3 增 t 线 性 模型 表 


t 增 t 线 性 模型 可 实现 尺 长 n 优势 区 间 
6 1,3,[6],2,3,2 6n 一 13 [5,7] 

7 1,2,3,[7],4,4,1 7n 一 20 [7,10] 
10 1,1,6,7,1,[10],3,4,3,2 10n 一 52 [11,16] 
12 1,3,1,5,1,4,[12],6,2,5,6,2 12n 一 84 [16,18] 
13 1,1,1,6,1,7,7,[13],6,6,4,1,1 13n 一 101 [18,23] 
14 1,1,1,2,1,6,11,1,[14],3,8,2,3,4 14n 一 124 [23,24] 
15 1,1,1,1,1,3,1,4,8,[15],7,3,4,10,2 15n 一 148 [24,30] 
16 Will ll 16n—178 [WW] 


顺便 指出 ,t= 二 8,9,11 时 也 有 相应 的 线性 模型 ,只 是 没有 尺 长 优势 , 表 7-3 中 省 略 。 

这 些 增 t 模型 有 一 个 共同 特点 ,就 是 在 连续 + 段 的 前 后 配置 有 t 一 1 个 “完善 段 ”, 它 们 
与 连续 t 段 配合 才能 完成 对 尺 长 的 完全 覆盖 。 

这 些 “ 完 善 段 ”是 通过 程序 设计 反复 探索 归纳 所 得 。 可 能 存在 其 他 不 同 的 “完善 段 " 配 
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置 , 表 7-3 中 只 是 其 中 一 种 。 
表 中 的 “n 优势 区 间 ” 是 指 具 有 尺 长 优势 的 刻度 数 n 的 区 间 , 刻 度数 n 在 确保 一 定数 
量 的 + 段 前 提 下 取 该 区 间 之 外 的 值 是 可 以 的 ,但 不 具有 尺 长 优势 。 
例如 ,t==13 时 的 “n 优势 区 间 ” 为 [18,23], 取 此 区 间 内 的 n 能 实现 的 尺 长 比 其 他 模型 
要 长 。 若 t=13,n 取 28 也 是 可 以 的 ,但 实现 的 尺 长 小 于 “ 增 15” 模 型 ;此 时 n 取 16 也 是 可 
以 的 ,但 实现 的 尺 长 小 于 “ 增 10” 模 型 与 “ 增 12” 模 型 。 
【 例 1】 给 定 刻度 数 n= 二 20, 请 选择 线性 模型 构建 省 刻度 尺 。 
根据 表 7-3 的 “n 优势 区 间 ”,n 王 20 位 于 t=13 行 ,于 是 选择 “ 增 13” 线 性 模型 ,可 实现 
尺 长 为 13X20 一 101 二 159, 比 选择 其 他 + 的 模型 所 能 实现 的 尺 长 要 大 。 
对 于 n 一 20 的 “ 增 13” 刻 度 分 布 模型 , 共 21 段 的 段 长 序列 为 
L3151365137775199 1 19360654;151 (3) 
a 


“ 增 13” 模 型 (3) 中 有 连续 9 个 “13 段 ”, 前 部 有 1,1,1,6,1,7,7 共 7 段 ,后 部 有 6,6,4， 
1,1 共 5 段 ,这 12 个 “完善 段 " 与 9 个 “13 段 ? 配 合 能 实现 尺 长 159, 要 大 于 其 他 线性 模型 实 
现 的 尺 长 。 

例如 ,应 用 t=12 的 “ 增 12? 模 型 ,n 一 20 实现 尺 长 为 156。 应 用 t= 二 15 的 “ 增 15” 模 型 ， 
n 一 20 实现 尺 长 为 152。 这 些 显然 都 小 于 (3) 所 能 实现 的 s 二 159 尺 长 。 

下 面 简要 证 明 模型 (3) 能 实现 s 王 159 的 完全 覆盖 。 

【证 明 】 要 证 “ 增 13” 模 型 (3) 对 实现 尺 长 的 完全 度量 , 即 证 (3) 的 21 段 的 部 分 和 能 
覆盖 尺 长 159 以 内 的 所 有 整数 。 

为 简便 , 记 [13] 为 x 个 13 段 (x=1,2,…,9), 只 证 其 中 的 递 推 部 分 , 见 表 7-4。 


表 7-4 “ 增 13” 模 型 递 推 部 分 证 明 


连续 段 组 合 覆盖 长 度 连续 段 组 合 覆盖 长 度 
7 L139] 到 gs 7 十 [13] 3 
1 二 ze 6 十 1 十 7 十 9 十 [3] Snxt 8 
[13] 十 6 十 6 十 4 站 中 | 13x 十 9 
[13] 十 6 十 6 十 4 十 1 13x 十 4 i167 二 7 13x 十 10 
[13] 十 6 十 6 十 4 十 1 十 1 13x 十 5 1 13x 十 11 
[13] 十 6 13x 十 6 [13] 十 6 十 6 13x 十 12 


省 刻度 尺 刻度 分 布 的 线性 模型 当然 还 可 以 继续 向 更 大 的 t 过 16 探索 ,使 “ 增 t” 线 性 模 
型 以 适应 比较 大 的 刻度 数 n。 

当 刻 度数 n 比较 大 时 ,探索 刻度 分 布 的 二 次 模型 在 尺 长 上 比 线性 模型 更 有 优势 。 也 
就 是 说 ,对 于 比较 大 的 刻度 数 n, 应 用 二 次 模型 可 以 获得 完全 覆盖 的 更 大 尺 长 。 

关于 省 刻度 尺 刻度 分 布 的 二 次 模型 ,其 规律 比较 复杂 ,限于 篇 幅 这 里 不 作 介绍 ,有 兴 
趣 的 读者 可 查阅 相关 资料 或 自行 研究 。 
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7.6 序列 与 环 的 最 大 子 段 


在 一 个 由 正 负 整数 组 成 的 序列 中 ,寻求 相连 若干 项 的 和 最 大 的 子 段 ,是 经 典 的 序列 最 
大 子 段 和 问题 。 

本 节 应 用 动态 规划 原理 求解 序列 的 最 大 子 段 , 并 在 此 基础 上 进一步 拓展 至 探求 环 序 
列 的 最 大 子 段 和 。 


1. 序列 最 大 子 段 和 求解 
给 定 由 n 个 整数 (存在 负 整 数 , 但 至 少 有 一 正 项 ) 组 成 的 序列 a(1) ,a(2),…,a(n), 试 
求 该 序列 的 子 段 和 
s= Satd Wakijew 


k=i 
的 最 大 值 ,并 具体 确定 最 大 子 段 在 序列 中 的 位 置 。 
所 求 序列 的 最 大 子 段 可 以 是 某 一 项 ,可 以 是 相连 的 若干 项 ,当然 也 可 以 是 整个 序列 的 
所 有 nm 项 。 
每 一 个 子 段 之 和 有 大 有 小 , 试 枚 举 求 序 列 中 和 最 大 的 子 段 。 
当 i=1 时 , 求 和 得 n 个 以 a(1) 为 首 项 的 部 分 和 : a(1),a(1) 十 a(2),…,aC1) 十 … 十 aCn); 
当 i=2 时 , 求 和 得 n 一 1 个 以 a(2) 为 首 项 的 部 分 和 : a(2),a(2) 十 a(3),…,a(2) 十 … 十 


a(n); 


当 i==n 一 1 时 ,得 2 个 以 a(n 一 1) 为 首 项 的 部 分 和 : a(n 一 1),a(n 一 1) 十 a(n); 
当 i 二 n 时 ,最 后 a(n) 这 一 项 为 一 部 分 和 。 

比较 以 上 共 m==1 十 2 十 3 十 … 十 n 二 n(n 十 1)/2 个 部 分 和 , 求 得 最 大 和 。 
具体 实施 这 里 从 略 。 


2. 应 用 动态 规划 探求 
应 用 动态 规划 设计 求 最 大 子 段 和 ,其 效率 高 于 以 上 的 枚 举 法 求解 。 
设 qGj) 为 序列 前 j 项 子 段 和 的 最 大 值 , 即 

q(j) = mo Bet] (1<i<i<n) 

k=i 

(1) 确定 qG) 与 q(j 一 1) 的 弟 推 关系 。 
由 q(j) 的 定义 ,得 qdG) 与 q(j 一 1) (2 二 j 考 n) 的 递 推 关系 。 
当 q0 一 D0 时 ,q(j)=a(j); 
当 q0j 一 0 时 ,qj)= 二 qj 一 1) 十 a(j)。 
(2) 确定 初始 条 件 。 
当 a(1) 三 0 时 ,q(1)=0; 
当 a(1D)>0 时 ,q(1)=a(1)。 
(3) 比较 所 有 q0j) (i 二 1,2,…,n) 得 最 大 值 max, 并 记录 其 项 号 j。 
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【问题 】 已 知 12 个 整数 组 成 序列 : 11, 一 17,14, 一 10,23, 一 15,28, 一 13, 一 24,39， 
一 20,18, 试 应 用 动态 规划 求 该 序列 的 最 大 子 段 。 

【求解 】 根据 以 上 递 推 关系 逐 项 操作 ,如 下 所 示 。 

(1) a(1)==11 记 0,q(1)= 二 11。( 根 据 初 始 条 件 ) max=11,j=1。 

(2) q(1)>0,q(2)=q(1)+a(2)=11—17=—6。 

(3) q(2)<0,q(3)=a(3)=14。 max 一 14,j 一 3。 

(4) q(3) 过 0,q(4) 一 q(3) 十 a(4) 一 14 一 10 一 4。 

(5) qd(4) 之 0,q(5) 一 q(4) 十 a(5) 一 4 十 23 一 27。 max 一 27,j 一 5。 

(6) q(5)>0,q(6)=q(5)+a(6)=27—15=12。 

(7) q(6)>0,q(7)=q(6)+a(7)=12 二 28=40。 max=40,j=7。 

(8) q(7)>0,q(8)=q(7)+a(8)=40—13=27。 

(9) q(8)>0,q(9)=q(8)+a(9)=27—24=3。 

(10) q(9)>0,q(10)=q(9)+a(10)=3+39=42。 max=42,j=9。 

(11) q(10)>0,q(11)=q(10)+a(l1)=42—20=22。 

(12) q(11)>0,q(12)=q(11)+a(12)=22+18=40。 

综 上 实施 ,得 最 大 子 段 和 为 max 一 42。 

最 大 子 段位 置 确定 : 最 后 一 项 j= 二 9; 从 ==3 开始 qCk) 二 0, 即 开始 项 为 3。 

结论 : 最 大 子 段 为 第 3 项 至 第 9 项 ,最 大 子 段 和 为 42。 


3. 环 序列 最 大 子 段 设计 

给 定 由 mn 个 整数 (存在 负 整数 , 至 少 有 一 个 正 数 ?组 成 的 序列 a(1) ,a(2),…,a(n) 围 成 
一 个 环 ,在 环 中 首 a(1) 与 尾 aCn) 相 邻 。 

求 该 环 序列 若干 相连 项 组 成 的 子 段 和 的 最 大 值 ,并 确定 最 大 子 段 的 位 置 (最 大 子 段 的 
位 置 标注 ,约定 从 大 标号 到 小 标号 为 跨 环 的 首尾 段 ) 。 

求 环 的 最 大 子 段 和 ,同样 有 枚 举 逐 项 求 和 与 应 用 动态 规划 求解 两 种 方法 。 

下 面试 应 用 动态 规划 设计 综合 求解 序列 与 环 的 最 大 子 段 和 。 

综合 求解 序列 与 环 的 最 大 子 段 和 ,设置 项 目 选择 变量 d: 当 d=1 时 , 求 序 列 的 最 大 子 
段 和 ; 当 d==2 时 , 求 环 的 最 大 子 段 和 。 

序列 与 环 都 是 由 n 个 整数 组 成 ,为 方便 输入 ,采用 随机 生成 n 个 正 负 整 数 。 当 然 , 必 
要 时 可 改 为 从 键盘 逐个 数据 输入 。 

设 p[j] 为 序列 前 j 项 子 段 和 的 最 小 值 ,q[j] 为 序列 前 j 项 子 段 和 的 最 大 值 。 

(1) 确定 p[jj 与 [的 递 推 关系 与 初始 条 件 。 

由 pD],qD] 的 定义 ,得 p[j],q0jj(1<j<n) 的 递 推 关系 。 

当 p[j 一 1j] 宕 0 时,p[j]=a[j]; 

当 pL[Lj 一 1j<0 时 , p[j]==p[j 一 1] 十 a[j]; 

当 q[j 一 1]<0 时 ,gq[j]=a[j]; 

当 gq[j 一 1]>0 时, q[j]==q[j 一 1j 十 a[jj。 

初始 条 件 : 

pL0] 二 qL0] 二 0 (没有 项 时 ,其 值 自然 为 0)。 
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(2) 求 取 子 段 和 最 大 值 。 

设 环 序列 所 有 项 之 和 为 s, 最 大 子 段 和 为 max; 同 时 设 连续 段 最 大 值 为 s1 王 q[j], 连 
续 段 最 小 值 为 p[j], 则 跨 段 和 最 大 值 为 s2 二 s 一 pLj]。 

要 求 取 的 子 段 和 最 大 值 max, 需 在 所 有 连续 段 的 最 大 值 a[j] 及 所 有 跨 段 的 最 大 值 s 一 
p[ 让 中 进行 比较 。 

应 用 递 推 每 得 到 一 个 q[j] ,连续 段 (t= 二 1) 的 和 sl 二 q[j] 与 max 比较 得 最 大 和 max; 同 
时 ,应 用 递 推 每 得 到 一 个 p[j, 跨 段 (t= 二 2) 的 和 s2 三 s 一 p[ 让 与 max 比较 得 最 大 和 max; 经 
j(1~nD) 循 环 , 最 后 所 得 max 即 为 环 序 列 的 最 大 子 段 和 。 

(3) 最 大 子 段 的 位 置 标注 。 

在 求 取 max 时 用 变量 k 记录 最 大 子 段 的 尾 标号 j。 同 时 从 aLk] 疼 推 求 和 至 a[ 让 : 若 
t 二 1 时 ,其 和 为 s1 ,显然 最 大 子 段 为 i 一 k 的 连续 段 ;(d 二 1 时 只 此 一 种 ) 若 t=2 时 ,其 和 
为 s 一 s2 ,显然 最 大 子 段 为 k 十 1 一 i 一 1 的 路段 。 

特别 地 , 若 t 王 2,i 王 1 时 ,其 和 为 s 一 smin, 显 然 最 大 子 段 为 k 十 1 一 ni; 

若 t=2,k=n 时 ,其 和 为 s 一 smin, 显 然 最 大 子 段 为 1 一 i 一 1。 


4. 序列 与 环 最 大 子 段 和 综合 程序 设计 


// 序 列 或 环 最 大 子 段 动态 规划 设计 

# include < stdio.h> 

# include < stdlib. h> 

# include < time. h> 

voidmain0 

{ intd,i,j,k,t,n,a[10000] ;long s, s1, s2, max,q[10000],p[10000] ; 
t= time (0)% 1000; srand (t) ; // 随 机 数 发 生 器 初始 化 
printf(” 请 选择 项 目 ,1 为 序列 ;2 为 环 :"); 
scanf ("% d", &d) ; 
printf(” 共 n 个 正 负 项 ,请 确定 n:"); 
scanf ("% d", &n) ; 
printf(” 共 %d 个 整数 为 :\n ",n); 


for(i=1;i<=n;i++) 


{ t=rand0%50+ 10; // 随 机 产生 n 个 整数 
if(t%2==1) a[i]=-1x (t-1)/2; // 把 奇数 变 为 负数 ,大 小 减 半 
else a[i]=t/2; // 为 了 平衡 把 偶数 大 小 减 半 


for (s=0, i=1;i<=n;i++) 

{printf("%d,",a[i]);s= st+a[i]; } // 求 取 序 列 所 有 项 之 和 s 
max= ~ 100;q[0]= p[0]=0; 
for (j=1;j<=n;j++) 

{ if(q[lj-1]<=0) 9q0j]=aD]; 


else q[j]=q[j- 1]+a[j]; // 求 取 前 j 项 的 最 大 值 q[j] 
if(d==2) 
{ if(@p[j-1]>=0) p[j]=a[j]; 

else p[j]=p[j- 1]+a[j]; // 求 取 前 j 项 的 最 小 值 p[j] 
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} 
s1=q[j];s2= s-p[j]; 
if(d==1) s2=0; 


if (s1> max) {t=1;max=s1;k=j;} 
if (s2> max) { t= 2;max= s2;k= j;} 


} 


printf("\n 最 大 子 段 和 :% 1d\n",max) ; 


if (t==1) s1=max; 

else s1=s- max; 

for (s=0, i=k;i>=1;i--) 
{ st+=a[i]; 


if(s==s1 && d==1) 


| 


//s1 比较 得 最 大 值 
//s2 比较 得 最 大 值 


// 逆 推 最 大 和 子 段 的 首 标 i 


//d 叶 1 连续 段 输出 


{printf(" 序列 最 大 子 段 : %d“%d。\n",i,k); return;} 


if(s==s1 && d==2) 
{ if(t==1) printf(" 


else if(i==1) printf(" 
else if(k==n) printf(" 


环 最 大 子 段 : %d “%d。\n", in ; 
环 最 大 子 段 : %d ~%d。\n",k+1,n); 
环 最 大 子 段 : %d “%d。\n",1,i-1TD; 


else printf(” 环 最 大 子 段 : %d “~%d。\n",k+1,i- 人 1); 


return; 


| 
5. 程序 运行 示例 与 说 明 
请 选择 项 目 ,1 为 序列 ;2 为 环 : 1 


共 n 个 正 负 项 ,请 确定 n:15 
共 15 个 整数 为 : 


13,- 29, 17, 17, 26, 13, 13,- 8, ~ 23, 29, 20, 14,- 17, 20,- 14 


最 大 子 段 和 :121 
序列 最 大 子 段 : 3~ 14。 


以 上 是 求 取 序列 的 最 大 子 段 和 ;选择 项 目 2 可 求 取 环 序列 的 最 大 子 段 和 ,如 下 所 示 。 


请 选择 项 目 ,1 为 序列 ;2 为 环 : 2 
共 n 个 正 负 项 ,请 确定 n:15 
共 15 个 整数 为 : 


13, 5, 6, 16, — 27, 16, 12, — 27, — 14, — 20, 24, — 7, 11, 28, — 15 


最 大 子 段 和 :82 
环 最 大 子 段 : 11 “7。 


环 序列 的 最 大 子 段 为 11 一 7, 根 据 约定 从 做 大 到 小 为 跨 首 尾 段 , 即 在 环 中 去 除 第 8 一 


10 项 后 的 其 余 项 组 成 。 


以 上 动态 规划 设计 在 单 循环 实现 ,算法 复杂 度 为 O(n)。 显 然 ,动态 规划 设计 复杂 


要 低 于 枚 举 的 O(n?)。 


变通 : 可 以 把 程序 中 的 随机 产生 序列 改变 为 从 键盘 输入 ,运行 时 稍 显 费时 。 
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7.7 矩阵 子 形 之 最 


对 给 定 的 由 正 负数 组 成 的 矩阵 ,探求 并 输出 其 最 大 或 最 小 子 矩 阵 , 是 一 个 并 不 复杂 的 
常规 问题 。 
比 探求 子 矩 阵 更 具 挑 战 性 也 更 为 新 颖 的 是 探求 其 子 圈 之 最 。 


7.7.1 探求 最 小 子 阵 


定义 : 在 已 知 n 行 m 列 的 矩阵 (m,n 宇 3, 和 矩阵 元 素 有 正 数 也 有 负数 ) 中 ,其 中 行 、 列 数 
均 不 小 于 2 的 部 分 , 称 为 该 矩阵 的 子 矩阵 , 子 和 矩阵 上 所 有 元 素 之 和 称 为 该 子 矩 阵 的 值 。 
试探 求 该 矩阵 中 其 元 素 之 和 最 小 的 子 和 矩阵 ,并 输出 最 小 子 阵 。 


1. 设计 要 点 

设置 二 维 数组 a(i,j) 存 储 矩 阵 的 第 i 行 第 j 列 元 素 。 
(1) 设置 枚 举 循 环 。 

应 用 组 合 可 知 子 阵 个 数 为 


w = CEC Dn (1) 


注意 到 子 矩 阵 行 、 列 数 均 不 小 于 2, 设 子 和 矩阵 的 两 对 角 项 点 为 (xl,y1),(x2,y2) ,设置 
4 重 循环 枚 子 和 矩阵， 

xl 循环 : 1 一 n 一 1; yl 循环 : 1 一 m 一 1 

x2 循环 : xl 十 1 一 nj; y2 循环 : y1 十 1 一 m 

程序 应 用 变量 k 统计 子 阵 个 数 。 

经 4 重 循环 后 ,加 上 验证 环节 : 如 果 ==w, 即 程序 统计 子 阵 个 数 k 等 于 式 (1) 给 出 的 
理论 数值 w ,再 行 打印 输出 。 

(2) 统计 子 阵 值 。 

对 每 一 个 子 矩 阵 设 置 二 重 循环 x,y 枚 举 子 矩阵 的 所 有 元 素 ， 

x 循 环 : xl 一 x2; yy 循环 yl 一 y2 

元 素 a(x,y) 位 于 子 和 矩阵 上 ,应 用 s==s 十 a[xj[yj; 求 和 ,所 得 和 s 即 为 该 子 阵 值 。 

(3) 比较 求 最 小 值 。 

子 阵 值 s 与 最 小 值 变量 min 比较 ,得 子 阵 值 的 最 小 值 min, 并 应 用 变量 xb, xe,yb,ye 
标记 子 阵 的 位 置 。 

(4) 输出 最 小 子 阵 。 

最 后 设置 二 重 循环 x,y 枚 举 子 阵 元 素 : 

x 循环 : xb 一 xe; Jy 循环 : yb 一 ye 

循环 输出 元 素 a(x,y) 即 为 最 小 子 阵 。 


2. 程序 设计 
// 探 求 和 矩阵 最 小 子 阵 
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# include < stdio.h> 
# include < stdlib.h> 
# include < time. h> 
void main0 
{ int m n, ij,t，x1, x2, x, xb, xe, y1, y2, y, yb, ye, a[50] [50] ; 
long k, s, w,min; 
t= time (0)% 1000; srand (t) ; // 随 机 数 发 生 器 初始 化 
printf(” 请 输入 矩阵 的 行 数 n, 列 数 m:"); scanf(“*%d,%d”, &n, &m) ; 
wnx (n-1) x*m* (m1)/4; 
for(i=1;i<=n;i++) 


for (j=1;j<=m;j++) 


{ t=rand0%40+ 20; /矩阵 元 素 随 机 产生 
if(t%2==1) a[i] [jl]=-1x (t-1)/2; // 把 奇数 变 为 负数 ,大 小 减 半 
else a[i] [j]=t/2; // 把 偶数 大 小 减 半 

} // 可 把 随机 产生 改 为 键盘 输入 


printf(” 给 出 %d 行 %d 列 的 矩阵 为 :\n",n,m); 
for (i=1;i<=n;it++) 


{ for(j=1;j<=m;j++) 


printf ("% 3d ", a[i] [j]); // 输 出 已 知 矩 阵 
printf ("\n"); 
} 
min= 1000;k= 0; 
for (x1=1;x1<=n- 1;x1++) // 枚 举 所 有 子 矩 阵 


for (x2= x1+ 1;x2< =n;x2+ +) 
for (yl= 1;y1<=m- 1;y1+ +) 
for (y2= y1+ 1;y2< =m;y2+ + ) 
{ s=0;kt+; 
for (x=x1;x< =x2;x++) 


for (y=y1;y< =y2;y+ +) 


s= s+ a[x] [y]; //s 统计 (x1,y1)- (x2, y2) 子 阵 值 
if (smin) // 比 较 得 最 小 子 阵 并 记录 
{ min= s;xb= x1;xe= x2;yb= y1;ye= y2;} 
} 
if (k==w) // 检 验 子 阵 的 个 数 后 才 输 出 
{ printf(” 其 中 最 小 子 阵 为 : \n"); // 输 出 最 小 子 阵 
for (x= xb;x< = xe;x++) 
{ for(y=yb;y<=ye;y++) 
printf ("% 4d", a[x] [y]); 
printf("\n"); 
} 
printf(” 最 小 子 阵 值 为 : % 1d\n",min); 
} 
else printf(” 统计 子 阵 个 数 有 误 1\n"); 
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3. 程序 运行 示例 与 说 明 


请 输入 矩阵 的 行 数 n, 列 数 m:6,7 
给 出 6 行 7 列 的 矩阵 为 : 其 中 最 小 子 阵 为 : 
16 15 EE2E 14 10914 S20 2 7130 2 


2 

25 
= 0 -= 刚 二 怕 (， 痢 

20 最 小 子 阵 值 为 : -127 

17 


如 果 要 求 最 大 子 阵 ,把 比较 最 小 语句 改 为 比较 最 大 语句 即 可 。 
7.7.2 探索 最 大 子 圈 


定义 : 当 和 矩阵 的 子 和 矩阵 的 行 、 列 数 均 不 小 于 3 时 , 子 矩 阵 的 上 下 左右 四 周 的 元 素 构成 
该 子 矩 阵 的 子 圈 , 子 圈 上 各 个 元 素 之 和 称 为 子 圈 值 。 

之 所 以 定义 子 圈 的 行 、 列 数 均 不 小 于 3, 是 考虑 到 子 圈 中 有 空 ,中 间 有 空 才 成 为 圈 。 

在 给 定 的 n 行 m 列 的 矩阵 (矩阵 元 素 可 能 有 负数 ) 中 ,探求 子 圈 值 的 最 大 值 , 并 输出 
最 大 子 圈 。 

1. 设计 要 点 

设置 二 维 数组 a(i,j) 存 储 窍 阵 的 第 i 行 第 j 列 元 素 。 

(1) 设置 枚 举 循 环 

应 用 组 合 可 知 子 圈 个 数 为 


ww 一 CIC2 


Cn— nn—2)G0— LGm— 2 
4 


注意 到 子 和 矩阵 行列 数 均 不 小 于 3 , 设 子 矩阵 的 两 对 角 顶 点 为 (xl,y1),(x2,y2) ,设置 
4 重 循环 枚 子 和 矩阵; 

xl 循环 : 1 一 n 一 2; yl 循环 : 1 一 m 一 2 

x2 循环 : xl 十 2~n; ”y2 循环 : y1 十 2 一 m 

应 用 变量 k 统计 子 圈 个 数 。 

经 4 重 循环 后 ,加 上 验证 环节 : 如 果 k= 二 w, 即 程序 统计 子 阵 个 数 k 等 于 式 (2) 给 出 的 
理论 数值 w ,再 行 打印 输出 。 

(2) 统计 子 圈 值 。 

对 每 一 个 子 矩 阵 设置 二 重 循环 x,y 枚 举 子 矩阵 4 周 : 

x 循 环 : xl 一 x2; yy 循环: yl 一 y2 

当 xy 满足 条 件 (x 一 一 xl or x 一 一 x2 or y 一 一 yl or y 一 一 yY2) 时 ,元素 a(x,y) 位 于 子 矩 
阵 的 4 周 , 即 a(x:y) 位 于 该 子 圈 上 ,应 用 s 二 s 十 a[xj[yj; 求 和 ,所 得 和 s 即 为 该 子 圈 值 。 

(3) 比较 求 最 大 值 。 

子 圈 值 s 与 最 大 值 变 量 max 比较 ,得 子 圈 值 的 最 大 值 max, 并 应 用 变量 xb, xe,yb,ye 
标记 子 圈 的 位 置 。 


(2) 
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(4) 输出 最 大 子 圈 。 

最 后 设置 二 重 循环 x,y 枚 举 子 圈 4 周 : 

x 循 环 : xb 一 xe; Jy 循环 : yb 一 ye 

当 x,y 满足 条 件 (x 王 xb or x 二 xe or y 一 yb or y 王 ye) 时 ,元素 a(x,y) 位 于 最 大 子 圈 
上 , 即 在 当前 位 置 输出 aCx,y) ;否则 ,元素 aCx,y) 不 在 最 大 子 圈 上 , 即 在 相应 位 置 输出 等 
长 空格 。 

2. 程序 设计 


// 探 求 矩 阵 最 大 子 圈 

# include < stdio.h> 

# include < stdlib. h> 

# include < time.h> 

voidmain0 

{ int m nm, ij,t，x1, x2, x, xb, xe, y1, y2, y, yb, ye, a[50] [50] ; 


long k, s, w, max; 

t= time (0)% 1000; srand (t) ; // 随 机 数 发 生 器 初始 化 
printf(” 请 输入 矩阵 的 行 数 n, 列 数 m:"); scanf("%d,%d",&n, &m) ; 

Ww (m1) x (m2) x (n-1) * (n- 2)/4; 

for (i=1;i<=n;it++) 


for (j=1;j<=m;j++) 


{ t=rand0%40+ 20; /矩阵 元 素 随 机 产生 
if (t% 2==1) ali] [jl]=-1* (t-1)/2; // 把 奇数 变 为 负数 ,大 小 减 半 
else a[i] [j]=t/2; // 把 偶数 大 小 减 半 

} // 可 把 随机 产生 改 为 键盘 输入 


printf(” 给 出 %d 行 %d 列 的 矩阵 为 :\n",n,m; 
for (i=1;i<=n;i++) 


{ for(j=1;j<=m;j++) 


printf ("% 3d ", a[i] [j]); // 和 输出 已 知 矩阵 
printf ("\n"); 
} 
max= — 1000;k= 0; 
for (x1=1;x1<=n- 2;x1+ +) // 枚 举 所 有 子 矩 阵 


for (x2= x1+ 2;x2< =n;x2+ +) 
for (y= 1;y1<=m- 2;y1++) 
for (y2= y1+ 2;y2< =m;y2+ +) 
{ s=0;kt+; 
for (x=x1;x< =x2;x++) 
for (y=y1;y<=y2;y+ +) 
if0==x1 || x==x2 || y==y1 || y==y2) 
s= s+a[x][y]; //s 统 计 (x1,yD)- (x2,y2) 子 圈 值 
if (s> max) // 比 较 得 最 大 子 圈 并 记录 
{ max= s;xb= x1;xe= x2;yb= y1;ye= y2;} 
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if (k==w) // 检 验 子 圈 的 个 数 后 才 输 出 
{ printf(” 其 中 最 大 子 圈 为 : \n"); // 输 出 最 大 子 圈 
for (x= xb;x< = xe;x++) 
{ for(y=yb;y<=ye;y++) 
ifo==xb || x==xe || y==yb || y==ye) 
printf ("% 4d", a[x] [y]); 
else printf(" Ys 
printf ("\n"); 
} 
printf(” 最 大 子 圈 值 为 : % 1d\n", max); 
} 
else printf(” 统计 子 圈 个 数 有 误 !\n"); 
} 


3. 程序 运行 示例 与 说 明 


请 输入 矩阵 的 行 数 n, 列 数 m:7,8 

给 出 7 行 8 列 的 矩阵 为 : 

-20 -28 -24 2 -15 10 27 -15 其 中 最 大 子 圈 为 ; 
17 27 -15 -16 -10 -26 15 -29 220 25 0 

-10 -28 2 25 2 -10 -2 -16 21 25 

23 -15 21 -15 25 -10 -18 27 18 24 

10 25 18 12 24 -16 -18 -2 18 -13 

-16 17 18 12 -13 -25 25 -25 -25 28 18 

-22 -16 -25 28 18 -27 10 25 最 大 子 圈 值 为 : 187 


最 大 子 圈 案 例 看 似 简 单 , 设 计 却 容易 出 错 ,要 注意 枚 举 循 环 的 设置 ,特别 要 注意 子 圈 
值 的 统计 ,最 大 子 圈 位 置 的 标注 以 及 最 大 子 圈 的 输出 。 
如 果 要 求 最 小 子 圈 , 把 比较 最 大 请 句 改 为 比较 最 小 语句 即 可 。 


7.8 迷宫 最 短 通道 


迷宫 是 一 个 吸 人 眼球 的 字眼 ,探索 迷宫 通道 是 一 个 充满 悬念 的 游戏 ,而 探索 最 短 的 迷 

宫 通 道 则 是 一 项 需要 智慧 与 策略 的 最 优化 活动 。 
本 节 探 索 应 用 分 支 限 界 原理 寻求 一 类 典型 的 矩阵 
迷宫 的 最 短 通道 。 0 
对 于 给 定 的 n 行 m 列 的 矩阵 迷宫 ,就 是 一 个 nXm 1 
的 0-1 和 矩阵。 矩阵 中 的 0 表示 可 通行 ,1 表示 不 可 通行 。 0 
【问题 】 图 7-10 所 示 即 为 一 个 12X11 的 矩阵 4 
1 
0 
0 
0 
学 


迷宫 


-一 -= 一 一 -一 
OOOOmO~ 


对 于 给 出 的 矩阵 迷宫 , 试 在 矩阵 上 任意 指定 通道 起 
点 与 终点 ( 须 均 为 可 通行 的 0 格 ) 搜索 从 起 点 到 终点 的 
最 短 通道 。 图 


ooooo--~-oo-oc 
o-oo--oo0--ooc 
-oooooocooo-ec 
oc--ooocooco-~--~-ooo 
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例如 ,给 出 矩阵 左上 角 起 点 (1,1) 与 矩阵 右 下 角 终 点 (12,11) ,搜索 并 输出 迷宫 从 起 点 
至 终点 的 一 条 最 短 通道 。 

【搜索 】 试 应 用 广度 优先 搜索 并 实施 标注 。 

(1) 标注 搜索 通道 。 

首先 ,把 所 有 不 能 通行 的 1 格 进行 障碍 标注 (例如 标注 符号 @)。 

从 起 点 (1,1) 开 始 ,标注 1, 意 味 这 是 通道 的 第 1 步 ; 

检查 标注 的 1 格 的 四 周 方 格 中 的 0 格 (自然 未 标注 ) 标 注 2; 

检查 所 有 标注 的 2 格 的 四 周 方 格 中 的 0 格 标注 3; 

检查 所 有 标注 的 3 格 的 四 周 方 格 中 的 0 格 标注 4; 

直到 搜索 标注 到 终点 方 格 (12,11) 为 止 。 

图 7-11 是 标注 过 程 的 示意 图 。 

(2) 确定 最 短 通道 长 度 。 

终点 (12,11) 上 标注 为 50, 即 从 起 点 (1,1) 至 终点 (12,11) 的 最 短 通道 长 度 为 50( 包 括 
通道 的 起 点 与 终点 在 内 ) 。 

(3) 确定 最 短 通道 。 

首先 在 终点 格 标 注 通道 符 O; 

在 终点 格 信 的 四 周 格 中 任 找 一 个 标注 数字 49 格 , 标 注 通 道 符 O; 

在 刚 标注 今 的 四 周 格 中 任 找 一 个 标注 数字 48 格 , 标 注 通 道 符 O; 

依 此 递 降 ,搜索 并 标注 通道 符 人 > ,直至 标注 1 格 的 起 点 为 止 。 


这 样 ,确定 了 连接 起 点 与 终点 的 一 条 最 短 通道 ,如 图 7-12 所 示 。 

最 短 通道 长 度 为 : 50 

-条 最 短 通 道 为 : 
1@27262726@282930@ Cg@27262726@444@ 
2@20255@252627@31@ .9 
3 4@242324@@@3233 Coesxcocoeeecoa 
@56@22@3635343334 @C6@0@360003 
767@21@3736@@35 oo0% 771@®@08@830O0@®@35 
8@@2I2021@837@@36 Ce@eege2xl2@c@@36 
910@201920@38@3837 CCOe@xcO20@c0@3837 
@1llI1I2@1819@3914039 @ Pe 
131213@1718®@ 4041 4041 13120@018@04404 
14@@1411516@424@@ @ 

141@0200000@@@ 
15@15@®@®@®3@474849 

15@1l15@@e00e@000 


16 17 16 17 18 @ 4445 46 ®@ 50 
1617161718@OoOo0oo0o@D0o0 


图 7-11 迷宫 通道 搜索 标注 过 程 示意 图 图 7-12 最 短 通道 标注 图 


最 短 通道 可 能 存在 多 条 ,这 里 标注 的 只 是 其 中 一 条 。 
以 上 应 用 广度 优先 搜索 并 实施 标注 ,操作 切实 可 行 ,因而 省 略 程序 设计 。 
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9 泊 松 分 酒 


泊 松 分 酒 是 一 个 著名 的 智能 测试 题 ,也 是 一 个 有 难度 的 最 优化 过 程 模拟 经 典 案例 。 
法 国 数学 家 泊 松 (Poisson) 曾 提出 以 下 分 酒 趣 题 。 
【问题 】 某 人 有 一 瓶 12 品 脱 (容量 单位 ) 的 酒 ,同时 有 容积 为 5 品 脱 与 8 品 脱 的 空 杯 


各 一 个 。 借 助 这 两 个 空 杯 ,如 何 用 最 少 的 分 倒 次 数 将 这 瓶 12 品 脱 的 酒 平分 ? 


【求解 】 为 叙述 方便 ,以 下 省 略 容量 单位 品 脱 ,只 写 出 数字 。 
设 在 分 倒 过 程 中 记 瓶 A 中 的 酒量 为 a(0 三 a 三 12); 杯 B( 容 积 为 8) 中 的 酒量 为 b(0 过 b 


和 8); 杯 C( 容 积 为 5) 中 的 酒量 为 ec(0 过 c 志 5)。 


我 们 模拟 下 面 两 种 方向 的 分 倒 操作 ,如 下 所 示 。 

(1) 按 A 一 BC 顺序 分 倒 操 作 。 

@ 当 B 杯 空 (b=0) 时 ,从 A 瓶 倒 满 B 杯 。 

@ 从 B 杯 分 一 次 或 多 次 倒 满 C 杯 。 

当 b 宇 5 一 c 时 , 倒 满 C 杯 ,操作 @; 

当 b 秋 5 一 c 时 , 倒 空 B 杯 ,操作 〇 。 

@ 当 C 杯 满 (c=5) 时 ,从 C 杯 倒 回 A 瓶 。 

分 倒 操 作 中 ,用 变量 n 统计 分 倒 次 数 ,每 分 倒 一 次 ,变量 n 增 1。 

以 上 分 倒 操作 能 否 实现 平分 ,等 价 于 不 定 方程 8x 一 5y=6 是 否 存在 正 整数 解 。 

若 b=0 且 a<8 时 ,步骤 无 法 实现 ( 即 A 瓶 的 酒 倒 不 满 B 杯 ) 而 中 断 , 记 n= 一 1 为 


中 断 标志 。 


分 倒 操 作 中 若 有 a 二 6 或 b==6 或 c=6 时 ,显然 已 达到 平分 目的 ,分 倒 结 束 。 和 否则 , 继 


续 分 倒 操 作 。 


注意 到 不 定 方程 8x 一 5y 二 6 有 正 整 数 解 (2,2) , 即 2X8 一 2X5==6, 按 A 一 BC 顺序 


分 倒 操作 6 次 可 实现 平分 ( 见 表 7-5) 。 


表 7-5 用 8-~5 分 倒 平 分 12 


282 


次 数 初 始 和 2 3 4 5 6 
A(12) 12 4 4 9 9 1 
B(8) 0 8 3 0 8 6 
C5) 0 0 5 0 3 3 5 


(2) 按 A 一 CB 顺序 分 倒 操作 。 

Q@ 当 C 杯 空 (c=0) 时 ,从 A 瓶 倒 满 C 杯 。 
@ 从 C 杯 分 一 次 或 多 次 倒 满 B 杯 。 

当 c 二 8 一 b 时 , 倒 满 B 杯 ,操作 @。 

当 ce 和 8 一 b 时, 倒 空 C 杯 ,操作 中 。 

@ 当 B 杯 满 (b 二 8) 时 ,从 B 杯 倒 回 A 瓶 。 


第 7 部 最 估 笃 过 庆幸 


分 倒 操 作 中 ,用 变量 n 统计 分 倒 次 数 ,每 分 倒 一 次 ,变量 n 增 1。 

以 上 分 倒 操作 能 否 实现 平分 ,等 价 于 不 定 方程 5x 一 8y 二 6 是 否 存在 正 整数 解 。 

车 c 二 0 且 a=5 时 ,步骤 中 无 法 实现 ( 即 A 普 的 酒 倒 不 满 C 杯 ) 而 中 断 , 记 n 一 一 1 为 
中 断 标志 。 

分 倒 操 作 中 若 有 a 二 6 或 b==6 或 c=6 时 ,显然 已 达到 平分 目的 ,分 倒 结束 。 否 则 , 继 
续 分 倒 操作 。 
注意 到 不 定 方程 5x 一 8y 二 6 有 正 整 数 解 (6,3), 即 6X5 一 3X8==6, 按 A 一 CB 顺序 
分 倒 操 作 17 次 可 实现 平分 ( 见 表 7-6) 。 

表 7-6 用 5-~8 分 倒 平 分 12 
vx 


A(12) ” 7 2 2|110|10|5 5 0 0 8 8 3 人 6 


C(5) 5 0 5 2 2 0 5 0 5 4 4 0 5 1 0 5 


B(8) 0 5 5 8 0 2 2 7 7 8 0 4 4 8 0 1 1 


(3) 显然 , 按 表 7-5 所 示 分 倒 操 作 ,用 容积 为 5 与 8 的 空 杯 经 最 少 6 次 可 实现 将 这 瓶 
12 的 酒 平 分 。 

【编程 拓展 】 

我 们 要 解决 一 般 的 平分 酒 案 例 : 借助 容量 分 别 为 bv 与 cv( 单 位 为 整数 ) 的 两 个 空 杯 ， 
用 最 少 的 分 倒 次 数 把 总 容量 为 偶数 a 的 酒 平分 。 

这 里 正 整数 bv,cv 与 偶数 a 均 从 键盘 输入 。 

1. 模拟 设计 要 点 

求解 一 般 的 “ 泊 松 分 酒 ” 问 题 ; 借助 容积 分 别 为 整数 bv,cv 的 两 个 空 杯 ,用 最 少 的 分 
倒 次 数 把 总 容量 为 偶数 a 的 酒 ( 并 未 要 求 满 瓶 ) 平 分 ,采用 直接 模拟 平分 过 程 的 分 倒 操 作 。 

为 了 把 键盘 输入 的 偶数 a 通过 分 倒 操 作 平分 为 两 个 d,d=a/2(d 为 全 局 变量 ) 。 

若 两 空 杯 容量 bv 十 cv 二 d, 无 法 存放 平分 量 ,显然 无 法 平分 。 

由 上 面 分 酒 求解 可 知 , 分 倒 操 作 能 否 实现 平分 ,等 价 于 不 定 方 程 xXbv 一 yXcv== 土 d 
是 否 存在 正 整 数 解 (x,y)。 若 bv 与 cv 的 公约 数 k 不 是 目标 量 d 的 约 数 ,显然 该 不 定 方程 
无 正 整 数 解 , 即 “无 法 实现 平分 ”, 提 示 后 退出 。 

设 在 分 倒 过 程 中 , 瓶 A 中 的 酒量 为 a(0 三 a2d); 杯 B( 容 积 为 bv) 中 的 酒量 为 b(0 夺 
b 夸 bv) ; 杯 C( 容 积 为 cv) 中 的 酒量 为 c(0 志 cev)。 

我 们 模拟 下 面 两 种 方向 的 分 倒 操作 。 

(1) 按 A 一 BC 顺序 分 倒 操 作 。 

@ 当 也 杯 空 (b=0) 时 ,从 A 瓶 倒 满 B 杯 。 

@ 从 B 杯 分 一 次 或 多 次 倒 满 C 杯 。 

当 b 之 cv 一 c 时 , 倒 满 C 杯 ,操作 @; 

当 bcev 一 c 时 , 倒 空 B 杯 ,操作 中。 

@ 当 C 杯 满 (c 一 cv) 时 ,从 C 杯 倒 回 A 瓶 。 
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分 倒 操 作 中 ,用 变量 n 统计 分 倒 次 数 ,每 分 倒 一 次 ,n 增 1。 

车 b==0 且 a<bv 时 ,步骤 @ 无 法 实现 ( 即 A 瓶 的 酒 倒 不 满 B 杯 ) 而 中 断 , 记 n= 一 1 
为 中 断 标志 。 

分 倒 操 作 中 若 有 a 一 4 或 b=d 或 c 一 4 时 ,显然 已 达到 平分 目的 ,分 倒 循 环 结束 ,用 
试验 函数 probe(a,bv,cv) 返 回 分 倒 次 数 n 的 值 ,并 把 该 值 存放 在 ml。 否 则 ,继续 循环 
操作 。 


模拟 操作 描述 

while (l(a==d || b==d || c==d)) 

{ if(!lb) {a-=bv;b=bv;} // 从 A 瓶 倒 满 B 杯 
else if(c==cv) {at=cv;c=0;} // 从 C 杯 倒 回 A 瓶 
else if(b> cv-c) {b-= (cv-c);c=cvi] // 从 B 倒 满 C 杯 
else {ct=b;b=0;} // 从 B 倒 6, 倒 空 B 杯 


printf ("% 6d% 6d% 6d\n", a, b, ©) ; 
} 


(2) 按 A 一 CB 顺序 分 倒 操 作 。 

这 一 循环 操作 与 (1) 实 质 上 是 C 与 B 杯 互 换 , 相 当 于 返回 函数 值 probe(a,cv,bv)， 
probe(a,cv,bv) 返 回 分 倒 次 数 n 的 值 ,并 把 该 值 存放 在 m2。 

试验 函数 probeO 〇 的 引入 是 巧妙 的 ,可 综合 摸 拟 以 上 两 种 分 倒 操作 避免 了 关于 cv 与 
bv 大 小 关系 的 讨论 。 

同时 ,设计 实施 函数 practice(a,bv,cv) ,与 试验 函数 相 比 较 , 把 n 增 1 操作 改变 为 输 
出 中 间 过 程 量 a,b,c, 以 标明 具体 操作 进程 。 

在 主 函数 main() 中 ,分别 输入 a,bv,cv 的 值 后 ,为 寻求 较 少 的 分 倒 次 数 ,调用 试验 函 
数 并 比较 ml 二 probe(a,bv,cv) 与 m2 二 probe(a,cv,bv)。 

车 ml<0 且 m2<0, 表 明 无 法 平分 ( 均 为 中 断 标志 )。 

车 m2 二 0, 只 能 按 上 述 (1) 操 作 ; 车 0 二 ml 二 m2, 按 上 述 (1) 操 作 分 倒 次 数 较 少 ( 即 
ml)。 此 时 调用 实施 函数 practice(a,bv,cv)。 

车 ml 过 0, 只 能 按 上 述 (2) 操 作 ; 若 0 二 m2 二 ml, 按 上 述 (2) 操 作 分 倒 次 数 较 少 ( 即 
m2)。 此 时 调用 实施 函数 practice(a,cv,bv)。 

实施 函数 打印 整个 模拟 分 倒 操作 进程 中 的 a,b,c 的 值 ,并 用 变量 m 统计 分 倒 次 数 ,每 
一 行 打 印 第 m 次 及 a,b,c 的 值 。 

最 后 检验 次 数 , 如 果 m=n, 即 统计 次 数 无 误 , 打 印 出 最 少 的 分 倒 次 数 n。 


2. 泊 松 分 酒 的 程序 设计 


// 最 优 泊 松 分 酒 模拟 操作 

# include < stdio. h> 

void practice (int, int, int) ; // 调 用 函数 声明 
int d, n, probe (int, int, int) ; 

void main0 

{ int a,k,bv,cv,m1,m2; 
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printf(” 请 输入 酒 总 量 (偶数 ):"); scanf ("%d", &a) ; 
printf(” 两 空 杯 容 量 bv, cv 分 别 为 :"); scanf ("%%d,%d",&bv,&cv) ; 
if(a%2> 0) {printf(” 无 法 平分 1\n") ;return;} 
d= a/2; 
if(bv+ cevd) {printf(" 空 杯 容 量 太 小 ,无 法 平分 I\n"); return; } 
for (k=bv;k> 1;k--) 
if (bv% k==0 && cv% k==0 8&8 d% k> 0) 
{printf(” 无 法 平分 !\n") ;return;} 
m1= probe (a, bv, cv) ; m2= probe (a, cv, bv) ; 
if (m1<0 && m2< 0) {printf(” 无 法 平分 I\n");return;} // 排 除 无 解 情 形 
if (ml>0 && (m2<0 || mi<=m2)) {n=mi;practice (a, bv, ev) ;} 
else {n=m2;practice (a, cv, bv);} 
} 
void practice (int a, int bv, int cv) // 模 拟 实施 函数 
{ int b=0,c=0,m0; 
printf(” 平分 酒 的 分 倒 操作 :\n"); 
printf(” 次 数 ” 瓶 %d 杯 %d 杯 %d\n",a,bv,cv); 
printf(” 初始 %6d% 6d% 6d\n",a,b,c); 
while(!(a==d || b==d || c==d)) 
{ 
if (Ib) {a-=bv;b=bv;} 
else if(c==cv) {at+=cv;c=0;} 
else if (b> ev-¢) fb-= (cv-c);c=cvi] 
else {ct=b;b=0;} 
printf ("% 6d % 6d% 6d% 6d\n", m, a, b, ¢) ; 
} 
if (m==n)printf(” 至 少 分 倒 %d 次 实现 平分 。\n",n); 
} 
int probe (int a, int bv, int cv) // 试 验 函数 
{ intn=0,b=0,c=0; 
while(!(a==d || b==d || c==d)) 
{ if(lb) 
if (a<bv) {n=-1;break;} 
else {a-=bv;b=bv;} 
else if(c==cv) {at=cv;c=0;} 
else if (b> cv-¢) fb-= (cv-oc);ic=cvi] 
else {ct=b;b=0;} 
1 站 5 
} 


return(n); 
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3. 程序 运行 示例 与 说 明 


以 上 分 倒 操 作 的 理论 依据 是 5X6 一 2X11=8, 需 要 13 次 实现 平分 ; 若 依据 4X11 一 
6X6 二 8 实施 分 倒 操作 , 则 需要 18 次 实现 平分 。 显 然 ,13 次 是 最 少 操 作 次 数 。 

以 上 程序 中 ,对 ml 和 m2 的 全 路 径 判 断 虽然 可 以 获得 分 倒 次 数 较 少 的 方法 ,但 这 是 
建立 在 程序 有 解 的 前 提 之 下 ,而 程序 有 没有 解 并 不 能 通过 对 ml 和 m2 的 全 路 径 判 断 以 完 
全 确定 。 例 如 , 当 输 入 a 二 10,bv 二 4,cv 二 6 时 ,显然 没有 解 ,这 时 程序 进入 死 循 环 。 那 输 
入 的 数据 在 满足 什么 条 件 下 才 有 解 呢 ? 

令 k 二 gcd(bv,cv) 表 示 bv 与 cv 的 最 大 公约 数 , 且 满足 基本 条 件 bv 十 cv 三 (a/2) 时 ,可 
以 证 明 , 当 mod(Cd,k) 王 0 时 ,所 输入 的 数据 一 定 有 解 。 

特别 当 bv 与 cv 互 质 , 且 bv 十 cv 三 (a/2) 时 ,a 为 任何 偶数 都 有 解 。 


数 与 形 是 数学 主体 ,是 数学 殿堂 中 的 两 大 支柱 。 

数 在 形 中 , 数 构成 形 , 数 形 结合 ,是 展现 数学 美的 一 个 重要 方面 。 

数 是 形 的 灵魂 , 形 是 数 的 载体 , 数 形 结合 ,给 人 以 美的 启迪 与 升华 。 

本 章 汇 集 在 三 角形 、 五 角 星 等 几何 图 形 上 智能 填 数 趣 题 ;探索 构 建 和 积 三 角形 、 素 数 
和 环 与 数码 串珠 等 有 代表 性 的 数 形 结合 案例 。 同 时 ,通过 “ 数 形 结合 巧 求 最 值 ”探讨 数 形 
结合 在 解 题 中 的 转换 与 简化 效应 。 

数字 在 精巧 构思 下 排列 呈现 出 各 种 优美 生动 的 数字 金字 塔 数码 萎 形 ,横竖 折 对 称 方 
阵 、 斜 折 对 称 方 阵 与 旋转 方 阵 等 ,最 生动 .最 优雅 地 展现 出 数 形 结合 之 美 。 


8.1 三 角形 填 数 


图 形 中 填 数 作 为 一 种 智力 游戏 ,形式 变化 万 千 , 内 容 广泛 深入 , 深 受 广大 读者 喜爱 。 
本 节 在 三 角形 填 数 等 边 平方 和 与 三 角形 填 数 等 边 积 基 础 上 ,应 用 程序 设计 ,进一步 构 
建 < 和 积 三 角形 ”。 


8.1.1 等 边 平方 和 


先 探 求 一 个 简单 的 三 角形 填 数 题 。 
【问题 1】 填 数 等 边 平方 和 三 角形 。 
请 把 给 定 的 6 个 数字 1,4,7,8,11,13 不 重复 填 人 图 8-1 
所 示 的 6 个 圈 中 ,使 得 三 角形 的 3 边 上 3 个 数 之 平方 和 
相等 。 
【思考 】 配置 两 两 平方 和 相等 。 
注意 到 共 项 点 的 两 边 平方 和 相等 , 则 除 项 点 之 外 的 另 4 
个 数 中 ,其 中 2 个 数 的 平方 和 等 于 另 两 个 数 的 平方 和 。 图 8-1 6 圈 三 角形 
因此 可 在 1,4,7,8,11,13 这 6 个 数 中 配置 两 两 平方 和 
相等 : 
12 十 132 一 72 十 112 (1) 
12 十 8: 一 42 十 72 (2) 
4 笃 十 132 一 8 十 112 (3) 
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有 趣 的 是 ,给 出 的 6 个 数 都 在 以 上 3 个 等 式 中 出 现 两 次 。 
注意 到 式 (1) 中 缺 数字 4 与 8, 则 可 试探 以 4 或 8 作为 这 两 边 的 公共 顶点 。 

(1) 以 数字 4 为 其 公共 顶点 ,以 数字 8 为 男 一 边 的 中 间 数 ,并 由 (2)(3) 知 另 两 个 顶点 
为 1 与 11, 则 得 每 边 平方 和 为 186 的 等 边 平方 和 三 角形 ,如 图 8-2(a) 所 示 。 

(2) 以 数字 8 为 其 公共 顶点 ,以 数字 4 为 男 一 边 的 中 间 数 ,并 由 (2)(3) 知 另 两 个 顶点 
为 7 与 13, 则 得 每 边 平方 和 为 234 的 等 边 平方 和 三 角形 ,如 图 8-2(b) 所 示 。 


(a) (b) 
8-2 ”等 边 平方 和 的 两 个 解 


(3) 注意 到 式 (2) 中 缺 数 字 11 与 13, 则 可 试探 以 11 或 13 作为 这 两 边 的 公共 顶点 ,所 
得 两 个 等 边 平方 和 三 角形 即 为 以 上 两 个 解 。 

(4) 同样 , 式 (3) 中 缺 数字 1 与 7, 则 可 试探 以 1 或 7 作为 这 两 边 的 公共 顶点 ,所 得 两 
个 等 边 平方 和 三 角形 也 为 以 上 两 个 解 。 

【编程 拓展 】 构建 基于 n 的 等 边 平方 和 三 角形 。 

试 把 给 定 的 正 整数 n 分 解 为 6 个 互 不 相等 的 正 整数 ( 即 该 6 个 互 不 相等 的 正 整数 之 
和 等 于 给 定 整数 n) ,并 填 入 三 角形 的 6 个 圆圈 中 ( 见 图 8-2(a) ) 。 

若 填 数 后 三 角形 3 边 上 的 3 个 整数 的 平方 和 相等 (s1) ,该 三 角形 称 为 基于 n 的 等 边 
平方 和 三 角形 。 

为 避免 重复 ,约定 等 边 平方 和 三 角形 中 “3 顶点 数 中 , 底 边 左 最 小 , 底 边 右 最 大 ”。 

键盘 输入 整数 n(n 三 21) ,探求 所 有 基于 n 的 等 边 平方 和 三 角形 。 若 不 存在 基于 指定 
n 的 等 边 平方 和 三 角形 ,请 予以 指出 。 


1. 设计 要 点 
设置 b 数组 存储 三 角形 上 的 6 个 数 ,如 图 8-3 所 示 。 


(1) 建立 循环 。 
建立 循环 枚 举 3 顶 角 数 bL1],b[L3],b[5]( 约 定 b[1j 达 (ee) 


b[L3]<<bL5]) 。 
b[1]: 1 一 Cn 一 6)/3, 因 为 其 他 3 个 数 至 少 为 6, 而 b[1] 已 已 


是 3 顶 数 最 小 者 ; 
b[3]: b[1j 十 1~~(n 一 b[1] 一 6)/2, 因 为 其 他 3 个 数 至 Qo) (tw) (3) 


少 为 6, 而 b[3] 过 b[5]; 图 8-3 b 数 组 排列 图 
b[5]: b[3] 十 1~n 一 b[L1] 一 b[3] 一 6, 因 为 其 他 3 个 数 至 少 为 6。 
同时 设置 两 斜 边 中 间 点 bL2],b[L4] 循 环 : 
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b[L2]: 1~n 一 bL1] 一 bL3] 一 bL5] 一 3, 因 为 其 他 2 个 数 至 少 为 3; 

b[4j: 1~n 一 b[LI] 一 b[3] 一 b[5] 一 b[2] 一 1Cb[2] 与 bL4] 之 间 没 有 限定 大 小 ) 。 
最 后 ,第 6 个 数 bL6] 显 然 为 整数 n 减 去 循环 所 得 的 5 个 数 。 

(2) 设置 3 道 检验 。 

若 bL6] 不 是 正 整 数 , 则 返回 ; 

车 3 边 的 平方 和 sl1,s2.s3 互 不 相等 , 则 返回 ; 

若 分 解 的 6 个 数 bL1] 一 b[L6] 中 存在 重复 数 , 则 返回 。 

凡 通 过 以 上 3 道 检测 ,符合 题 意 要 求 , 则 打印 输出 。 


2. 程序 设计 


// 探 求 基于 n 的 等 边 平方 和 三 角形 
# include < stdio.h> 
voidmain0 
{ int ij,k,n,t,s1,s2,s3,b[7]; 
printf(” 请 确定 整数 n(n 宇 21) :") ;scanf ("%%d",&n) ; 
k=0; 
for (b[1]=1;b[1]< (n- 6)/3;b[1]++) // 设 置 枚 举 3 顶点 循环 
for (b[3]=b[1]+ 1;b[3]<= (n- b[1]- 6)/2;b[3]++) 
for (b[5]=b[3]+ 1;b[5]<=n- b[1]-b[3]- 6;b[5]++) 
for (b[2]=1;b[2]<=n- b[1]- b[3]- b[5]- 3;b[2]++) 
for (b[4]=1;b[4]<=n- b[1]-b[3]-b[5]- b[2]- 1;b[4]++) 
{ b[6]=n-b[1]-b[3]-b[5]-b[2]-b[4]; 
if (b[6]<=0) continue; // 检 测 分 解 的 6 个 数 是 否 为 非 正 数 
s1= (b[1] * b[1]+b[2] * b[2]+ b[3] * b[3]); 
s2= (b[1] * b[1]+b[6] * b[6]+ b[5] * b[5]); 
s3= (b[3] * b[3]+b[4] * b[4]+b[5] * b[5]) ; 
if (s1!= s2 ||s1!= s3) continue; // 检 测 3 边 平方 和 是 否 相等 
for (t=0, i=1;i<=5;i++) 
for(j=i+1;j<=6;j++) 


if (b[i]==b[j]) {t=1;i=5;break;} // 检 测 是 否 存 在 重复 数字 
if (t==0) 
{ printf(" %2d: %2d",++k,b[1]); 
for (i=2;i<=6;i++) // 统 计 解 的 个 数 并 输出 解 


printf(", %2d",b[i]); 
printf("; ”每 边 平方 和 :%d\n", s1); 


| 


if k>0) printf(” 共 以 上 %d 个 解 。\n" ,ki; 
else printf(” 无 解 。\n",k); 
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3. 程序 运行 示例 与 说 明 


请 确定 整数 nn 这 20) :100 

1: 1 30, 10, 15, 26, 18;， 每 边 平方 和 :1001 
2: 15, 26, 18， 1,， 30, 10; ”每 边 平方 和 :1225 
共 以 上 2 个 解 。 


顺便 指出 ,运行 程序 输入 n 一 44, 输 出 图 8-2 所 示 的 两 个 解 。 而 输入 n 二 44 时 均 无 解 。 
可 见 , 存 在 基于 mn 的 等 边 平 方 和 三 角形 的 n 最 小 值 是 44。 

有 意思 的 是 ,无 论 是 n 王 100, 还 是 n 二 44, 两 个 解 是 一 个 在 三 角形 上 旋转 3 个 圆圈 的 
关系 : 第 一 个 解 顺 时 针 旋 转 3 个 圆圈 得 第 二 个 解 ,第 二 个 解 顺 时 针 旋 转 3 个 圆圈 得 第 一 
不 解 s 

这 一 解 的 旋转 现象 是 有 趣 的 , 绝 非 偶然 巧合 ,对 任何 两 个 配对 解 都 适用 。 

不 妨 以 第 1 个 解 (1,30,10,15,26,18) 为 例 ,简单 推出 第 二 个 解 。 

因 两 边 公 共 10, 则 有 

1 十 30? 一 26: 十 15: 之 18: 十 1 十 30: 二 15? 十 26? 十 18? 
因 两 边 公 共 26 , 则 有 

18: 十 1 一 15: 十 10? 之 18? 十 了 2 十 30? 一 30? 十 10? 十 15? 
因而 得 


15? 十 26? 十 18? 一 18? 十 1? 十 30? 一 302 十 102 十 15? 
因而 第 二 个 解 (15,26,18,1,30,10) 成 立 。 
随 着 n 的 增加 ,等 边 平方 和 的 解数 大 幅 增加 。 例 如 ,对 于 n 一 200 有 22 个 解 ;对 于 
n 一 300 有 76 个 解 。 这 些 解 中 两 两 旋转 配对 。 


8.1.2 等 边 和 积 三 角形 


先 探求 一 个 简单 的 填 数 等 边 积 三 角形 ,然后 编程 探求 和 积 三 角形 。 

【问题 2】 填 数 等 边 积 三 角形 。 

请 把 数字 1.,2,3,4,6,8 不 重复 填 入 图 8-1 所 示 的 6 个 圈 中 ,使 得 三 角形 的 3 边 上 3 个 
数 之 积 相 等 , 即 bl Xb2Xb3 一 b3Xb4Xb5 一 b5Xb6Xbl。 

共有 多 少 种 不 同 的 填 人 法 (把 一 填 人 图 经 旋转 或 镜面 所 成 视 为 同一 填 人 法 )? 

【思考 】 为 叙述 方便 ,在 6 个 填 数 位 置 设置 变量 如 图 8-3 所 示 。 

同时 约定 三 角形 的 3 个 顶点 数 bl,b3,b5 的 大 小 : 下 左 bl 最 小 ,上 顶 b3 次 之 ,下 右 
b5 最 大 , 即 bl 二 b3 二 b5。 

设 等 边 积 为 s, 注 意 到 1X2X3X4X6X8==2? X3?, 在 计算 3 个 等 边 积 时 ,3 个 顶点 算 
了 两 次 ,因而 有 

和 

令 blXb3Xb5 一 m, 要 使 mX2”X3? 为 整数 的 立方 , 则 m 为 2X3 或 2 X3。 

(7 当 m=2X3 时。 

取 bl 王 1,b3 王 2.b5 一 6, 此 时 s 二 24, 推 得 b2 王 12 不 成 立 ,无 解 。 
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取 bl=1,b3 王 3,b5 一 4, 此 时 s 二 24, 得 解 1,8,3,2,4,6。 

(2) 当 m==25X3 时 。 

取 bl 王 3,b3 王 4,b5 一 8, 此 时 s 一 48, 推 得 b2 一 4 与 b3 
重复 ,无 解 。 (3) 

取 bl 一 2,b3 一 6,b5 一 8, 此 时 s 一 48, 得 解 2,3,6,1,8,3。 

共 得 以 上 两 个 解 。 () 四 

1: 1, 8, 3, 2, 4, 6; 每 边 积 : 24。 

2， 2, 4, 6, 1, 8, 3; 每 边 积 : 48。 CD 四 四 

共 两 个 解 ,其 中 第 一 个 解 如 图 8-4 所 示 。 图 8-4 等 边 积 填 数 

【编程 拓展 】 构建 基于 n 的 和 积 三 角形 。 

在 三 角形 的 3 边 带 有 8 个 圆圈 ,其 中 两 斜 边 上 有 4 个 , 底 边 上 有 3 个 ,如 图 8-5 所 示 。 
请 把 给 定 的 正 整数 n 分 解 为 8 个 互 不 相等 的 正 整 数 ( 即 该 8 个 互 不 相等 的 正 整数 之 和 等 
于 给 定 整数 n) ,并 填 人 三 角形 的 8 个 圆圈 中 。 

若 填 数 后 三 角形 三 边 上 的 数 和 相等 (s) 且 三 边 上 的 数 之 积 也 相等 (t) ,该 三 角形 称 为 
基于 mn 的 和 积 三 角形 。 

为 避免 重复 ,约定 和 积 三 角形 中 “下 边 左 小 右 大 , 斜 边 两 中 间 数 字 下 小 上 大 ”。 

键盘 输入 整数 n(n 三 36) ,探求 所 有 基于 n 的 和 积 三 角形 。 若 不 存在 基于 指定 n 的 和 
积 三 角形 ,请 予以 指出 。 

1. 设计 要 点 

这 是 一 个 新 颖 而 有 难度 的 数 形 结合 趣 题 ,设计 求解 分 以 下 几 个 阶段 。 

(1) 确定 数组 元 素 分 布 。 

把 和 为 nm 的 8 个 正 整 数 存储 于 b 数组 b(1),…:,b(8) ,分 布 如 图 8-6 所 示 。 为 避免 重 
复 ,根据 避免 重复 约定 的 三 角形 中 数字 “下 边 左 小 右 大 , 斜 边 两 中 间 数 字 下 小 上 大 ”的 规 
定 , 即 b(1)<b(7),b(2)<b(3),b(6)<b(5) 。 


b(4) 
b(3) b(5) 
b(2) b(6) 
b(1) b(8) b(7) 
图 8-5 8 数字 三 角形 图 8-6 b 数 组 分 布 示 意图 


(2) 设置 枚 举 循 环 。 

根据 约定 对 b(1) ,b(7),b(4) 的 值 进行 循环 探索 ,设置 b(1) 的 取 值 范围 为 1 一 (Cn 一 
21)/2;( 因 除 b(7) 外 其 他 6 个 数 之 和 至 少 为 21)b(7) 的 取 值 范 围 为 b(1) 十 1 一 (n 一 b(1) 
一 21);( 因 其 他 6 个 数 之 和 至 少 为 21)b(4) 的 取 值 范围 为 1 一 (n 一 b(C1) 一 b(7) 一 15)。( 因 
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其 他 5 个 数 之 和 至 少 为 15) 

(3) 检测 n 十 b(1) 十 b(7) 十 b(4) 否 能 被 3 整除 。 

设 和 积 三 角形 每 条 边 上 的 数字 之 和 为 s1, 注 意 到 三 角形 的 三 个 顶点 上 的 元 素 在 计算 
三 边 时 各 计算 了 两 次 , 即 n 十 bC1) 十 b(7) 十 b(4) 王 3Xs。 对 循环 产生 的 b(1),b(4) ,b(7)， 
设置 其 表达 式 n 十 b(1) 十 b(7) 十 b(4) 是 否 能 被 3 整除 的 检测 。 
若 Cn 十 b(1) 十 b(7) 十 b(4))%3 二 0, 则 返回 继续 探索 ;和 否则 , 记 边 和 s 一 Cn 十 b(1) 十 
b(7) 十 b(4))/3。 
(4) 设置 b(3),b(5) 循 环 。 
注意 到 b(2)<b(3), 则 b(2) 的 取 值 范围 为 1 一 (s 一 b(1) 一 b(4))/2; 同 时 ,b(6) 一 
b(5), 则 b(6) 的 取 值 范围 为 1 一 (s 一 b(4) 一 b(7))/2。 

同时 根据 各 边 之 和 为 s, 计 算出 b(3),b(5) 和 b(8) : 

b(3)=s—b(1)—b(4)—b(2) 

b(5)=s—b(4)—b(6)—b(7) 

b(8)=s—b(1)—b(7) 

(5) 检测 是 否 存在 相同 元 素 。 

设置 双重 循环 ,检测 b(1) 一 b(8) 是 否 相 同 。 如 果 存 在 相同 元 素 , 则 返回 。 

(6) 检测 是 否 满足 三 边 之 积 是 否 相 等 。 

如 果 三 边 之 积 不 相等 , 则 返回 。 

通过 以 上 (5)(6) 检 测 后 ,输出 和 积 三 角形 。 


2. 和 积 三 角形 程序 设计 


// 探 求 基 于 n 的 和 积 三 角形 
# include < stdio. h> 


voidmain0 
{ intd,i,j,k,s,n,b[9]; long t; 
printf(” 请 确定 整数 n(n 宇 36) :") ;scanf ("%d",&n); 
k=0; 
for (b[1]=1;b[1]<= (n- 21)/2;b[1]++) // 设 置 循环 枚 举 3 角 上 数 
for (b[7]=b[1]+ 1;b[7]<=n-b[1]- 21;b[7]+ +) 
for (b[4]=1;b[4]<=n-b[1]-b[7]- 15;b[4]++) 
{ if((ntb[1]+b[4]+b[7])% 3!=0) 
continue; // 检 测 n+b(1)+b(7)+b(4) 能 否 被 3 整除 
s= (nt b[1]+ b[4]+ b[7])/3; 
for (b[2]=1;b[2]<= (s-b[1]-b[4])/2:;b[2]++) 
for (b[6]=1;b[6]<= (s- b[4]-b[7])/2;b[6]++) 
{ b[3]=s-b[1]-b[4]-b[2];b[5]=s-b[4]-b[7]-b[6]; 
b[8]= s-b[1]-b[7]; d= 0; 
for (i=1;i<=7;i++) 
for (j=i+1;j<=8;j++) 
if (b[i]==b[j]) {d=1;i=7;break;} 
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if(d==1) continue; // 存 在 重复 数字 则 返回 
t=b[1] * b[2] * b[3] * b[4]; 
if (b[4] * b[5] * b[6] * b[7]!=t || b[1] * b[8] * b[7]!=t) 

continue; //3 边 之 积 不 相等 则 返回 
printf(” %d: %2d",++k,b[1]); // 统 计 解 的 个 数 并 输出 解 
for (i=2;i<=8;i++) 

printf(", %2d",b[i]); 
printf(” s=%d，t=%1d \n",s,t); 


} 
if(k>0) printf(” 共 以 上 %d 个 解 。\n",k); 
else printf(” 无 解 。\n",k); 
} 


3. 程序 运行 示例 与 变通 

请 确定 整数 nn 之 36) :45 

Te 2 BS 9 Ws ds 9) M2 6 ee 20 td 
共 以 上 1 个 解 。 


此 和 积 三 角形 如 图 8-7 所 示 。 


图 8-7 基于 45 的 和 积 三 角形 
如 果 输 入 n 二 36 一 44, 没 有 解 输出 。 可 见 n 至 少 为 45 时 , 才 出 现 和 积 三 角形 。 


请 确定 整数 nn 三 36 :150 

1: 12, 24, 28, 1, 18, 14, 32, 21 s=65, t=8064 
2: 15, 7, 38, 2, 35, 6, 19, 28 s=62, t=7980 
共 以 上 2 个 解 。 


以 上 两 个 基于 150 的 和 积 三 角形 中 ,把 给 出 的 n 一 150 分 解 为 8 个 数 , 填 人 三 角形 的 8 
个 圆圈 ,构建 的 和 积 三 角形 的 3 边 上 的 数 和 相等 ,同时 积 也 相等 ,从 一 个 侧面 展现 了 数 形 
结合 精巧 之 美 。 
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8.2 爱 因 斯 坦 填 数 题 


著名 物理 学 家 爱 因 斯 坦 有 很 多 小 故事 , 据 称 下 面 是 爱 因 斯 坦 做 过 的 一 道 颇 为 复杂 有 


趣 的 填 数 题 。 A D 
图 中 共有 9 个 交点 A 一 1, 含 7 个 不 同 的 三 角形 : 
ABC, ADEF, ACEG, AGHI, 和 ADG, ABEH 与 CFI 3 


( 见 图 8-8) ,请 把 数字 1,2,3,… ,9 不 重复 填 入 图 中 的 9 个 交 


点 ,使 得 图 中 7 个 三 角形 的 3 个 顶点 数字 之 和 相等 。 
H 1 


1 问题 拓展 图 8-8 9 交点 7 三 角形 填 数 

上 题 具体 给 出 了 填 数 的 9 个 数字 ,为 一 般 计 ,拓展 为 给 
定 一 个 整数 n ,把 整数 n 分 解 为 9 个 互 不 相同 的 整数 。 然 后 把 分 解 的 9 个 数字 不 重复 填 人 
图 8-8 中 的 9 个 交点 ,使 得 图 中 7 个 三 角形 的 三 个 顶点 数字 之 和 均 相 等 。 

输入 整数 n, 输 出 把 n 分 解 的 9 个 整数 填 数 的 所 有 不 同 的 填 法 。( 为 避免 重复 ,约定 
中 央 三 点 C<E<G) 


2. 填 数 设计 要 点 
为 设计 比较 方便 ,把 图 中 的 9 个 交点 用 b 数组 元 素 b(1) 一 b(9) 表 示 如 图 8-9 所 示 。 
(1) 求 出 三 角形 3 顶点 数字 之 和 。 b(1) b(2) 


设 三 角形 3 顶点 数字 之 和 均 为 s, 注 意 到 在 7 个 三 角形 求 

和 时 ,中 央 三 角形 的 3 个 顶点 C,E,G 用 了 3 次 (例如 C 点 是 pbG) \7 b(6) 

和 AABC,ACEG 与 ACFI 这 3 个 三 角形 的 顶点 ), 其 他 顶点 用 \%/ 

了 两 次 ,而 b(4),b(5),b(7) 为 一 个 三 角形 的 3 个 顶点 , 即 从 /\ (0) 
b(4) 十 b(5) 十 b(7) 一 s 0 
7s 一 2n 十 s &s=n/3 
即 得 输入 的 整数 n 必须 为 3 的 倍数 ,否则 没有 填 数 解 。 

(2) 枚 举 初 定 中 央 三 角形 。 


(3) 枚 举 b(1) , 据 s 求 出 其 他 5 个 点 的 值 。 

(4) 设置 3 道 检测 。 

若 数字 超 界 , 即 b[j 过 1G 二 1,2,…,9), 则 返回 ; 

若 最 底 三 角形 之 和 b[L7] 十 b[L8j 十 b[9j] 关 s, 则 返回 ;( 其 他 6 个 三 角形 之 和 均 为 s) 
若 分 解 的 9 个 整数 之 间 出 现 相等 , 则 返回 。 

(5) 通过 以 上 3 道 检测 即 为 一 个 填 数字 解 , 用 m 统计 个 数 并 输出 。 


3. 程序 设计 


// 拓 展 爱 因 斯 坦 的 填 数 趣 题 
# include < stdio. h> 


void main0 
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{ intk,j,t,m,n,s,b[10]; 
printf(” 请 输入 整数 n: ") ;scanf("%d",&n) ; 
if(n%3>0) {printf(” 无 填 数 解 。\n"); return;} 
m0; s=n/3; 
for (b[4]=1;b[4]<= (s- 3)/3;b[4]++) 
for (b[5]=b[4]+ 1;b[5]<= (s- b[4]- 1)/2;b[5]++) 
{ b[7]=s-b[4]-b[5]; 

if(b[7]<=b[5]) continue; 

for (b[1]=1;b[1]<= s- 3;b[1]++) 

{ b[2]=s-b[1]-b[7]; b[6]=s-b[2]-b[5]; 
b[3]= s-b[1]-b[4]; b[8]= s- b[3]-b[5]; 
b[9]= s- b[6]- b[4]; 
for (t=0, j=1;j<=9;j++) 

if(b[j]<1) {t=1; break;} 
if(t==1 || b[7]+b[8]+b[9]!= s) continue; 
for (t=0, k=1;k<=8;k++) 
for (j=k+1;j<=9;j++) 
if (b[k]==b[j]) {t=1;k=8;break;} 
if(t==1) continue; 
printf(" %d: %2d",++m,b[1]); 
for (j=2;j<=9;j++) 
printf(", %2d",b[j]); 
printf ("\n"); 
} 
} 
printf(” 共 以 上 %d 个 填 数 解 。\n",m); 


4. 程序 运行 结果 

请 输入 整数 n:45 
TAN OO 
ZO MR 2 0578 3 4 
> 2 9 AT 8 
GO er 9 OA 

Se 


把 45 分 解 为 9 个 互 不 相等 的 正 整数 ,这 9 个 整 
数 即 为 1,2,3,…,9, 因 而 以 上 运行 所 得 结果 即 为 前 面 
爱 因 斯 坦 填 数 题 的 4 个 解 。 其 中 第 1 个 解 的 图 形 如 
图 8-10 所 示 。 

所 得 4 个 解 的 第 5 个 数字 均 为 数字 5, 这 纯 属 
巧合 。 

车 输入 n=60 ,可 得 符合 要 求 的 20 个 填 数 解 。 
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// 设 置 循 环 枚 举 


// 数 字 超 界 返 回 
// 存 在 三 角形 和 不 等 时 返回 


// 存 在 相同 数字 返回 


// 统 计 解 的 个 数 并 输出 解 


图 8-10 7 Dan 
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8.3 五 角 星 填 数 


作为 图 形 ,五 角 星 比 前 面 的 三 角形 稍 显 复杂 ,其 相交 点 有 10 个 ,是 男 一 类 数 形 结合 填 
数 游戏 平台 。 
本 节 探 讨 在 五 角 星 的 10 个 交点 上 填 数 ,实现 “ 形 等 和 ”与 “ 线 等 和 ”等 不 同 要 求 。 


8.3.1 形 等 和 


【问题 1】 五 角 星 填 数 形 5 个 三 角形 等 和 。 

请 把 10 个 整数 1,2,…,10 填 入 图 8-11 所 示 的 五 角 星 图 形 中 的 10 个 圆圈 中 ,使 得 图 
中 5 个 尖 角 小 三 角形 的 3 数 之 和 相等 。 

【思考 】 先行 填 数 中 央 5 边 形 。 

设 图 中 5 个 尖 角 小 三 角形 的 3 数 之 和 为 s, 图 中 央 5 
边 形 上 5 数 之 和 为 m, 注 意 到 所 给 10 个 整数 之 和 为 55， 
计算 5 个 三 角形 之 和 时 中 央 5 边 形 上 5 数 算 了 两 次 , 显 
然 有 

55 十 m 一 5s 

由 此 可 见 , 中 央 5 边 形 上 5 数 之 和 m 为 5 的 整 
数 倍 。 

不 妨 中 央 5 边 形 上 5 数 分 别 为 1,2,3,4,5, 易 得 m= 二 15,s 二 14。 且 此 时 5 个 角 上 的 数 
为 Dd, 

关键 是 如 何 把 1,2,3,4.5 分 布 到 中 央 5 边 形 上 。 一旦 分 布 确定 , 尖 角 5 数 也 随 之 
确定 。 

(1) 两 小 数 不 能 相 邻 ,两 大 数 也 不 能 相 邻 。 

在 中 央 5 边 形 上 ,显然 1 与 2 不 能 相 邻 。 若 相 邻 ,其 对 应 角 上 的 数 为 14 一 (1 十 2) 一 
11 ,超出 范围 。 

同样 ,在 中 央 5 边 形 上 ,4 与 5 也 不 能 相 邻 。 若 相 邻 ,其 对 应 角 上 的 数 为 14 一 (4 十 5) 一 
5, 出 现 重复 。 

(2) 5 边 形 上 两 相 邻 数 之 和 不 能 相等 。 

在 中 央 5 边 形 上 , 若 1 与 4 相 邻 ,2 与 3 相 邻 ,其 和 都 为 5, 则 其 对 应 的 角 上 数 都 应 为 
9, 出 现 重复 。 

(3) 确定 相 邻 两 数 之 和 的 范围 。 

中 央 5 边 形 上 相 邻 两 数 之 和 应 大 于 3 小 于 9, 可见 相 邻 两 数 之 和 的 范围 为 L4,8], 即 确 
定 相 邻 两 数 之 和 的 5 个 数 与 区 间 [4,8] 上 的 5 个 数 一 一 对 应 。 

满足 这 一 一 对 应 的 分 布 是 存在 的 。 例 如 ,把 1,4,2,5,3 依次 填 人 中 央 5 边 形 上 (其 中 
1 也 与 3 相 邻 ), 则 对 应 的 相 邻 两 数 之 和 分 别 是 5,6,7,8,4, 与 区 间 [4,8] 相 吻合 。 

把 1,4,2,5,3 依次 填 人 中 央 5 边 形 上 ,对 应 角 上 的 数 依次 是 9,8,7,6,10, 自 然 与 区 间 


8-11 10 数字 五 角 星 
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[6 ,10] 相 吻合 ,完成 构建 5 个 三 角形 等 和 填 数 ,如 图 8-12 所 示 ,每 个 三 角形 之 和 为 14。 

【拓展 】 

定义 图 8-12 所 示 的 五 角 星 图 形 中 的 “6 形 ? 为 5 个 尖 角 三 角形 与 中 央 5 边 形 。 

试 把 给 定 的 整数 n(n 三 55) 分 解 为 互 不 相等 的 10 个 整数 ,把 这 10 个 整数 不 重复 填 人 
图 8-12 所 示 的 10 个 圈 内 ,使 得 图 8-12 中 6 形 的 各 数 之 和 相等 。 

统计 不 同 的 填 人 法 (把 一 填 和 人 图 经 旋转 或 镜面 所 成 视 为 同一 填 和 人 法), 并 输出 各 十 
大 

1. 设计 要 点 

在 图 中 圆圈 位 置 建 立 b 数组 b[L1] 一 bL10] 存 储 所 填 的 10 个 数 ,b 数组 分 布 如 图 8-13 
所 示 。 


图 8-12 5 个 三 角形 等 和 填 数 图 8-13 五 角 星 b 数组 分 布 


(1) 约定 图 形 的 顶 数 与 脚 数 大 小 。 

为 了 避免 不 同 的 填 人 法 重复 统计 ,约定 图 中 5 个 尖 角 数 中 “ 顶 数 ”最 小 ,两 脚 数 中 右 数 
小 于 左 数 , 即 bL1]<b[2],b[3],b[L4],b[5];b[3]<b[4] 。 

(2) 确定 m,n 的 关系 。 

设 6 形 等 和 为 m, 在 计算 5 个 三 角形 之 和 时 ,中 央 5 边 形 上 的 数 计算 了 两 次 ,因而 有 

5m 一 n 十 m 各 n=4m 

在 输入 整数 n 时 ,n 须 为 4 的 整数 倍 , 和 否则 无 解 。 

输入 整数 n, 则 m 一 n/4。 

(3) 建立 循环 枚 举 。 

考虑 建立 循环 枚 举 中 央 5 边 形 的 5 个 数 ,中 央 5 边 形 的 5 个 数 一 经 确定 ,这 5 个 数 之 
和 为 m, 则 相应 5 个 三 角形 的 3 个 数 之 和 都 为 m, 各 三 角形 的 尖 角 数 也 就 确定 。 

建立 循环 枚 举 中 央 5 边 形 的 4 个 数 b[6] 一 b[9] 如 下 所 示 。 

b[L6]: 1 一 n 一 45( 因 为 其 他 9 个 数 之 和 至 少 为 45); 

bL7]: 1 一 n 一 bL6] 一 36( 因 为 其 他 8 个 数 之 和 至 少 为 36); 

bL8]: 1~n 一 b[6] 一 b[L7] 一 28( 因 为 其 他 7 个 数 之 和 至 少 为 28); 

b[9]: 1~n 一 bL6] 一 bL7] 一 b[L8] 一 21( 因 为 其 他 6 个 数 之 和 至 少 为 21) 。 

则 bL1o]=m 一 (bL6] 十 bL7] 十 bL8] 十 bL9]) ,同时 三 角形 的 各 个 尖 角 数 bL1] 一 b[5] 
随 之 确定 。 
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(4) 经 3 道 检 验 。 
车 bL10] 一 0, 返 回 ; 
若 b[1] 为 非 正 数 或 不 是 尖 角 数 最 小 ,或 bL3] 字 pbL4] ,与 约定 不 符 , 返 回 ; 
建立 2 重 循环 检验 所 得 10 个 数 中 是 否 存在 重复 数 , 若 存 在 重复 (t==1) ,退出 返回 。 
(5) 统计 并 输出 不 同 填 人 法 。 
通过 以 上 3 道 检 验 后 ,应 用 k 十 十 统计 填 人 法 种 数 ; 同 时 输出 满足 此 五 角 星 中 6 形 等 
和 的 填 入 数 bL1]~b[L10]。 


2. 程序 设计 


// 五 角 星 6 形 等 和 填 数 
# include< stdio. h> 
voidmain0 
{ int i,j,k,m,n,t,b[11]; 
printf(” 请 确定 整数 n(n 宇 55) :") ;scanf ("%%d",&n) ; 
if (n% 4> 0) return; 
k=0; m= n/4; 
for (b[6]=1;b[6]<=n- 45;b[6]++) 
for (b[7]= 1;b[7]<=n- b[6]- 36;b[7]++) // 设 置 枚 举 中 心 5 数 循环 
for (b[8]=1;b[8]<=n- b[6]- b[7]- 28;b[8]++) 
for (b[9]= 1;b[9]<=n-b[6]-b[7]-b[8]- 21;b[9]++) 
{ b[10]=m- (b[6]+b[7]+b[8]+b[9]); 
if (b[10]< 0) continue; 
b[1]=m- b[6]-b[10] ;b[2]=m- b[6]~b[7];b[3]=m- b[7]~b[8]; 
b[4]=m- b[8]- b[9];b[5]=m- b[9]- b[10]; 
if(b[2]<b[1] || b[3]<b[1] || b[4]<b[1] || b[s]<b[1] || bl1]¢=0 || b[3]>b[4]) 
continue; // 确 保 顶 数 在 尖 角 最 小 且 底 左 小 
右 大 
for (t=0, i=1;i<=9;i++) 
for (j= i+1;j<=10;j++) 


if (b[i]==b[j]) {t=1;i=9;break;} // 检 测 是 否 存 在 重复 数字 
if (t==0) 
{ printf(” %d: %d",++k,b[1]); 

for (i=2;i<=10;i++) // 输 出 一 个 6 形 等 和 填 数 


printf(", %d",b[i]); 
printf ("\n"); 


| 
if(k>0) printf(” 等 和 为 %d, 共有 以 上 %d 个 不 同 填 数 。\n",n/4,k); 
else printf(” 不 存在 6 形 等 和 填 数 。\n"); 


3. 程序 运行 示例 与 说 明 
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请 确定 整数 n(n 宇 55) :60 
1: 6, 8, 10, 12, 9, 4, 3, 2, 1, 5 


2 OMAN 2 dN 
er fp 9 04 294 
等 和 为 15, 共有 以 上 3 个 不 同 填 数 。 


其 中 第 1 个 五 角 星 6 形 等 和 解 如 图 8-14 所 示 。 
8.3.2 线 等 和 


五 角 星 图 上 有 5 条 直线 ,围绕 这 5 条 直线 填 数 , 则 另 
有 一 番 思 考 。 

【问题 2〗 五 角 星 填 数 形 5 条 直线 等 和 。 

请 把 10 个 整数 1,2,3,4,5,6,8,9,10,12 填 和 人 图 8-11 
所 示 的 五 角 星 图 形 中 的 10 个 圆圈 中 ,使 得 图 中 5 条 直线 
上 的 4 数 之 和 相等 。 图 8-14 五 角 星 6 形 等 和 图 

【思考 】 从 先 填 数 中 央 5 边 形 入 手 。 

设 图 中 5 条 直线 上 的 4 数 之 和 为 s, 注 意 到 所 给 10 个 整数 之 和 为 60, 计 算 5 条 直线 上 
的 4 数 之 和 时 ,所 有 10 个 数 都 算 了 两 次 ,显然 有 

2X60=5s ss= 24 

不 妨 设 中 央 5 边 形 上 5 数 分 别 为 1,2,3,4,5, 此 时 5 个 角 上 的 数 为 6,8,9,10,12。 

关键 是 如 何 把 1,2,3,4,5 分 布 到 中 央 5 边 形 上 ,然后 再 根据 中 央 的 分 布 再 分 布 6,8， 
9,10,12 到 角 上 。 

(1) 确定 中 央 5 边 形 分 布 。 

如 果 能 把 1,2,3,4,5 分 布 到 中 央 5 边 形 上 ,使 得 两 相 邻 数 之 和 为 [4,8] 上 的 5 个 数 ; 
再 把 6,8,9,10,12 分 布 到 角 上 ,使 得 两 两 相 加 之 和 为 区 间 [16,20] 上 的 5 个 数 ,为 最 后 配 
置 完成 5 条 直线 等 和 提供 方便 。 

中 央 5 边 形 上 ,把 3,1,4,2,5( 其 中 5 也 与 3 相 邻 ) 依 次 填 人 中 央 5 边 形 上 ,对 应 的 相 
邻 两 数 之 和 分 别 是 4,5,6,7,8, 与 区 间 [4,8] 相 吻合 。 

同时 把 6,10,9,8,12( 其 中 12 也 与 6 相 邻 ) 填 在 5 个 尖 角 上 ,对 应 的 相 邻 两 数 之 和 分 
别 是 16,17,18,19,20, 与 区 间 [16,20] 相 吻合 。 

(2) 确定 各 尖 角 数 。 


看 线 3,5 与 线 1,4 的 交点 上 应 填 什 么 数 ,注意 到 这 
两 线 的 中 间 两 数 之 和 分 别 为 8 与 5, 而 要 求 直线 上 4 数 
之 和 为 24, 其 差额 分 别 为 16 与 19, 找 5 个 尖 角 上 对 应 的 
相 邻 两 数 之 和 分 别 是 16 与 19 的 交点 是 10, 因 而 把 10 
填 入 线 3,5 与 线 1,4 的 交点 。 

其 他 以 此 类 推 , 完 成 构建 5 条 直线 等 和 填 数 ,如 
图 8-15 所 示 ,每 条 直线 之 和 为 24。 


0 
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【拓展 】 

试 把 给 定 的 整数 n(n 宇 55) 分 解 为 互 不 相等 的 10 个 整数 ,把 这 10 个 整数 不 重复 填 入 
图 8-11 所 示 的 五 角 星 图 形 中 的 10 个 圈 内 ,使 得 图 中 5 条 直线 上 4 个 数 之 和 都 相等 。 

统计 不 同 的 填 入 法 (把 某 一 填 入 图 经 旋转 或 镜面 所 成 视 为 同一 填 入 法 ), 并 输出 中 央 
5 边 形 上 5 数 之 和 为 最 小 的 一 个 填 入 法 。 


1. 程序 设计 要 点 

在 图 中 圆圈 位 置 建立 b 数组 bL1] 一 bL10] 存 储 分 布 如 图 8-13 所 示 。 不 同 的 填 人 法 对 
b 数组 的 要 求 同 前 。 

计算 5 条 直线 之 和 时 所 有 10 个 数据 计算 了 两 次 ,可 得 直线 等 量 和 为 s 一 2Xn/5。 

可 知 输入 的 整数 n 必须 为 5 的 倍数 。 
(1) 建立 循环 枚 举 。 
考虑 建立 循环 枚 举 各 尖 角 的 5 个 数 b[L1] 一 b[5]。 
b[1j: 1~n 一 45( 因 为 其 他 9 个 数 之 和 至 少 为 45); 
[2]: b[1j 十 1~n 一 b[1] 一 36( 因 为 其 他 8 个 数 之 和 至 少 为 36); 
[3]: b[1] 十 1~~(n 一 b[1j 一 b[2j 一 21)/2( 因 为 b[3] 二 b[4], 其 他 6 个 数 之 和 至 少 
为 21); 
b[4]: b[L3j 十 1~n 一 b[1] 一 b[2j 一 bL3j] 一 21( 因 为 其 他 6 个 数 之 和 至 少 为 21); 
bL5]: b[1J 十 1~~n 一 b[1J 一 b[2] 一 b[3] 一 b[4]j 一 15( 因 为 其 他 5 个 数 之 和 至 少 为 15)。 
同时 记 : m=b[L1] 十 b[2] 十 b[L3] 十 b[4] 十 b[5]。 
以 上 5 尖 角 5 个 数 确定 之 后 ,还 须 通 过 循环 枚 举 bL6]: 1 一 n 一 m 一 10( 因 为 其 他 4 个 
数 之 和 至 少 为 10) 。 

然后 通过 直线 和 s 与 b[LI] 一 b[6], 求 出 余下 的 4 个 数 b[7] 一 b[10]。 

(2) 经 3 道 检验 。 

以 上 b[7] 一 b[10] 经 减 运算 所 得 ,为 保险 计 , 检 验 b[7] 一 b[10] 是 否 为 正 数 。 若 存在 
非 正 数 ,与 约定 不 符 , 返 回 ; 

以 上 求 bL7] 一 bL10] 时 确保 4 条 直线 等 量 和 为 s, 还 需 检 验 第 5 条 直线 和 是 否 也 为 s， 
若 其 和 bL2] 十 bL5] 十 bL6] 十 bL10] 天 s, 则 返回 。 

建立 二 重 循环 检验 所 得 10 个 数 中 是 否 存在 重复 数 , 若 存在 重复 (t=1) ,退出 返回 。 

(3) 统计 并 比较 边 和 最 大 。 

通过 以 上 3 道 检验 后 ,应 用 k 十 十 统计 填 人 法 种 数 ;当中 央 5 边 形 的 5 个 数 之 和 n 一 m 
最 小 时 ,m 最 大 。 通 过 比较 求 n 一 m 的 最 小 值 min, 并 应 用 a 数组 存储 n 一 m 最 小 时 的 填 
入 数 。 

最 后 输出 种 数 及 中 央 5 边 形 的 5 个 数 之 和 最 小 时 的 填 入 数据 aL1]~a[L10]。 


2. 程序 设计 


//5 直线 等 和 之 五 角 星 填 数 
# include < stdio. h> 


void main0 


b 
b 
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{ intd,i,j,n,t,s,m,min,a[11],b[11];long k; 
printf(” 请 确定 整数 n(n 宇 55) :") ;scanf ("%d",&n); 
if (n% 5> 0) return; 
k= 0; min= 1000;s=2* n/5; 
for (b[1]=1;b[1]<=n- 45;b[1]++) 
for (b[2]=b[1]+ 1;b[2]<=n-b[1]- 36;b[2]++) 
for (b[3]=b[1]+ 1;b[3]<= (n- b[1]- b[2]- 21)/2;b[3]+ +) 
for (b[4]=b[3]+ 1;b[4]<=n-b[1]-b[2]- b[3]- 21;b[4]++) 


for (b[5]=b[1]+ 1;b[5]<=n- b[1]-b[2]-b[3]- b[4]- 15;b[5]++) 
{ m=b[1]+b[2]+b[3]+b[4]+b[5]; 

for (b[6]=1;b[6]<=n-m- 10;b[6]++) 

{ b[7]=s-b[1]-b[3]-b[6]; b[8]=s-b[2]-b[4]-b[7]; 
b[9]= s- b[3]- b[5]- b[8]; b[10]= s-b[1]- b[4]- b[9]; 
if(b[7]<=0 || bl8]<=0 || bl9]<=0 || b[10]<=0) 

continue; 
if (b[2]+ b[5]+ b[6]+b[10]!= s) 
continue; 
for (t=0, i=1;i<=9;i++) 
for (j=i+1;j<=10;j++) 
if (b[i]==b[j]) 
{t=1;i=9;break;} 
if (t==0) 
站 
ifo-mmin) 
{ min=n-m; 
for(i=1;i<=10;i++) a[i]=b[i]; 


| 
if (k> 0) 
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// 设 置 枚 举 中 心 5 数 循环 


// 确 保 b4> b3,b1 在 角 为 最 小 


// 排 除 5 角 出 现 负 数 及 项 非 最 小 


// 排 除 5 直线 之 和 不 为 s 


// 检 测 是 否 存在 重复 数字 


// 统 计 解 的 个 数 


{ printf(” 共有 % 1d 个 不 同 填 数 。 其 中 中 央 5 数 最 小 的 填 数 为 :\n",k); 


printf(” %2d",a[1]) ; 
for (i=2;i<=10;i++) 
printf(", %d",a[i]); 

printf("; 每 直线 等 和 为 %d。\n", s) ; 

printf(” 此 时 中 央 5 数 和 最 小 为 :%d\n", min) ; 
} 
else printf(” 不 存在 5 直线 等 和 填 数 。\n"); 

} 


3. 程序 运行 示例 与 说 明 


// 输 出 中 央 5 数 最 小 的 填 数 
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请 确定 整数 n(n 宇 55) :60 

共有 24 个 不 同 填 数 。 其 中 中 央 5 数 最 小 的 填 数 为 : 
6，8，10, 12, 9，5，3，1, 4, 2; 每 直线 等 和 为 24。 

此 时 中 央 5 数 和 最 小 为 :15 


输出 的 解 如 图 8-16 所 示 。 


图 8-16 ”中央 最 小 5 线 等 和 图 


填 数 解 随 着 n 的 增加 而 大 幅 增 加 。 
8.4 数 形 结合 巧 求 最 值 


数 形 结合 不 仅 可 使 图 增色 形 添彩 ,有 时 还 是 一 种 简化 问题 求解 的 转换 手段 。 
本 节 应 用 数 形 结合 巧 求 一 类 涉及 两 个 根 号 和 与 差 函 数 的 最 值 。 
【问题 】 已 知 关于 实数 x 的 函数 
yl x 一 2x 十 10 十 Vx? 十 4x 十 5 (1) 
+ 5 02} 


y2 x 一 2x 十 10 关卡 你 
试 求 yl 的 最 小 值 与 y2 的 最 大 值 。 
【思考 】 把 根 号 转换 成 线段 ,把 式 转换 成 形 ,是 简化 求解 的 关键 。 
根据 这 两 个 函数 的 结构 特点 ,联想 到 两 个 根 号 相当 于 两 条 线段 的 长 ,可 考虑 应 用 数 形 
结合 简化 最 值 的 探求 过 程 。 


对 函数 式 作 简单 变形 ,有 
y= V(x 一 1)? 十 3 十 V(x 十 2)? 十 1 (3) 
y2 人 二 (4) 


在 直角 坐标 系 中 , 设 x 轴 上 动 点 了 的 坐标 为 P(x,0), 另 两 定点 A(1,3),B( 一 2,1) ,如 
图 8-17 所 示 。 

显然 

PA= V(Cx 一 1 和 7 十 3 ,PB (x+2)’ 二 1 
因而 


yl = PA 二 +PB,y2 = PA—PB 
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图 8-17 P 与 A,B 的 坐标 图 
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(1) 求 yl 的 最 小 值 。 

在 图 中 找 B( 一 2,1) 点 关于 x 轴 的 对 称 点 B'( 一 2, 一 1) ,连接 AB' 交 x 轴 于 C 点 , 易 知 
PB 王 PB' ,线段 AB'=5, 交 点 C( 一 5/4,0) 。 

由 

7L 一 PA 二 PB 王 PA 十 PB'AB'=5 

取 动 点 P 点 于 C 点 ,上 式 等 号 成 立 。 即 当 x= 王 一 5/4 时 ,yl 有 最 小 值 5。 

(2) 求 y2 的 最 大 值 。 

连接 AB 延长 交 x 轴 于 D 点 , 易 知 线段 AB= V13 ,交点 D( 一 7/2,0) 。 

据 三 角形 两 边 之 差 小 于 第 3 边 ,得 

y2= PA—PB< AB= Vi3 

当 且 仅 当 A,B,P 共 线 ,也 就 是 动 点 P 位 于 D( 一 7/2,0) 时 等 号 成 立 。 即 当 x 一 一 7/2 
时 ,y2 有 最 大 值 V13。 

函数 (1)(2) 是 数 式 , 通 过 数 形 结合 转化 为 形 ,所 有 关系 窜 然 开朗 。 

函数 yl 的 最 小 值 就 是 两 线段 PA,PB 之 和 的 最 小 值 , 即 线段 AB' 之 长 ; 

函数 y2 的 最 大 值 就 是 两 线段 PA ,PB 之 差 的 最 大 值 , 即 线段 AB 之 长 。 

【编程 拓展 】 把 以 上 函数 式 (1)(2) 拓 展 到 3 个 根 号 ,并 实施 加 权 。 

已 知 参 数 q 三 0, 关 于 实数 x 的 函数 

yl x 一 2x 十 10 十 q。 Vx? 十 2x 十 5 十 (1 十 q)。 Vx 十 4x 十 5 (5) 
y2 好 一 2x 十 10 十 q。V 邓 十 2x 十 5 一 (1 十 9)。V 邓 十 4x 十 5 (6) 

试 求 yl 的 最 小 值 与 y2 的 最 大 值 ( 精 确 到 小 数 点 后 7 位 )。 

1. 编程 设计 要 点 

函数 式 (5)(6) 的 几何 意义 是 一 动 点 与 3 个 定点 组 成 3 条 线段 的 加 权 代 数 和 ,使 得 函 
数 式 (1)(2) 是 (5)(6) 取 gq=0 的 特例 。 

尽管 清楚 函数 式 (5)(6) 的 几何 意义 ,但 简单 应 用 数 形 结合 求解 受阻 。 拟 实施 编程 ,应 
用 分 级 求 精 设 计 程 序 。 

为 开 方 方便 ,设置 双 精度 型 变量 处 理 。 

为 了 达到 指定 的 精度 要 求 ,提高 循环 效益 ,设置 kC1 一 7) 循 环 实施 分 级 求 精 。 

(1) 循环 参数 x1 ,x3 取 初 值 x1 10 十 d;x3 二 10 一 d;d 二 0.01( 必 要 时 可 调整 )。 

(2) 对 于 循环 中 的 每 个 变量 x, 分 别 按 函 数 式 计算 yl 与 Y2。 每 一 个 yl 值 与 min 比 
较 确 定 最 小 值 ,每 一 个 y2 值 与 max 比较 确定 最 大 值 。 

(3) 每 一 级 x 的 循环 起 点 xl 与 终点 x3 定位 在 上 一 级 的 最 小 值 点 x2 附近 , 即 xl 一 
x2 一 d4,x3 一 x2 十 d。 

(4) 每 一 级 的 循环 步 长 d 缩减 为 前 一 级 的 1/10, 即 d 一 d/10。 

这 样 处 理 , 可 有 效 缩减 循环 次 数 ,确保 精度 要 求 。 


2. 程序 设计 
// 探 求 函 数 y1 最 小 值 与 Y2 最 大 值 
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# include < math. h> 

# include < stdio.h> 

void main0 

{ int k;double d,q, x, x1, x2, x3, y1, y2, max,min; 
printf(” 请 输入 参数 q: "); scanf("% 1f",&q) ; 


max= 0;min= 1000; d= 0. 01; // 第 1 级 求 精 步 长 初 定 0.01 
x1=— 10+ d;x3= 10- d; 
for (k= 1;k<=7;k++) // 实 施 7 级 求 精 


{ for (x=x1;x<x3;x= x+ d) 
{ y1=pow(xx x-2x* x+10,0.5)+qx pow(xx x+2#x+5,0.5)+ (1+q) * pow(x * x+4* x+5,0.5); 
if (yi< min) // 通 过 比较 求 取 最 小 值 min 
{ min= y1;x2= x;} 
} 
x1= x2- d;x3= x2+ d;d= d/10; // 每 级 求 精 , 步 长 d 缩 减 至 1/10 
} 
printf(” 当 x=%.7f 时 ,y1 有 最 小 值 :%.7f\n", x2,min); 
x1=— 10+ d;x3= 10- d;d= 0. 01; 
for (k= 1;k<=7;kt+) // 实 施 7 级 求 精 
{ for (x=x1;xKx3;x= x+ d) 


{ y2=pow(x* x-2x x+10,0.5)+qx pow(xx x+2x x+5,0.5)- (1+q) xpow(xxx+4#x+5,0.5); 


if (y2> max) // 通 过 比较 求 取 最 大 值 max 
{ max= y2;x2= x;} 
} 
x1= x2- d;x3= x2+ d;d= d/10; // 每 级 求 精 , 步 长 d 缩 减 至 1/10 


} 
printf(” 当 x=%.7f 时 ,y2 有 最 大 值 :%.7f\n", x2, max) ; 
} 


3. 程序 运行 示例 及 说 明 


请 输入 参数 q: 1 
当 x=-1.5057304 时 ,y1 有 最 小 值 :8.2027121 
当 x=-3.2596238 时 ,y2 有 最 大 值 :5.0110122 


因为 两 个 函数 的 最 值 点 在 不 同位 置 ,因而 必须 分 别 设置 分 级 求 精 。 
当 输入 参数 q 一 0 时 ,输出 即 为 上 面 数 形 结合 求解 的 结果 。 
对 于 一 个 动 点 对 应 多 个 定点 的 线段 长 加 权 代 数 和 最 值 问题 ,都 可 以 参照 以 上 程序 设 


计 分 组 求 精 。 


变通 : 如 果 把 上 述 函 数 式 中 3 个 根 号 的 开平 方 全 改 为 开 p(p 为 指定 正 整 数 ) 次 方 ,请 


修改 以 上 程序 , 求 改变 后 的 函数 的 相应 最 值 。 


8.5 ”数码 金字 塔 
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这 里 所 说 的 图 案 并 不 是 应 用 计算 机 图 形 处 理 函 数 画 出 的 图 形 , 而 是 应 用 程序 设计 把 
一 些 数字 (或 字符 ) 根 据 优美 的 排列 规律 拼凑 出 来 的 图 案 。 
只 要 构思 巧妙 独到 ,通过 程序 设计 拼凑 出 来 的 图 案 整齐 美观 ,从 另 一 侧面 展现 数 


8.5.1 圈 码 金字 塔 


圈 码 金字 塔 , 表 现 为 在 金字 塔 图 案 中 每 一 圈 三 角形 都 是 同一 个 数码 : 最 外 圈 三 角形 ， 
数码 为 1; 从 外 向 内 第 2 圈 、 第 3 圈 以 至 第 (n 十 1)/2 圈 的 圈 码 分 别 为 2,3,…,(n 十 1)/2。 
正中 的 第 (n 十 1)/2 圈 退 化 为 一 个 数 (n 十 1)/2。 


1. 设计 要 点 
为 美观 计 , 采 用 “宽松 型 ”( 即 每 一 个 字符 后 带 一 空格 ) 构 建 ,因而 后 一 行 比 前 一 行 的 前 
置 空格 数 要 少 2 个。 


设置 n 循环 控制 金字 塔 行 数 ,要 求 n 为 奇数 ,如 果 n 为 偶数 时 则 n 增 1。 

为 取 圈 码 方便 ,设置 字符 串 s[] 王 "1234567890"( 可 改 为 其 他 字符 串 ) 。 

取 m==(n 十 1)/2, 设置 i 循环 控制 构造 并 输出 每 一 行 。 

(1) 前 m 行 构建 。 

当 行 数 i(1 一 m) 构 造 并 输出 前 m 行 ,每 一 行 分 3 部 分 (第 1 行 只 有 前 2 部 分 ): 图 形 为 
金字 塔 ,第 i 行 前 打印 40 一 2*i 个 空格 ; 顺 取 并 输出 s 字符 串 的 前 i 个 字符 s(C1 一 D ; 逆 限 
并 输出 s 字符 串 的 i 一 1 个 字符 sGi 一 1 一 1) 。 

(2) 后 m 一 1 行 构建 。 

当 行 数 i(m 十 1 一 n) 构 造 并 输出 后 m 一 1 行 , 每 一 行 分 4 部 分 , 除 以 上 行 的 3 部 分 外 ， 
外 加 上 “横向 同 数字 横 边 ”, 即 把 数码 s(2 * m 一 让 重复 输出 4* (i 一 m) 次 ,完成 每 个 圈 三 
角形 下 面 的 横向 数字 边 。 


2. 程序 设计 


// 构 建 n 行 圈 码 金字 塔 
# include < stdio. h> 
voidmain0 
{ int ij,mn,tichar s[]=" 1234567890"; 
printf(" 请 输入 塔 的 行 (奇数 《20) :") ; scanf("%d",&n) ; 


mF (n+ 1)/2; 
for(i=1;i<=m;i++) 
{ for(j=1;j<=40-2x i;j++) printf(" "); // 第 i 行 前 打印 40- 2* i 个 空格 


for (j=1;j<=i;j++) 
printf("%c ", s[j]); 


if(i>1T) // 最 前 与 最 后 行 只 一 个 数 
for (j=i-1;j>=1;j--) 
printf("%c ",s[j]); // 反 向 打印 字符 确保 左右 对 称 


printf ("\n"); 
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for(i=mt1iiK=nii++) 
{ for(j=1;j<=40-2x i;j++) printf(" "); 
for(j=1;j<=2x*m i;j++) 
printf("%c ",s[j]); 


for(j=1;j<=4x (i-m ;j++) // 完 成 横向 同 数字 横 边 
printf("%c ",s[2x* mi]); 
if (i<n) // 最 前 与 最 后 行 只 一 个 数 
for (j=2#m i-1;j>=1;j--) 
printf("%c ",s[j]); // 反 向 打印 字符 确保 左右 对 称 
printf ("\n"); 


} 

3. 程序 运行 示例 

请 输入 塔 的 行 (奇数 《20) :15 

输出 圈 码 金字 塔 如 图 8-18 所 示 。 


图 8-18 15 行 圈 码 金字 塔 


我 们 看 到 ,所 构建 的 圈 码 金 字 塔 对 称 齐整 ,端庄 大 方 , 从 外 到 内 每 一 个 三 角形 都 是 同 
一 圈 码 数字 。 


8.5.2 套 含 空心 圈 码 塔 


有 报道 称 埃及 金字 塔 内 部 含有 秘密 空间 ,引发 构建 套 含 空心 圈 码 金字 塔 的 联想 ,表现 
为 在 金字 塔 图 案 下 部 套 含 一 个 倒立 的 空心 金字 塔 。 

为 使 塔 比较 紧凑 ,采用 “紧密 型 "( 即 字 符 之 间 不 带 空 格 ) 构 建 , 即 每 个 数码 后 不 加 空 
格 ,因而 每 一 行 比 前 一 行 的 前 置 空格 数 要 少 一 个 。 

1. 设计 要 点 

设置 n 循环 控制 基本 圈 码 金字 塔 行 数 ,要 求 n 为 奇数 ,如 果 n 为 偶数 时 则 n 增 1。 

(1) 塔 上 部 为 基本 圈 码 金字 塔 。 

前 面 的 mn 行为 基本 圈 码 金字 塔 ,设计 同 前 上 述 设 计 。 

(2) 塔下 部 含 空心 塔 段 。 
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这 一 段 分 3 部 分 : 前 部 分 为 第 二 行 开 始 的 基本 圈 码 金字 塔 ; 中 部 分 为 倒立 的 空心 金 
字 塔 (必要 控制 好 每 一 行 的 空格 数 ) ;后 部 分 为 第 二 行 开始 的 基本 圈 码 金字 塔 。 


注意 : 最 后 一 行 必须 消除 有 些 重 复 造成 的 1 边 字符 个 数 。 


2. 程序 设计 


// 构 建 n 行 套 含 空心 圈 码 金字 塔 
# include“ stdio.h> 
# include < string.h> 
# include < math. h> 
voidmain0 
{ int i,j,m,n,t;char s 口 = ”1234567890"; 
printf(” 请 输入 n (奇数 《20):"); scanf("%d",&n); 
if (n% 2==0) n++; 
nmF (n+ 1)/2; 
for (i=1;i<=m;i++) 
{ for(j=1;j<=40-i;j++) printf(" "); 
for (j=1;j<=1;j++) printf ("% e", s[j]); 
if(>0) 
for(j=i-1;D>=1;j--) printf ("%e", s[j]); 
printf ("\n"); 


} 

for (i=mt 1;i<=n;i++) 

{ for(j=1;j<=40-i;j++) printf(" "); 
for (j=1;j<=2x mi;jt++) printf ("% oe", s[j]); 
for(j=1;j<=4x (i-m ;j++) printf ("% ce", s[2x m- 1]); 
if (i<n) 

for (j=2x*m i-1;>=1;j--) printf ("% ce", s[j]); 

printf ("\n"); 

} 


for (i=2;i<=m;it++) 
{ for(j=1;j<=41-n-i;j++) printf(" "); 
for (j=1;j<=i;j++) printf (% oe", s[j]); 
if(i>1) 
for (j=i-1;j>=1;j--) printf("%c",s[j]); 
for (j=1;j<=2x* n-2x i-1;jt+) printf(" "); 
for (j=1;j<=i;j++) printf("%c",s[j]); 


if(i>1) 
for (j=i-1;j>=1;j--) printf("%c",s[j]); 
printf ("\n"); 


} 
for (i=m+ 1;i<=n;it++) 
{ for(j=1;j<=41-n-i;jt++) printf(" "); 
for (j=1;j<=2x* mi;jt+) printf ("%o", s[j]); 


// 第 i 行 前 打印 4- 2* i 个 空格 


// 最 前 与 最 后 行 只 一 个 数 
// 反 向 打印 字符 确保 左右 对 称 


// 横 向 同 数字 横 边 
// 最 前 与 最 后 行 只 一 个 数 
// 反 向 打印 字符 确保 左右 对 称 


/下 部 含 空心 塔 段 开 始 

// 第 i 行 前 打印 4- 2* i 个 空格 
// 最 前 与 最 后 行 只 一 个 数 

// 反 向 打印 字符 确保 左右 对 称 


// 第 i 行 前 打印 4- 2* i 个 空格 


// 最 前 与 最 后 行 只 一 个 数 
// 反 向 打印 字符 确保 左右 对 称 


307 


| 起 二 如 学 及 编 福 扩 展 


for (j=1;j<=4x (i- 四 ;j++) printf ("%e", s[2x* m- 1]); 


// 横 向 同 数字 横 边 
if (i<n) // 最 前 与 最 后 行 只 一 个 数 
for (j=2x* mi-1;j>=1;j-—) printf("%c",s[j]); 
// 反 向 打印 字符 确保 左右 对 称 
for(j=1;j<=2x* n-2x i-1;jt++) printf(" "); 
for(j=1;j<=2x*m i;j++) printf ("% ce", s[j]); 
if (i<n) 
{ for(j=1;j<=4x (i-m ;j++) printf("%o",s[2x mi]); 
// 横 向 同 数字 横 边 
for (j=2x mi-1;j>=1;j-—) printf ("% oe", s[j]); 
// 反 向 打印 字符 确保 左右 对 称 
} 
else 
for (j=1;j<=4* (i-m-1;j++) 
printf("%%c",s[2x mi]); // 横 向 同 数字 横 边 
printf ("\n"); 
} 
} 
3. 程序 运行 示例 与 说 明 
请 输入 n (奇数 《20) :11 
输出 11 行 套 含 空心 圈 码 金字 塔 如 图 8-19 所 示 。 
1 
121 
12321 
1234321 
123454321 
12345654321 
1234555554321 
123444444444321 
12333333333333321 
1222222222222222221 
111111111111111111111 
121 121. 
12321 12321 
1234321 1234321 
123454321 123454321 
12345654321 12345654321 
1234555554321 1234555554321 
123444444444321 123444444444321 


12333333333333321 12333333333333321 
1222222222222222221 1222222222222222221 
11111111111111111111111111111111111111111 


图 8-19 ”11 行 套 含 空心 圈 码 金字 塔 


观察 套 含 空心 圈 码 金字 塔 , 实 际 上 是 由 3 个 正 立 实 塔 与 一 个 倒立 虚 塔 ( 即 中 心 空心 ) 
构成 , 正 立 实 塔 交 蚕 部 位 有 一 个 数码 1 公共 。 

套 含 空心 圈 码 金字 塔 设计 稍 显 复杂 ,但 其 构建 并 输出 的 图 案 整 齐 美观 ,还 可 控制 塔 的 
大 小 ,是 数 形 结合 中 数码 图 案 的 一 个 佳作 。 
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如 果 输 入 n 一 19, 则 输出 的 套 含 空心 圈 码 金字 塔 显得 齐整 端庄 .美观 大 气 。 因 图 形 较 
大 ,这 里 就 不 再 展示 ,建议 有 兴趣 的 读者 上 机 试 试 。 


8.6 ”数码 萎 形 


上 面 的 “金字 塔 ? 为 左右 对 称 的 三 角形 形状 ,而 菱形 图 案 不 仅 左 右 对 称 , 而 且 上 下 对 
称 , 其 设计 构建 要 比 上 面 的 金字 塔 图 案 复 杂 。 
本 节 在 打印 圈 码 菱形 图 案 基 础 上 ,构建 相对 复杂 一 些 的 “数字 中 空 菱形 ”图 案 。 


8.6.1 图 码 葵 阵 
试 构建 mn 行 上 下 左右 对 称 的 圈 码 萎 阵 图 案 。 


1. 设计 要 点 

在 一 般 萎 阵 设计 基础 上 ,设置 多 数字 分 层 ,可 构建 圈 码 萎 阵 图 案 。 

分 析 圈 码 萎 阵 的 构建 规律 ,设置 引起 分 层 元 素 为 各 层 的 数字 ,如 何 打印 分 层 数 字 是 构 
造 圈 码 萎 阵 的 关键 。 

每 一 行 除 前 置 空格 外 ,第 ulu==m 一 t,t==|i 一 m| ,i 二 1,2,…,n) 行 为 2u 个 元 素 ( 算 上 
一 尾 空 )。 注 意 到 萎 形 上 下 对 称 , 应 用 绝对 值 函数 来 实现 上 下 对 称 。 

(1) 所 有 偶数 位 元 素 为 3 空格 。 

(2) 各 行 的 后 半 部 ,第 j 个 元 素 为 (2* u 一 j 十 1)/2。 

(3) 各 行 的 前 半 部 ,第 j 个 元 素 为 G 十 1)/2。 

按 以 上 规律 在 j(1 一 2u) 循 环 中 分 别 输出 ,构成 多 分 层 萎 阵 图 案 。 


2. 程序 设计 


// 构 建 n 行 圈 码 葵 阵 图 案 
# include < stdio. h> 
# include < math. h> 
voidmain0 
{ intm,n,i,j,t,u; 
printf(” 请 输入 整数 n (7《n<37):"); ”scanf("%d",&n); 
nmF (nt 1)/2; 
for (i=1;i<=n;it+) // 输 出 萎 阵 的 n 行 
{ t= (int)fabs(i-m; printf ("\n"); 
for(j=1;j<=2x t+3;j++) 


printf(" "); // 打 印 每 一 行 前 2t+ 3 个 空格 
umt; 
for (j=1;j<=2* u;j++) // 每 行 打印 24 个 字符 
if(j%2==0) printf(” "); // 所 有 偶数 位 字符 为 3 空格 
else if(j>U printf ("%1d", ((2x u- j+1)/2)%10); // 分 2 种 情况 打印 分 层 数字 


else printf ("% 1d", ((j+1)/2)% 10); 
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3. 程序 运行 示例 与 说 明 
运行 程序 ,请 输入 n (Km37): 29 


输出 29 行 分 层 萎 阵 图 案 如 图 8-20 所 示 ,表现 为 上 下 左右 对 称 ,颇具 立体 感 。 
当 输入 的 n 为 偶数 时 ,输出 图 形 中 各 层 圈 码 是 完整 的 。 当 输入 的 n 为 奇数 时 ,如 图 8-20 
所 示 , 正 中 间 圈 码 退 化 为 一 个 数字 。 


图 8-20 ”29 行 分 层 萎 阵 图 案 


8.6.2 数码 中 空 蕉 形 


试 构建 中 空 的 上 下 左右 对 称 的 菱形 图 案 ,要 求 中 空 部 分 也 为 萎 形 形状 ,构建 图 案 的 元 
素 为 指定 的 字符 串 。 


1. 设计 要 点 

输入 构建 菱形 的 字符 串 s, 根 据 s 的 字符 个 数 strlen(s) ,程序 自行 确定 菱形 的 行 数 ( 奇 
数 )n 二 2 x strlen(s) 一 1, 萎 形 的 中 间 行 号 为 m 一 Cn 十 1)/2。 

设置 i 循环 控制 每 一 行 。 上 下 对 称 由 绝对 值 函 数 实现 ,左右 对 称 由 在 对 称 字符 串 st 
中 对 称 取 字 符 实现 。 每 行 前 的 空格 与 中 空空 格 由 空格 函数 控制 。 

除 第 1 行 与 最 后 一 行 外 .都 有 中 空 部 分 的 空格 字符 前 后 都 有 对 称 的 数字 字符 。 

2. 程序 设计 


// 根 据 输入 字符 串 构建 中 空 对 称 萎 形 
# include < stdio.h> 
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# include < string.h> 
# include < math. h> 
void main0 
{ int i,j,m,n,t; char s[20]; 
printf(” 请 输入 字符 串 :"); gets (s) ; 
n=2* strlen(s)-1; m (nt 1)/2; 
for (i=1;i<=n;i++) 
{ t=abs(m i); 
for (j=1;j<=5+2xt;j++) 
printf(" "); 
for (j=0;j<=m-t-1;j++) 
printf ("% ce", s[j]); 
if (tm 1) 
{ for(j=1;j<=2x (mt-1)-1;j++) 
printf(" "); 
for (j=m-t-1;j>=0;j--) 
printf (% ce", s [j]); 
对 称 
} 
printf ("\n"); 
} 
} 


3. 程序 运行 示例 与 说 明 
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// 输 入 构造 菱形 的 字符 串 


// 第 i 行 前 打印 5+2t 个 空格 


// 最 前 与 最 后 行 只 一 个 字符 


// 打 印 中 空空 格 


// 反 向 打印 字符 确保 左右 


运行 程序 ,输入 数字 串 01234567890, 构 建 并 输出 的 19 行 数字 中 空 对 称 菱形 图 如 
图 8-21 所 示 。 如 果 输 入 字母 串 ABCDEFGHIJK ,构建 并 输出 的 19 行 字母 中 空 对 称 菱形 


图 如 图 8-22 所 示 。 


0 


01 10 
012 210 
0123 3210 
01234 43210 
012345 543210 
0123456 6543210 
01234567 76543210 
012345678 876543210 
0123456789 9876543210 
01234567890 09876543210 
0123456789 9876543210 
012345678 876543210 
01234567 76543210 
0123456 6543210 
012345 543210 
01234 43210 
0123 3210 
012 210 
01 10 
0 


图 8-21 输入 01234567890 的 菱形 


A 
AB BA 
ABC CBA 
ABCD DCBA 
ABCDE EDCBA 
ABCDEF FEDCBA 
ABCDEFG GFEDCBA 
ABCDEFGH HGFEDCBA 
ABCDEFGHI THGFEDCBA 
ABCDEFGHIJ JIHGFEDCBA 
ABCDEFGHIJK KJIHGFEDCBA 
ABCDEFGHIJ JIHGFEDCBA 
ABCDEFGHI THGFEDCBA 
ABCDEFGH HGFEDCBA 
ABCDEFG GFEDCBA 
ABCDEF FEDCBA 
ABCDE EDCBA 
ABCD DCBA 
ABC CBA 
AB 了 BA 
A 


图 8-22 输入 ABCDEFGHIJK 的 葵 形 
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本 程序 特色 能 根据 输入 字符 串 的 长 度 ( 约 定 二 20) 自 动 确定 菱形 图 案 的 行 数 ,菱形 的 
正中 一 行 即 为 所 输入 的 字符 串 及 其 对 称 逆 串 。 

所 构建 的 数字 中 空 对 称 萎 形 的 内 、 外 都 为 萎 形 ,呈现 上 下 左右 对 称 ,相当 规整 ,体现 出 
数 形 结合 精妙 对 称 之 美 。 


8.7 折 对 称 方 阵 


应 用 程序 设计 构建 上 下 左右 对 称 的 由 数字 组 成 的 数字 方 阵 ,是 锻炼 观察 能 力 与 归纳 
能 力 的 好 项 目 , 也 是 提高 程序 设计 能 力 与 调试 能 力 的 好 题材 。 

本 节 所 述 的 折 对 称 方 阵 , 包 括 “ 横 竖 折 ”与 “ 斜 折 ” 两 款 形态 ,每 一 种 形态 又 按 四 角 的 数 
字 分 为 两 种 顺序 构建 ,体现 出 方 阵 之 美 。 


8.7.1 横竖 折 对 称 


试 观察 图 8-23 所 示 的 * 角 大 ”与 “ 角 小 ”两 款 横竖 折 对 称 方 阵 的 构造 特点 ,总 结 归纳 其 
构造 规律 ,设计 并 输出 这 两 款式 n( 奇 数 ) 阶 横竖 折 对 称 方 阵 。 


65432101234556 O123 ‘456543210 
5543210123455 和 
4443210123444 222345654322 2 
3333210123333 3333456 543333 
222221012222 2 4444456 544444 
二 5 5 5 5 556 55 5 5 5 5 
0000000000000 66666666666656 
和 5 5 5 5 556 55 5 5 5 5 
2222210122222 4444456 544444 
3333210123333 3333456 543333 
4443210123444 222345654322 2 
5543210123455 1123456543211 
65432101234556 012345654321 0 
(a) 角 大 型 (b) 角 小 型 


图 8-23 13 阶 角 大 与 角 小 横竖 折 对 称 方 阵 
1. 归纳 构造 规律 与 赋值 要 点 


构建 横竖 折 对 称 方 阵 , 关 键 在 于 归纳 其 构成 规律 实施 精准 赋值 。 
观察 横竖 折 对 称 方 阵 的 构造 特点 ,在 * 角 大 "? 方 阵 中 横向 与 纵向 正中 有 一 对 称 0 轴 。 


两 对 称 轴 所 分 4 个 小 矩形 区 域 表现 为 同一 数字 横竖 折 递 增 ,至 4 一 
以 下 即 按 “ 角 大 ”形态 赋值 ,只 是 在 输出 方 阵 时 按 所 选 方向 ed 


实施 区 分 。 
设 阶 数 n( 奇 数 ) 从 键盘 输入 ,对 称 轴 为 m 二 (n 十 1)/2。 JR 
设置 二 维 。 数组 存储 方 阵 中 元 素 , 行 号 为 证 列 号 为 ja[i][] 


为 第 i 行 第 j 列 元 素 。 图 8-24 对 角 线 分 成 4 个 区 


内 
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可 知 主 对 角 线 (从 左上 至 右 下 ) 有 i==j; 次 对 角 线 ( 从 右上 至 左下 ) 有 i 二 j= 二 n 十 1。 按 两 
条 对 角 线 把 方 阵 分 成 上 部 、 左 部 、 右 部 与 下 部 4 个 区 ,如 图 8-24 所 示 。 

对 角 线 上 元 素 可 归纳 到 上 、 下 部 , 即 上 、 下 部 区 域 带 等 号 即 可 。 

上 、 下 部 按 列 号 j 的 函数 m 一 absCm 一 j) 赋 值 如 下 所 示 。 


if(it+ j=n+188 i<=j || i+j>=n+1 8 i>=)) 
a[i] [j]=m- abs (mw j); 


左 、 布 部 按 行 号 i 的 函数 m 一 abs(m 一 沾 赋 值 : 


if(i+jKnrt1&&i>j|lli+rj>nr1& ij) 
a[i] [j]=m- abs (m- i); 


最 后 输出 元 素 为 m 一 a[ij[j], 即 为 “ 角 大 ”中 心 对 称 轴 为 0 轴 的 横竖 折 对 称 轴 方 阵 。 
若 选择 方向 p 二 2, 输 出 元 素 为 a[ 疏 [一 1, 即 为 * 角 小 ”的 横竖 折 对 称 轴 方 阵 。 


2. 程序 设计 


// 构 建 2 方向 n 阶 横竖 折 对 称 方 阵 

# include < stdio.h> 

# include < math. h> 

voidmain0 

{ int i,j,m,n,p,a[30] [30] ; 
printf(” 请 确定 方 阵 阶 数 (奇数 )n(n< 20) : ") ; scanf("%d",&n) ; 
printf(” 请 选择 方向 ,1 为 角 大 ,2 为 角 小 :"); scanf ("%d",&p); 
if(n%2==0) n++; 
nmF (n+ 1)/2; 
for (i=1;i<=n;it+) // 设 置 双重 循环 按 " 角 大 "赋值 
for (j=1;j<=n;j++) 

{ if(itj<=n+t188 i<=j || i+j>=n+1 8 i>=)) 


a[i] [j]=m- abs (wj); // 方 阵 上 、 下 部 元 素 赋值 
if(it jnt1 88 >j || itj>nt1 ge i<)) 
a[i] [j]=m- abs (m- i); // 方 阵 左 、 右 部 元 素 赋值 


} 
printf(” %d 阶 对称 方 阵 为 :\n",n); 
for(i=1;i<=n;i++) 
{ for(j=1;j<=n;j++) // 按 两 种 方向 区 分 输出 对 称 方 阵 
if(p==1) printf("%3d",m- a[i][j]):; 
else printf("%3d",a[i][j]-1); 
printf ("\n"); 


. 


运行 程序 ,键入 n 二 13,p 二 1, 即 输出 如 图 8-23(a) 所 示 的 角 大 横竖 折 对 称 方 阵 。 
车 键入 n= 二 13,p 二 2, 即 输出 如 图 8-23(b) 所 示 的 角 小 横竖 折 对 称 方 阵 。 
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8.7.2 斜 折 对 称 


图 8-25 是 “ 角 大 ”与 “ 角 小 ”两 款 13 阶 斜 折 对 称 方 阵 , 试 观察 斜 折 对 称 方 阵 的 构造 特 
点 ,总 结 归纳 其 构造 规律 ,设计 并 输出 这 两 款 n( 奇 数 ) 阶 斜 折 对 称 方 阵 。 


人 二 要 但 要 6 慰 灿 音 训 二 T :| 
1 和 生效 名 村 注 尖 入 可 10Y 和 
‘2 和 
324012321L0123 3456543456543 
4321012101234 234565456543 2 
5432101012345 1234565654321 
:| 0123456543210 
5432101012345 1234565654321 
录 二 加 和 20 于 2 23456 5456 5432 
$321012321i10123 345654345654 3 
21012343210132 4565432345654 
1012345432101 5654321234565 
久生 时 1 65432101234556 
图 8-25 13 阶 “ 角 小 ”与 “ 角 大 ” 斜 折 对 称 方 阵 


1 归纳 构造 规律 与 赋值 要 点 

对 mm 阶 方 阵 中 的 每 一 个 元 素 都 必须 赋值 ,但 不 可 能 逐 行 逐 列 地 一 个 个 赋值 ,有 必要 分 
析 方 阵 的 构造 特点 ,分 块 或 分 片 实施 。 

以 下 即 按 * 角 小 ”形态 赋值 ,只 是 在 输出 方 阵 时 按 所 选 方向 实施 区 分 。 

斜 折 对 称 方 阵 的 构造 特点 ; 两 对 角 线 上 均 为 0, 依 西 对 角 线 把 方 阵 分 为 4 个 区 域 ,每 
一 区 域 表现 为 同 数字 依附 两 对 角 线 折 释 对 称 ,至 上 下 左右 正中 元 素 为 n/2。 

设置 2 维 a[nJ[n] 数 组 存储 方 阵 中 元 素 , 行 号 为 i, 列 号 为 j,a[][] 为 第 i 行 第 j 列 元 素 。 

m 二 (n 十 1)/2, 按 m 把 方 阵 分 成 4 个 小 矩形 区 ,如 

图 8-26 所 示 。 注 意 到 方 阵 的 主 对 角 线 (从 左上 至 右 下 ) 上 i<m | i<m 
元 素 为 i 一 j, 则 左上 区 与 右 下 区 依 主 对 角 线 赋值 a[i][] = jm | 
abs(i 一 ));。 注 意 到 方 阵 的 次 对 角 线 (从 右上 至 左下 ) 上 元 


i> i> 
素 为 i 十 j 一 n 十 1, 则 右上 区 与 左下 区 依次 对 角 线 赋值 jsm | jm 
ai 订 [] 王 abs(i 十 j 一 n 一 1);。 
8-26 分 成 的 4 个 小 矩形 
2. 程序 设计 


// 构 建 2 方向 n 阶 斜 折 对 称 方 阵 

# include《math.h> 

# include < stdio.h> 

void main0 

{ int i,j,m,n,p,a[30] [30] ; 
printf(” 请 确定 方 阵 阶 数 n(n<20): "); scanf("%d",&n); 
printf(” 请 选择 方向 ,1 为 角 小 ,2 为 角 大 :"); scanf ("%d", &p); 
ifn%2==0) nt+; 
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} 


nmF (n+ 1)/2; 
for (i=1;i<=n;i++) 
for (j=1;j<=n;j++) 
{ if(i<=m&8& j<=m|| i>m&8 j>m) 
a[i] [j]=abs (i j); 
if(i<=m 8&8 j>m || i>m 8&8 ji<=m) 
a[i][j]=abs (i+ j-n-1); 
} 
printf(” %d 阶 对 称 方 阵 为 :\n",m ; 
for(i=1;iK=nii++) 


{ for(j=1;j<=n;j++) 


if (p==1) printf ("% 3d",a[i] [j]); 
else printf("%3d",m-a[i][j]-1); 


printf ("\n"); 


第 8 剖 怒 形 结合 出 光 | 


// 设 置 双重 循环 按 " 角 小 "赋值 


// 方 阵 左 上 部 与 右 下 部 元 素 赋 值 


// 方 阵 右 上 部 与 左下 部 元 素 赋值 


// 区 分 两 种 形态 输出 对 称 方 阵 


运行 程序 ,输入 n= 二 13,p 二 1, 即 输出 如 图 8-25(a) 所 示 的 13 行 “ 角 小 ? 斜 折 对 称 方 阵 。 
若 输 入 n= 二 13,p 二 2, 即 输出 如 图 8-25(b) 所 示 的 13 行 “ 角 大 ” 斜 折 对 称 方 阵 。 
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圈 码 与 旋转 方 阵 


圈 码 方 阵 是 上 下 左右 对 称 的 数 阵 ,其 设计 技巧 运用 高 于 前 面 各 节 的 数 阵 图 案 。 
在 圈 码 方 阵 基 础 上 ,设计 构建 双 转 向 旋转 方 阵 。 旋 转 方 阵 在 形态 上 显得 动感 轻 盘 ,而 
且 具 备 双 转 向 , 既 可 顺 时 针 转 ,也 可 逆 时 针 转 ,实现 手段 别具一格 。 


8.8.1 圈 码 方 阵 
构建 圈 码 对 称 方 阵 。 


请 观察 图 8-27 所 示 的 “外 大 ”与 “外 小 ”两 款 9 阶 与 10 阶 圈 码 对 称 方 阵 的 构造 特点 ， 


设计 并 输出 指定 的 两 款式 n 阶 圈 码 对 称 方 阵 。 


5 5 5 5 5 5 5 5 
5 4444444 
5433333 4 
5 432223 4 
类 湾 汐 影 汪 半 半 妆 
543222 3 4 
543333 3 4 
5 444 4444 
5 5 5 555 5 5 
(a) 外 大 型 


人 


CE 


Ci 


hh 
222222221 
3333321 
和 
和 
人 
要 村 本 ,要 通 本 于 
333332 1 
222222 


- 


(b) 外 小 型 


图 8-27 9 阶 外 大 与 10 阶 外 小 圈 码 对 称 方 阵 


315 


| 入 二 妨 学 及 编程 撩 关 


1. 设计 要 点 
(1) 观察 构造 特点 ,归纳 赋值 规律 。 


值得 注意 的 是 ,这 里 的 n 阶 ,n 可 为 奇数 ,也 可 为 偶数 。 一 个 一 个 元 素 通 过 枚 举 赋值 


是 行 不 通 的 ,必须 根据 其 构造 特点 ,把 方 阵 分 成 若干 区 ,在 各 区 用 统一 表达 式 赋值 。 
以 下 即 按 “ 外 大 ”形态 赋值 ,只 是 在 输出 方 阵 时 按 所 选 方 向 实施 区 分 。 
设 数 组 a[ 记 [jj] 存储 方 阵 中 元 素 , 行 号 为 i, 列 号 为 j。 
可 知 主 对 角 线 i=j; 次 对 角 线 i 十 j 二 n 十 1。 
按 两 条 对 角 线 把 方 阵 分 成 上 部 、 左 部 、 右 部 与 下 部 4 个 区 ,如 图 8-28 所 示 。 


上 、 下 部 可 带 等 号 ,把 对 角 线 上 的 元 素 划 归 该 区 。 
说 一 Gn 二 /2 上 部 按 生 号 i 的 丽 数 赋值 ,因为 同和 | 
上 的 元 素 的 值 相同 ;注意 到 n 可 为 奇数 ,也 可 为 偶数 ,赋值 函 


数 取 为 m 一 i 十 1; 同 理 , 下 部 按 行 号 函数 i 一 n/2 赋值 。 
左 部 按 列 号 j 的 函数 赋值 ,因为 同 列 上 的 元 素 的 值 相 
同 ; 注 意 到 1n 可 为 奇数 ,也 可 为 偶数 ,赋值 函数 取 为 m 一 j 十 


1; 同 理 , 右 部 按 列 号 函数 j 一 n/2 赋值 。 
(2) 选择 项 目 及 输出 。 


以 上 元 素 赋 值 按 “ 外 大 ” 即 从 中 心 1 开始 ,往外 递增 至 m。 因 此 ,当选 择 “ 外 大 ”方向 


p 一 1 时 , 即 正常 输出 方 阵 元 素 a[ij[j] 即 可 。 


若 选择 “外 小 ?方向 p 二 2 时 , 即 从 外 圈 1 开始 , 往 内 递增 至 中 心 m, 此 时 ,输出 方 阵 元 


素 改 为 m 十 1 一 a[i][j]。 
2. 程序 设计 


// 构 建 2 方向 n 阶 圈 码 对 称 方 阵 
# include < stdio. h> 
# include < math. h> 
voidmain0 
{ int i, j,m,n,p,a[20] [20]; 
printf(" 请 确定 方 阵 阶 数 n(n< 20) : "); scanf("%d",&n) ; 
printf(” 请 选择 递增 方向 ,1 为 外 大 ;2 为 外 小 : "); scanf ("%d", &p) ; 


mF (n+ 1)/2; 
for(i=1;iK=nii++) 
for (j=1;j<=n;j++) 

{ if(i+K=nt18&&iK=j afi] [jl]=m i+1; // 方 阵 上 部 元 素 赋值 
if(it jCnt188 >) ali][j]=m j+1; // 方 阵 左 部 元 素 赋 值 
if(it j>=n+1 88 i >=)) a[i][]=i-m2; // 方 阵 下 部 元 素 赋值 
if(i+j>nrt1&&iKjD) ali][j]=j-n/2; // 方 阵 右 部 元 素 赋值 


} 
printf(”%d 阶 圈 码 对 称 方 阵 为 :\n",n); 
for(i=1;iK=nii++) 
{ for(j=1;j<=n;j++) // 区 分 输出 圈 码 对 称 方 阵 
if (p==1) printf ("% 3d", a[i] [j]); 
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图 8-28 对 角 线 分 成 4 个 区 


第 8 齐 怒 形 结合 出 光 | 


else printf("%3d",mt 1-a[i][j]); 
printf ("\n"); 
} 
} 


以 上 规律 是 否 适应 各 个 奇数 与 偶数 , 需 经 上 机 实验 ,反复 进行 调整 。 
8.8.2 双 转 向 旋转 方 阵 


把 前 ww 个 正 整 数 1,2,…,n? 从 左上 角 开 始 , 由 外 层 至 中 心 按 顺 时 针 方 向 螺旋 排 
列 所 成 的 数字 方 阵 称 mn 阶 顺 转 方 阵 ; 按 逆 时 针 方向 螺旋 排列 所 成 的 方 阵 称 n 阶 逆转 
方 阵 。 

图 8-29 所 示 即 为 5 阶 顺 转 方 阵 与 5 阶 逆转 方 阵 。 

设计 程序 选择 转向 分 别 构造 并 输出 这 两 种 旋 1 :1 


5 1 16 15 14 13 

转 方 阵 。 16 17 18 19 6 中 二 人 加 8 和 

15 24 25 20 7 3 18 25 22 11 

1. 设计 要 点 14 23 2 21 8 4 19 20 21 10 

13 12 11 10 9 5 6 7 8 9 
设置 二 维 数组 a[hj[vj] 存 放 方 阵 中 第 b 行 第 


v 列 元 素 。 8-29 5 阶 顺 转 与 逆转 方 阵 


(1) 递归 设计 。 

设计 按 顺 转 实施 赋值 ,只 是 在 输出 方 阵 时 区 分 所 选 “ 转 向 ”。 

把 n 阶 方 阵 从 外 到 内 分 圈 , 外 圈 内 是 一 个 n 一 2 阶 顺 转 方 阵 , 除 起 始 数 不 同 外 ,具有 与 
原 问 题 相 同 的 特性 属性 。 
因此 ,设置 旋转 方 阵 递归 函数 t(b,s,d) ,其 中 为 每 个 方 阵 的 起 始 位 置 ;d 是 为 a 数 
组 赋值 的 整数 ;s 是 方 阵 的 阶 数 。 

s>1 时 ,在 函数 t(b,s,d) 中 还 需 调用 t(b 十 1,s 一 2,d)。 

b 赋 初 值 0, 因 方 阵 的 起 始 位 置 为 (0,0)。 每 一 圈 后 进入 下 一 内 方 阵 , 起 始 位 置 b 需 
增 1。 

d 从 1 开始 递增 1 取 值 ,分 别 赋 值 给 数组 的 各 元 素 , 至 n 为 止 。 

s 从 方 阵 的 阶 数 n 开始 ,以 后 每 一 圈 后 进入 下 一 内 方 阵 ,s 减 2。 

s 一 0 时 返回 ,作为 递归 的 出 口 。 

车 n 为 奇数 ,递减 2 至 s==1 时 ,此 时 方 阵 只 有 一 个 数 ,显然 为 a[bj[bj 二 d, 返 回 。 

(2) 方 阵 元 素 赋值 。 

递归 函数 t(b,s,d) 中 对 方 阵 的 每 一 圈 的 各 边 中 各 个 元 素 赋值 : 

@ 一 圈 的 上 行 从 左 至 右 递增 。 


for (j=1;j<s;j++) 

{afh] [v]=d;v++ ;d++ ;} // 行 号 h 不 变 , 列 号 v 递 增 , 数 d 递 增 
@ 一 圈 的 右 列 从 上 至 下 递增 。 
for (j=1;j<s;j++) 


{ alh][v]=d;ht+ ;d++;} // 列 号 v 不 变 , 行 号 h 递 增 , 数 d 递 增 
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@ 一 圈 的 下 行 从 右 至 左 递增 。 


for (j=1;j<s;j++) 


{afh] [vy]=d;v—— ;d++ ;} // 行 号 h 不 变 , 列 号 v 递 减 , 数 d 递 增 
@ 一 圈 的 左 行 从 下 至 上 递增 。 


for (j=1;j<s;j++) 


{afh] [v]=d;h-- ;d++ ;} // 列 号 v 不 变 , 行 号 h 递减, 数 d 递 增 


经 以 上 4 步 ,完成 一 圈 的 赋值 。 

(3) 主 程序 设计 。 

主 程序 中 ,只 要 带 实 参 调用 递归 函数 t(0,n,1) 即 可 。 

方 阵 按 所 选 的 转向 以 二 维 形 式 输出 : p=1 为 顺 转 , 输 出 arh][v];p=2 为 逆转 ,输出 


a[v][h]。 
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2. 程序 设计 


// 构 建 双 转向 n 阶 旋转 方 阵 

# include < stdio.h> 

int n, a[20] [20]= {0}; 

void main0 

{ int hvb,p,s,d; 
printf(” 请 选择 方 阵 阶 数 n: ") ;scanf ("%d", &n) ; 
printf(" 请 选择 转向 , 顺 转 1, 道 转 2:") ;scanf ("%%d",&p) ; 


b=1;s=n;d=1; 

void t(int b, int s, int d); // 递 归 函 数 说 明 

t(b, s,d); 

ifp==1) printf(” %d 阶 顺 转 方 阵 : \n",n); // 按 要 求 输出 旋转 方 阵 


else printf(” %d 阶 道 转 方 阵 : \n",n); 
for (h=1;h<=n;h++) 
{ for(v=1;v<=n;v++) 
if (p==1) printf("%3d",a[h][v]); 
else printf (" % 3d", a[v] [h]); 


printf ("\n"); 
} 
return; 
} 
voidt(int b, int s, int d) /定义 递归 函数 
{ int j,h=b,v=b; 
if(s==0) return; //s=0,1 时 为 递归 出 口 
if (s==1) {a[b] [b]=d;return;} 
for (j=1;j< s;j++) // 一 圈 的 上 行 从 左 至 右 递增 
{ afh][v]=d;vt+ ;d++ ;} 
for(j=1;j<s;jt+) // 一 圈 的 右 列 从 上 至 下 递增 


{ afh][v]=d;ht+ ;d++ ;} 
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for(j=1;j<s;j++) // 一 圈 的 下 行 从 右 至 左 递增 
{afh] [v]=d;v—— ;d++ ;} 

for(j=1;j<s;j++) // 一 圈 的 左 行 从 下 至 上 递增 
{afh] [v]=d;h-- ;d++ ;} 

t(b+1,s-2,d); // 调 用 内 圈 递 归 函 数 


} 


3. 程序 运行 示例 与 变通 


请 选择 方 阵 阶 数 n:8 

请 选择 转向 , 顺 转 1, 逆转 2:2 

8 阶 逆转 方 阵 : 

14028 27 269 25 24023922 
223 48 4 4% 45 4 21 
3304605 58 4 20 
431 50 6 457 4 1 
5 32 51 62 6 5 4 18 
6 3 52 53 5 55 4 1 
7343 3637 3 3 16 
8 9) "10 11 M2 13 4415 


程序 变通 : 把 方 阵 的 输出 元 素 作 以 下 修改 : aLhjLvj] 修 改 为 nx* n 十 1 一 aLhj[Lvj,aLvj[h] 
修改 为 nx*n 十 1 一 aLvj[Lhj, 输 出 从 中 心 开始 旋转 往外 递增 的 数字 方 阵 。 


8.9 数码 趣 环 


作为 数 形 结合 压轴 的 “数码 趣 环 ”, 包 括 有 “素数 和 环 ” 与 “数码 串珠 环 ” 两 个 有 趣 的 环 
设计 。 

本 节 从 构建 8 项 素数 和 环 人 手 ,编程 拓展 到 应 用 区 间 [e,d] 上 的 整数 构建 素数 和 环 ， 
即 环 上 每 相 邻 两 数 之 和 为 素数 ,非常 精巧 。 

最 后 的 数码 串珠 , 则 是 一 个 环 上 整数 的 部 分 和 完全 覆盖 问题 ,是 另 一 类 要 求 更 高 的 整 
数 环 排列 设计 问题 。 


8.9.1 素数 和 环 


把 前 n 个 正 整数 填 人 圆 环 的 n 个 小 圆圈 中 Cn 一 8 时 如 图 8-30 所 示 ) ,如 果 圆 环 中 所 有 
相 邻 的 两 个 数 之 和 都 是 一 个 素数 ,该 环 称 为 一 个 n 项 素数 
和 环 。 

【问题 】 试 应 用 整数 1 一 8 构建 8 项 素数 和 环 。 

【思考 】 以 某 些 确定 段 为 基础 向 两 边 延 伸 。 

对 1 一 8 这 8 个 整数 在 环 上 进行 排序 ,为 表示 方便 ,把 环 
排列 表示 成 一 排 。 注 意 到 这 是 一 个 环 ,排列 的 第 一 个 数 与 最 
后 一 个 数 在 环 上 相 邻 。 


图 8-30 8 圈 圆 环 
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为 了 实现 在 环 上 所 有 相 邻 两 数 之 和 为 素数 , 须 遵 循 以 下 几 点 。 

(1) 所 有 奇数 与 偶数 必须 相间 排列 。 

因为 任 两 偶数 相 邻 ,或 任 两 奇数 相 邻 ,其 和 必 为 大 于 2 的 偶数 ,肯定 非 素数 。 

(2) 相 邻 两 数 和 为 3 一 15 中 的 奇数 ,只 有 9 与 15 非 素数 。 因 此 ,2 不 能 与 7 相 邻 ,4 不 
能 与 5 相 邻 ,6 不 能 与 3 相 邻 ,8 不 能 与 1,7 相 邻 。 

显然 ,8 只 能 与 3,5 相 邻 , 即 在 排列 中 会 出 现 3 连 段 3,8,5 或 5,8,3。 

(3) 从 3,8,5 段 向 两 端 扩展 。 

数 3 的 左边 不 能 为 6, 只 能 是 2 或 4; 数 5 的 右边 不 能 为 4, 只 能 是 6 或 2。 因 而 形成 了 
3 相 5 连 段 2,3,8,5,634,3,8,5;2 与 4,3,8,5,6。 

以 这 3 个 5 连 段 继续 向 两 端 扩展 ,注意 到 以 上 不 能 相 邻 的 要 求 , 各 组 只 有 唯一 选项 , 即 
得 以 下 3 个 解 : 1,2,3,8,5,6,7,4;7,4,3,8,5,2,1,6;7,4,3,8,5,6,1,2( 因 首尾 不 合 舍 去 ) 。 

(4) 从 5,8,3 向 两 端 扩展 。 

数 5 的 左边 不 能 为 4, 只 能 是 2 或 6; 数 3 的 右边 不 能 为 6, 只 能 是 2 或 4。 因 而 形成 了 
中 过 有 段 25558535476535585352 与 655585354， 

以 这 3 个 5 连 段 继续 向 两 端 扩展 ,注意 到 以 上 不 能 相 邻 的 要 求 , 各 组 只 有 唯一 选项 , 即 
得 以 下 3 个 解 : 1,2,5,8,3,4,7,6;7,6,5,8,3,2,1,4;7,6,5,8,3,4,1,2( 因 首尾 不 合 舍 去 ) 。 

(5) 综合 得 8 项 素数 和 环 的 4 个 解 。 


DT G) (1) (2) 
Tt 
© Td (7) (3) 


@7,6,5,8,3,2,1,4。 


第 个 解 的 素数 和 环 如 图 8-31 所 示 (#) 
分 析 这 4 个 解 , 其 中 第 中 个 与 第 @ 个 解 在 环 上 是 互 为 顺 (5 ) 
时 针 与 关 时 针 关 系 ;同样 ,第 四 个 与 第 加 个 解 在 环 上 是 互 为 册 6s， 抽 表 数 和 环 
顺 时 针 与 逆 时 针 关 系 。 


【拓展 】 推广 到 指定 区 间 内 的 整数 构建 。 

试 把 指定 区 间 [c,dj 上 的 所 有 正 整 数 围 成 一 个 环 ,如 果 环 中 所 有 相 邻 的 两 个 数 之 和 都 
是 素数 , 则 该 环 称 为 指定 区 间 [c,d] 上 的 素数 和 环 。 

输入 正 整数 c,d(c 二 d) ,构造 并 输出 该 区 间 上 所 有 不 同 的 素数 和 环 。 


1. 设计 要 点 

若 区 间 [c,d] 上 的 整数 个 数 n=d 一 c 十 1 为 大 于 1 的 奇数 , 则 环 中 总 存在 两 个 奇数 相 
邻 , 其 和 为 大 于 2 的 偶数 , 即 不 可 能 构成 素数 和 环 。 只 有 当 [c,d] 上 的 整数 个 数 n 为 偶数 
时 才 有 可 能 构成 素数 和 环 。 

(1) 设置 a 数组 a[ 订 =1~n, 其 中 为 区 间 [c,d] 中 整数 的 个 数 。 

为 避免 重复 输出 ,约定 第 1 个 数 aL1] 一 1。 

a[1] 对 应 区 间 上 的 c,aLn] 对 应 d。 一 般 地 ,a[ 让 对 应 区 间 上 的 整数 c 十 a[i 一 1。 

设置 b 数 组 标记 奇 素数 。 对 指定 的 正 整数 n, 首 先 用 试 商 判别 法 ,把 区 间 范 围 所 涉及 
奇 素数 标记 为 1, 例 如 ,b[7] 二 1 表明 7 为 素数 。 
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在 循环 中 ,i 从 2 开始 至 n 递增 ,a[i] 从 2 开始 递增 取 值 至 n。 

(2) 元 素 a[ 订 的 取 值 是 否 可 行 ,赋值 t==1, 然 后 进行 判断 。 

车 a[j 二 二 a[ 让 j= 二 1,2,…,i 一 1), 即 ai 与 前 面 的 a[j] 相 同 ,a[i] 取 值 不 行 ,标注 
t=0; 
判断 若 b[2 * c 十 a[ 避 十 a[i 一 1] 一 2]!==1, 即 所 取 a[ 订 对 应 区 间 上 的 相 邻 项 a[i 一 1] 之 
和 不 是 素数 ,标注 t=0。 

车 判断 后 保持 t==1; 说 明 a[ 订 取 值 可 行 。 

此 时 车 i 已 取 到 n, 且 b[2*c 十 a[nj 一 1]====1( 即 区 间 首 尾 项 之 和 也 是 素数 ), 则 输出 
一 个 解 ， 

车 i<n, 则 i 十 十 ;a[ 避 =2;, 即 继续 ,下 一 元 素 从 2 开始 取 值 。 

(3) 若 a[ 让 已 取 到 n, 再 不 可 能 往 后 取 值 , 则 i 一 一 ,即行 回溯 。 

回溯 至 前 一 个 元 素 ,a[ 避 十 十 继续 增值 。 

最 后 回溯 至 i=1, 完 成 所 有 探索 ,跳出 循环 结束 。 

(4) 输出 解 为 n 个 整数 c 十 a[j] 一 10=1~n)。 

考虑 到 当 n 较 大 时 ,n 项 素数 和 环 非常 多 ,约定 只 输出 5 个 解 后 提前 结束 。 


2. 回溯 程序 设计 


// 探 求 区 间 [c,d] 上 的 数组 合 素数 和 环 
# include < stdio. h> 
# include < math. h> 
voidmain0 
{ int oe,d,e,t,i,j,n,k,a[1000],b[500]; long s; 
printf(” 请 输入 指定 区 间 c,d: "); scanf("% d,%d",&c,&d) ; 


nd-ctl1; 

if (n% 2> 0) // 连 续 奇 数 个 整数 时 无 解 
{printf ("区间 数据 个 数 不 能 组 成 素数 和 环 !\n ") ;return;} 

e=2# cr1; 


for (k=e;k<=2x d;k++) b[k]=0; 
for (k=e;k<=2x dik+=2) 
{ for(t=0,j=3;j<=sqrt(k);j+=2) 
if (k% j==0) {t=1;break;} 
if (t==0) b[k]=1; // 奇 数 k 为 素数 标记 1 
} 
a[1]=1;s=0;i=2;a[i]=2:; 
while(1) 
{ t=1; 
for (j=1;j<i;j++) 
if(a[j]==a[i] || b[2* cra[i]+a[i- 人 -23]!=1) 
{t=0;break;} // 出 现 相同 元 素 或 非 素 时 返回 
if(t && i==n && b[2*x ct+a[n]- 1]==1) 
{ printf(” %ld:%d",++s,c); 
for (j=2;j<=n;j++) printf(",%d",ct+a[j]—1); 
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printf ("\n"); 


if (n> 12 && s==5) // 解 太 多 ,只 显示 前 5 个 解 
{ printf(” 区 间 [%d,%d] 组 成 多 个 素数 和 环 ,以 上 为 其 中 5 个 。\n", c,d); 
return; 
} 
) 
if(t && i<n) 
{i++ ;a[i]=2;continue;} 
while(a[i]==n 8&& i>1) i--; // 实 施 回 溯 
if(i>1) a[i]++; 
else break; 


} 
if(s==0) printf(” 区 间 [%d,%d] 中 没有 素数 和 环 。\n", c,d) ; 
else 
printf(” 区 间 [%d,%d] 中 共 %d 个 整数 组 成 以 上 % Id 个 素数 和 环 。\n", c,d, d- c+1,s); 
l 


3. 程序 运行 示例 与 说 明 


请 输入 指定 区 间 c, d: 40, 53 

1: 40, 43, 46, 51, 50, 47, 42, 41, 48, 53, 44, 45, 52, 49 

2: 40, 43, 46, 51, 52, 45, 44, 53, 50, 47, 42, 41, 48, 49 

3: 40, 49, 48, 41, 42, 47, 50, 53, 44, 45, 52, 51, 46, 43 

4: 40, 49, 52, 45, 44, 53, 48, 41, 42, 47, 50, 51, 46, 43 
区 间 [40,53] 中 共 14 个 整数 组 成 以 上 4 个 素数 和 环 。 


不 妨 训 析 第 一 个 解 40,43,46,51,50,47,42,41,48,53,44,45,52,49, 由 区 间 [40,53] 
中 的 14 个 整数 组 成 ,每 相 邻 两 个 整数 之 和 的 14 个 素数 分 别 为 83,89,97,101,97,89,83， 
89,101,97,89,97,101,89。( 最 后 素数 是 首尾 40 十 49 之 和 ) 

若 输入 区 间 为 [1,8], 即 得 上 面 求解 所 得 的 4 个 由 1 一 8 组 成 的 8 项 素数 和 环 。 

注意 到 区 间 中 的 数值 越 大 ,其 中 的 素数 越 稀少 。 因 而 在 保持 区 间 中 整数 个 数 n 不 变 
的 前 提 下 , 若 区 间 起 始 数 c 越 大 ,存在 素数 和 环 的 个 数 就 越 少 ,以 至 可 能 没有 。 

当 指 定 区 间 比 较 大 时 ,例如 确定 区 间 为 [1,200], 要 想 全 部 搜索 完 所 有 素数 和 环 可 能 
需要 很 长 时 间 , 则 只 搜索 输出 若干 (约定 5 个 ) 后 强行 退出 。 

当 输入 区 间 比 较 小 或 区 间 内 的 数 比较 大 时 ,可 能 不 存在 素数 和 环 ,程序 将 提示 “没有 
素数 和 环 ”。 

【变通 】 应 用 指定 区 间 上 的 整数 构建 合 数 和 环 。 

如 果 把 程序 作 以 下 改动 (两 个 1 改 为 0, 把 输出 的 “素数 ” 改 为 “ 合 数 ”)。 

b[2 ce 十 a[ 避 十 a[i 一 1 一 2J! =1 变 为 b[2xc 十 a[ 订 十 a[i 一 1j 一 2]! =0; 

bL2 * ca[nj 一 1]====1] 变 为 b[2xc 二 a[nj 一 1]===0。 

所 得 为 “ 合 数 和 环 ”, 即 环 中 各 相 邻 两 数 之 和 均 为 合 数 。 例 如 : 
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请 输入 指定 区 间 c, d: 40, 53 

1: 40, 41, 43, 42, 44, 46, 45, 47, 48, 50, 49, 51, 53, 52 
2: 40, 41, 43, 42, 44, 46, 45, 47, 48, 50, 52, 53, 49, 51 
3: 40, 41, 43, 42, 44, 46, 45, 47, 48, 51, 49, 50, 52, 53 


4: 40, 41, 43, 42, 44, 46, 45, 47, 48, 51, 49, 53, 52, 50 
5: 40, 41, 43, 42, 44, 46, 45, 47, 48, 51, 53, 49, 50, 52 
区 间 [40,53] 组 成 多 个 合 数 和 环 ,以 上 为 其 中 5 个 。 


易 验 证 知 环 中 每 相 邻 两 数 之 和 全 为 合 数 , 即 不 含 素数 。 合 数 和 环 的 解 可 能 相当 多 ,这 
里 只 输出 前 面 5 个 。 


8.9.2 数码 串珠 环 


作为 数 形 结合 的 一 个 经 典范 例 , 本 节 探 讨 环 上 整数 的 完全 覆盖 问题 。 
【问题 】 考古 发 掘 中 的 奇特 数码 珠 串 。 
在 某 寺 遗 址 考古 发 掘 中 意外 发 现 一 串 奇特 的 数码 珠 串 , 珠 串 上 共 串 级 有 4 颗 宝 珠 , 每 
一 颗 宝 珠 上 都 刻 有 一 个 神秘 的 整数 。 长 期 以 来 ,无 人 知晓 这 4 颗 数 码 串 珠 究竟 有 什么 
作用 。 
专家 考证 ,揭示 这 一 数码 串珠 具有 以 下 奇异 特性 。 
(1) 这 4 颗 宝 珠 上 的 整数 互 不 相同 ,4 个 整数 之 和 为 13 。 
(2) 沿 环 相连 的 若干 颗 (1 一 4 颗 ) 珠 上 整数 之 和 为 1,2,…,13 不 间断 。 这 一 连续 不 间 
断 象征 祥瑞 的 特性 表现 为 完全 覆盖 , 即 可 覆盖 区 间 [1,13] 中 的 所 有 整数 。 
请 确定 珠 串 上 4 颗 宝 珠 上 的 整数 及 其 相 串 的 顺序 。 
【思考 】 从 某 些 必 取 数 开始 实施 扩展 。 
为 叙述 方便 , 称 沿 环 若 干 相 连 整 数 之 和 为 “部 分 和 ”, 部 分 和 为 区 间 [1,13] 中 的 所 有 整 
数 不 间 断 称 为 “完全 覆盖 ”。 
问题 是 要 在 如 图 8-32 所 示 环 上 的 4 个 小 圆圈 中 各 填 入 一 
个 整数 ,这 4 个 整数 之 和 为 13, 且 沿 环 相连 的 若干 (1 一 4 个) 小 
圆圈 中 整数 之 和 覆盖 区 间 [1,13] 中 的 所 有 整数 。 
为 了 确定 和 为 13 的 4 个 整数 取 值 及 检验 这 4 个 整数 顺序 
是 否 能 完全 覆盖 ,设置 a 数组 存储 4 个 整数 ,4 个 整数 依次 为 
a(1) ,a(2),a(3) ,a(4)。 因 为 是 环 ,其 中 a(1) 与 a(2) 相 邻 ,a(1) 
也 与 a(4) 相 邻 。 
注意 到 这 4 个 整数 中 定 有 一 个 为 1, 不 妨 设 a(1) 二 1。 SN 
为 了 能 覆盖 2, 必须 有 两 个 相连 的 数 1, 或 有 一 个 数 为 2。 
前 者 与 “不 同 4 数 " 相 矛盾 ,因此 ,4 个 整数 中 必 有 一 个 为 整数 2。 
为 了 实现 完全 覆盖 ,整数 2 的 位 置 应 如 何 安放 呢 ? 
(1) 设 数 2 与 a(1) 相 邻 。 
不 妨 设 a(2) 二 2, 其 他 两 数 之 和 为 10, 则 有 以 下 情形 。 
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@ 环 序列 为 1,2,3,7; 部 分 和 没有 4, 舍 去 。 

@ 环 序列 为 1,2,7,3; 部 分 和 没有 5, 舍 去 。 

@ 环 序列 为 1,2,4,6; 部 分 和 没有 5, 舍 去 。 

@ 环 序列 为 1,2,6,4; 部 分 和 可 全 覆盖 区 间 [1,13], 找 到 一 组 数码 宝珠 配置 。 
因 a(4) 也 与 a(1) 相 邻 ,如 果 设 a(4) 一 2, 则 得 另 一 组 数码 宝珠 配置 : 1,4,6,2。 
(2) 设 数 2 不 与 a(1) 相 邻 。 

数 2 不 与 a(1) 相 邻 , 即 a(3) 一 2, 其 他 两 数 之 和 为 10, 则 有 以 下 情形 。 

@ 环 序列 为 1,4,2,6; 部 分 和 没有 3, 舍 去 。 

@ 环 序列 为 1,6,2,4; 部 分 和 没有 3, 舍 去 。 

@ 环 序列 为 1,3,2,7; 部 分 和 可 全 覆盖 区 间 [1,13]。 

@ 环 序 列 为 1,7,2,3; 部 分 和 可 全 覆盖 区 间 [1,13]。 

综 上 (1)(2) 所 得 4 组 数码 宝珠 配置 为 1,2,6,4;1,4,6,2;1,3,2,7;1,7,2,3。 
前 两 组 互 为 顺 时 与 逆 时 关系 ,实际 上 是 一 个 数码 宝珠 串 , 如 图 8-33(a) 所 示 。 
后 两 组 也 互 为 顺 时 与 道 时 关系 ,实际 上 也 是 一 个 数码 宝珠 串 , 如 图 8-33(b) 所 示 。 


图 8-33 4 数码 串珠 


完全 覆盖 验证 ， 

图 8-33(a): 1,2,1 十 2,4,1 十 4,6,2 十 1 十 4,2 十 6,1 十 2 十 6,4 十 6,1 十 4 十 6,2 十 6 十 4， 
1 十 2 十 6 十 4; 
图 8-33(b): 1,2,351 十 3,2 十 351 十 3 十 2,7,1 十 7;2 十 7,1 十 7 十 258 十 1 十 7,3 十 2 十 7 
lee 

【编程 拓展 】 探求 n 个 整数 的 数码 串珠 。 

一 般 地 ,求解 圆 环 上 的 n 个 整数 序列 ,其 和 为 s, 沿 环 的 部 分 和 完全 覆盖 区 间 [1,s] 上 
的 所 有 整数 。 


1. 回溯 设计 要 点 

拟 采 用 回溯 法 设计 探求 。 

(1) 数组 设置 。 

设置 a 数组 作 标 记 , 起 点 为 a(0) 王 0, 约 定 a(1) 一 a(0) 为 第 1 个 数 ,a(2) 一 a(1) 为 第 2 
个 数 ,…… ,一 般 地 a(i) 一 a(i 一 1) 为 第 i 个 数 。 

因 共 n 个 数 ,显然 a(n) 二 s, 第 nn 个 数 为 a(n) 一 a(n 一 1)。 
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因 m 个 数 中 至 少 有 一 个 数 为 1( 否 则 不 能 覆盖 1) ,不 妨 设 第 1 个 数 为 1, 即 a(1) 王 1。 

圆 环 上 的 mn 个 数 的 每 一 个 数 都 可 以 与 (约定 顺 时 针 方 向 ) 相 连 的 1,2,…,n 一 1 个 数组 
成 部 分 和 。 

为 构造 部 分 和 方便 ,定义 a(n 十 1) 与 a(1) 重 合 , 即 a(n 十 1)==s 十 a(1); a(n 十 2) 与 
a(2) 重 合 , 即 aCn 十 2) 一 s 十 a(2);……; 最 后 有 a(2n 一 1) 与 a(n 一 1) 重 合 , 即 a(2n 一 1) 一 
stu— 1 

(2) 判别 完全 覆盖 。 

设置 b 数组 存储 部 分 和 ,变量 u 统 计 b 数组 覆盖 区 间 [1,s] 中 数 的 个 数 。 

若 u=s 一 1(s 本 身 显然 覆盖 ,除去 不 计 ) , 即 完 全 覆盖 ,输出 和 为 s 时 的 序列 解 。 

(3) 取 数 与 回溯 。 

车 i<n 一 1,i 增 1 后 a(i)==a(i 一 1) 十 1 后 继续 探索 。 

当 i 之 1 时 a() 增 1 继续 ,至 a(i)= 二 s 一 n 十 i 时 回溯 。 

变量 s 与 n 的 值 从 键盘 输入 。 运 行程 序 时 ,选择 s 是 从 n(n 一 1) 十 1 开始 , 逐 减 取 值 
输入 ,最 先 所 得 解 为 对 应 n 的 s 最 大 值 。 然 后 再 从 这 些 解 中 选取 没有 相同 整数 的 解 。 


2. 回溯 程序 设计 


// 环 上 n 个 整数 和 为 s, 部 分 和 完全 覆盖 [1 s] 
# include < stdio. h> 
voidmain0 
{ intd,i,j,k,t,u, s,m,n,a[30],b[300]; 
printf(” n 个 整数 和 为 s, 实 现 完全 覆盖 ,请 确定 s,n: "); scanf ("%d,%d", &s, &n) ; 
a[0]= 0;a[1]=1;a[ln]=s;i=2;a[i]=2;m=0; 
while(1) 
{ if(iKnrD {it+; a[i]=a[i- 1]+1; continue;} 


else 
{ for(k=nt1;k<=2x*n-1;kt+) 
a[k]=s+a[k-n]; 
for (t=0, k=0;k<=n- 1;k++) 
for (j=k+1;j<=k+n-1;j++) 
{t++ ;b[t]=a[j]- afk];} // 序 列 部 分 和 赋值 给 b 数 组 
for(u=0,d=1;d<=s-1;d++) 
for (k=1;k<=t;k++) 


if(b[k]==d) {ut+ ;k=t;} // 检 验 b 数 组 取 1 s 有 多 少 个 
if(u==s-1) /b 数组 值 包括 1 s 所 有 整数 
{ m+;printf(” %2d:1",m); // 输 出 串珠 上 的 数码 


for (k=2;k<=n;k++) 
printf(",% 2d",a[k]— a[k- 1]); 
if (m% 2==0) printf ("\n"); 
} 
} 
while(a[i]==s-nti 8 i>1) i--; // 调 整 或 回溯 
if (i>1) a[i]++; 
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else break; 
} 
if > 0) printf("\n 共 以 上 %d 个 解 。\n",m); 
else printf("\n 此 问题 无 解 。\n"); 
} 


3. 程序 运行 示例 与 说 明 


n 个 整数 和 为 s, 实现 完全 覆盖 ,请 确定 s,n: 31,6 
B23 
2 
二 
Wo 
9:1,14, 4, 2, 3, 7 10:1,14, 5, 2, 6, 3 
共 以 上 10 个 解 。 


所 输出 的 解 中 没有 出 现 重复 整数 ,其 和 均 为 31, 且 满足 “完全 覆盖 ”的 要 求 。 
其 中 第 3 个 解 的 数码 珠 串 排列 如 图 8-34 所 示 。 
不 妨 以 此 图 解 展示 其 部 分 和 “完全 覆盖 ”的 特性 : (1) 
1,2,3,1 十 3,3 十 2,1 十 3 十 2,7,8,2 十 7,10， 
10 十 1,3 十 2 十 7,1 十 3 十 2 十 7,10 十 1 十 3,7 十 8。 Co) (G3) 
16 一 30 为 以 上 部 分 和 的 “ 补 部 分 和 ”,31 为 序列 
所 有 整数 之 和 。 
注意 到 了 环 上 6 个 数组 成 部 分 和 的 个 数 是 31 (s) C2) 
个 ,这 31 个 部 分 和 覆盖 1 一 31 ,意味 着 所 有 部 分 和 的 
数值 没有 重复 。 
同时 观察 到 ,这 10 个 解 两 两 配对 , 互 为 顺 时 针 与 (7) 
逆 时 针 关 系 。 例 如 ,其 中 第 1 个 解 与 第 8 个 解 是 一 图 8-34 6 码 申 珠 
对 ,等 等 。 
运行 程序 ,对 应 s=31, 若 输入 n 二 5; 或 对 应 n= 二 6, 若 输入 s=32 ,都 为 无 解 。 这 意味 
着 整数 31 分 解 为 6 整数 在 环 上 完全 覆盖 是 最 优 结论 。 
运行 程序 ,还 可 确定 对 应 n 二 5, 完 全 覆盖 s 一 21; 对 应 n 一 7, 完全 覆盖 s 二 39; 对 应 n 


8 ,完全 覆盖 s 二 51。 
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智能 游戏 探秘 


猜想 探索 与 游戏 揭秘 都 是 深 受 人 们 喜爱 的 趣 点 ,也 是 检测 与 提升 探索 技能 的 常见 
课题 。 

本 章 汇 聚 3x 十 1 猜想 、3 位 与 4 位 黑洞 数 、 等 距 平方 数 及 数学 家 欧 拉 做 过 的 涉及 等 距 
有 理 平方 数 的 数学 题 ,并 首次 提出 并 探求 单数 码 平方 数 及 立方 数 问题 。 在 约瑟夫 转圈 报 
数 出 圈 游 戏 基础 上 ,推出 新 颖 的 横 排 左右 报 数 出 列 游戏 ;在 一 维 的 硬币 行 倒 面 基础 上 , 探 
索 二 维 的 硬币 矩阵 翻转 等 有 智能 有 深度 的 游戏 。 进 一 步 探 讨 汉 诺 塔 游戏 ` 巴 什 游戏 、 威 索 
夫 游 戏 与 移动 8 数码 游戏 等 有 难度 的 游戏 经 典 。 

通过 这 些 具有 开创 性 与 探索 性 的 智能 游戏 ,逐步 提高 与 激励 开启 益 智 训练 与 数学 娱 
乐 的 兴趣 。 


9.1 3x+1 猜想 


在 美国 曾 流行 以 下 数学 游戏 ,并 逐步 扩展 到 世界 各 国 。 

从 任意 整数 开始 ,反复 做 以 下 运算 : 

(1) 若 为 奇数 , 则 乘 以 3 后 加 1。 

(2) 若 为 偶数 , 则 除 以 2。 

最 后 总 可 以 得 到 数 1 。 

这 一 简单 而 又 有 趣 的 问题 称 为 Collatz 猜想 ,又 称 Syracuse 问题 ,Kakutani 问题 、 
Hasse 算法 、Ulam 问题 等 ,名 目 繁多 ,以 下 简称 "3x 十 1 猜想 ”。 

以 上 论断 既 不 能 证 明 是 正确 的 ,也 不 能 举 出 反例 说 明 是 错误 的 。 正 因为 如 此 , 才 更 为 
吸引 广大 数学 爱好 者 的 关注 。 

设计 程序 ,对 指定 区 间 [b,c] 上 所 有 整数 ,验证 3x 十 1 猜想 是 否 成 立 : 输出 该 区 间 转 
化 次 数 最 多 与 最 少 的 整数 ,同时 具体 给 出 区 间 上 的 最 大 整数 c 的 3x 十 1 转化 过 程 。 


1. 设计 要 点 

对 于 区 间 [b,c] 上 的 整数 d, 赋 给 m 后 (不 改变 d) .设置 嵌 套 的 条 件 循环 实施 转换 操 
作 : 若 mn 为 奇数 , 则 m= 一 3* m+1: 若 mn 为 偶数 , 则 m 一 m/2。 直 至 m 二 1 时 结束 ,同时 用 
变量 n 统计 转换 的 步 数 。 

通过 比较 确定 指定 区 间 [b,cj 内 的 整数 完成 3x 十 1 猜想 的 最 多 步 数 max 与 最 少 步 数 
min。 只 要 min>1,max 为 有 限 整数 , 即 完成 了 区 间 [b,c] 上 所 有 整数 3x 十 1 猜想 的 验证 。 
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2. 程序 设计 


// 验 证 [b,c] 区 间 3x+1 猜想 ,并 输出 c 的 转化 过 程 
# include < stdio.h> 
void main0 
{ long bc,dm nml,m2,min,max; 
printf(” 验证 区 间 [b,c], 请 输入 整数 bc: "); 
scanf ("% 1d,% 1d",&b,&c) ; 
max= 0;min= 2000; 
for (d=b;d<=c;d++) 


{ n=0;md; 
while(m!=1) 
{ if%2==1){m=3x*mrh1int+ 计 // 奇 数 时 , 乘 以 3 后 加 1 
else {mm2;n++ ;} // 偶 数 时 , 除 以 2 
} 
if (n> max) { max= n;m1= d;} // 求 转化 步骤 的 最 大 值 
if (nC min) { min= n;m2= d;} // 求 转化 步骤 的 最 小 值 


} 

printf(” 区 间 中 %1d 转 化 步 数 最 多 :%1d 步 。\n", m1, max); 
printf(” 区 间 中 %1d 转 化 步 数 最 少 :%1d 步 。\n",m2,min); 
nn0; me; 

printf(” 整数 %1d 的 3x+1 转 化 过 程 :\n",m); 

printf(” %|1d",m); 


while(m!=1) 
{ if(m2==1) // 奇 数 时 , 乘 以 3 后 加 1 
{mE 3x m1;nt+; printf("—->% 1d",m) ;} 
else // 偶 数 时 , 除 以 2 


{mm/2:nt+; printf("—->%1d",m;} 
if(n%10==0) printf("\n");; 
if (n> 10000) break; 
} 
if n> 10000) printf("\n 进行 超过 10000 步 尚未 完成 转换 。\n"); 
else printf("\n 共 进 行 %Id 步 完成 转换 。\n",n); 
} 


3. 程序 运行 示例 与 说 明 


验证 区 间 [b,c], 请 输入 整数 b,c: 100, 2020 

区 间 中 1161 转化 步 数 最 多 :181 步 。 

区 间 中 128 转化 步 数 最 少 :7 步 。 

整数 2020 的 3x+ 1 转化 过 程 : 
2020- > 1010- > 505- > 1516- > 758- > 379- > 1138- > 569- > 1708- > 854- > 427 
->1282- > 641- > 1924- > 962- > 481- > 1444- > 722- > 361- > 1084- > 542 
—>271- > 814- > 407- > 1222- > 611- > 1834- > 917- > 2752- > 1376- > 688 
-> 344- > 172- > 86- > 43- > 130- > 65- > 196- > 98- > 49- > 148 
->74->37->112->56->28->14->7->22->11->34 
->17->52->26->13->40->20->10->5->16->8 
->4->2->1 
共 进 行 63 步 完成 转换 。 
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这 一 程序 运行 结果 说 明 区 间 [100,2020] 中 所 有 整数 转化 次 数 介 于 7 与 181 之 间 , 即 
说 明 该 区 间 中 所 有 整数 都 能 经 有 限 次 完成 转化 ,从 而 验证 了 指定 区 间 [100,2020] 上 3x 十 1 
猜想 是 成 立 的 。 


4. 猜想 的 引申 

引申 1: 探索 3x 一 1 转化 是 否 也 能 类 似 归结 到 1? 

回答 是 否定 的 。 

在 实施 3x 一 1 的 转化 中 ,对 某 些 数 会 出 现 一 些 循 环 圈 , 永 远 到 不 了 1。 

例如 循环 圈 5 一 汪 14 一 7 一 汪 20 一 >10 一 之 5。 

引申 2: 探索 5x 十 1 转化 是 否 也 能 类 似 归 结 到 1? 

回答 也 是 否定 的 。 

在 实施 5x 十 1 的 转化 中 ,对 某 些 数 会 出 现 一 些 循 环 圈 , 永 远 到 不 了 1 。 

例如 循环 圈 13 一 汪 66 一 汪 33 一 之 166 一 之 83 一 之 416 一 之 208 一 之 104 一 52 一 二 
26— 之 13 

由 此 可 知 ,如 果 要 推翻 3x 十 1 猜想 ,只 要 寻求 在 某 一 整数 的 转化 中 出 现 循环 圈 即 可 。 
遗憾 的 是 ,这 样 的 循环 圈 还 迟 迟 没有 出 现 。 


9.2 黑洞 数 探索 


黑洞 数 也 称 陷阱 数 ,又 称 *Kaprekar 问题 ”, 是 一 类 具有 奇特 转换 特性 的 整数 。 

这 里 所 说 的 转换 就 是 实施 “ 重 排 求 差 ?操作 : 组 成 该 数 的 数字 重 排 的 最 大 数 减 去 重 排 
的 最 小 数 。 

在 第 3 章 推 得 唯一 的 3 位 变 序 数 和 式 459 十 495 二 954。 把 这 个 和 式 改 写 为 “ 重 排 求 
差 " 式 954 一 459 二 495, 实 际 上 是 3 个 数字 互 不 相等 的 3 位 数 实施 “ 重 排 求 差 ” 操 作 ( 即 组 成 
该 数 的 数字 重 排 的 最 大 数 减 去 重 排 的 最 小 数 ) 所 得 差 m3 还 是 原来 3 个 数字 组 成 ,可 知 
m3 一 495。 

本 节 进 一 步 探求 涉及 4 位 数 “ 重 排 求 差 "操作 ,在 此 基础 上 探索 4 位 黑洞 数 ,并 通过 编 

【问题 】 一 个 4 位 数 的 4 个 数字 互 不 相等 .实施 “ 重 排 求 差 "操作 所 得 差 m4 还 是 原来 
那 4 个 数字 组 成 。 试 探求 m4。 

【探求 】 在 归纳 组 成 数字 的 性 质 后 ,采用 逐个 排除 法 探求 。 

不 妨 设 4 个 数字 为 ab,c,d, 且 a 二 b 二 c<=d, 据 “ 重 排 求 差 " 有 

m4 一 (1000d 十 100c 十 10b 十 a) 一 (1000a 十 100b 十 10c 十 d) 
一 999d 十 90c 一 90b 一 999a 
一 9(111d 十 10c 一 10b 一 111a) 

显然 差 m4 为 9 的 倍数 ,因而 m4 的 数字 和 s 王 a 十 b 十 c 十 4 为 9 的 倍数 。 

由 于 1 十 2 十 3 十 4 盖 9, 以 及 6 十 7 十 8 十 9 二 36, 因 而 m4 的 数字 和 s 王 18 或 s 一 27。 

同时 注意 到 最 大 数 的 千 位 数字 d 与 百 位 数字 c 分 别 大 于 最 小 数 的 千 位 数字 a 与 百 位 
数字 b, 因 而 差 m4 的 高 位 数字 为 e=d 一 a, 即 数字 e=d 一 a 必须 在 这 4 个 数字 中 。 
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(1) 车 s==27。 

数字 a,b,c,d 只 能 为 3.7.8,9;4,6,8,9;5,6,7,9 等 共 3 种 情形 。 

容易 看 出 ,这 3 种 情形 的 e 二 d 一 a 都 不 在 相应 的 4 个 数字 中 。 

(2) 若 s 王 18。 

若 a>3, 由 4 十 5 十 6 十 7 盖 18 ,因而 a=1,2,3。 

@ 若 a=3, 数 字 a,b,c,d 只 能 为 3,4,5,6, 由 6543 一 3456 一 3087, 后 3 个 数字 不 符 。 
@ 若 a=2, 数 字 a,b,c,d 只 能 为 2,3,4,9;2,3,5,8;2,3,6,7;2,4,5,7 共 4 种 情形 。 
前 3 种 情形 的 e=d 一 a 不 在 相应 4 个 数字 中 。 

而 数字 a,b,c,d 为 2,4,5,7 时 ,由 7542 一 2457 一 5085, 后 3 个 数字 不 符 。 

@ 若 a=1, 分 以 下 3 种 情况 讨论 。 

数字 a,b,c,d 为 1,2,6,9;1,3,5,9;1,3,6,8;1,4,5,8 时 ,显然 e 二 d 一 a 不 在 相应 4 个 


数字 中 。 


数字 a,b,c,d 为 1,2,7,8 时 ,由 8721 一 1278 一 7443 ,后 3 个 数字 不 符 。 

数字 a,b,c,d 为 1,4,6,7 时 ,由 7641 一 1467 王 6174 ,符合 要 求 。 

结论 : 所 求 差 m4 一 6174。 

1. 3 位 黑洞 数 及 其 探求 

任何 一 个 数字 互 不 相同 的 3 位 数 ,经 有 限 次 * 重 排 求 差 ?操作 ,总 会 得 3 位 整数 m3 一 


495, 这 里 495 即 为 3 位 黑洞 数 。 


试 任 找 一 个 3 位 数字 不 全 相同 的 3 位 数 实 施 * 重 排 求 差 操作。 例如 ,对 3 位 数 356 


实施 “ 重 排 求 差 " 操 作 : 


356: 653 一 356 一 297 

297: 972 一 279 一 693 

693: 963 一 369 一 594 

594: 954 一 459 一 495 

495: 954 一 459 一 495 

操作 结果 为 356 一 > 297 一 >> 693 一 > 594 一 之 495。 
显然 ,最 后 出 现 的 495 即 为 3 位 黑洞 数 m3。 

如 果 3 位 数 的 3 个 数字 全 同 , 则 * 重 排 求 差 ?操作 后 转换 为 0。 


2. 4 位 黑洞 数 及 其 探求 
同样 ,任何 一 个 数字 互 不 相同 的 4 位 数 ,经 有 限 次 “ 重 排 求 差 "操作 ,总 会 得 一 个 4 位 


整数 m4 二 6174, 这 里 6174 即 为 4 位 黑洞 数 。 


任 找 一 个 4 位 数字 互 不 相同 的 4 位 数 实施 “ 重 排 求 差 "操作 。 例 如 ,对 4 位 数 3245 实 


施 * 重 排 求 差 ?操作 : 
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3245: 5432 一 2345 一 3087 
3087: 8730 一 0378 一 8352 
8352: 8532 一 2358 一 6174 
6174: 7641 一 1467 一 6174 
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操作 结果 为 : 3245 一 之 3087 一 之 8352 一 之 6174。 

显然 最 后 出 现 的 6174 即 为 4 位 黑洞 数 m4。 有 资料 介绍 ,印度 数学 家 研究 过 m4, 得 
到 的 黑洞 数 6174 称 为 卡 布 列 克 数 。 

如 果 4 位 数 的 4 个 数字 全 同 ,* 重 排 求 差 ?操作 后 转换 为 0。 

【编程 验证 】 

以 上 探求 的 3 位 与 4 位 黑洞 数 是 在 假设 所 有 3 位 或 4 位 数 经 “ 重 排 求 差 ” 操 作 必 会 得 
到 一 个 3 位 m3 或 4 位 数 m4( 或 0)。 是 否 经 * 重 排 求 差 " 操 作 会 得 到 其 他 数 , 必 须 经 逐个 
检验 才 行 。 

设计 程序 ,验证 所 有 指定 的 n(n 二 3,4) 位 数 经 有 限 次 “ 重 排 求 差 ” 操 作 。 

当 n==3 时 ,验证 所 有 900 个 3 位 数 经 有 限 次 * 重 排 求 差 ?操作 ,总 会 得 495 或 0, 而 不 
会 出 现 这 两 个 数 之 外 的 其 他 数 。 

当 n 一 4 时 ,验证 所 有 9000 个 4 位 数 经 有 限 次 * 重 排 求 差 ?操作 ,总 会 得 6174 或 0, 而 
不 会 出 现 这 两 个 数 之 外 的 其 他 数 。 


1. 设计 要 点 

(1) 设置 目标 与 循环 。 

设置 黑洞 数目 标 : ht(3) 王 495,ht(4) 一 6174。 

根据 输入 的 整数 n(3 或 4) 计算 最 小 的 n 位 数 t, 设 置 m(t 一 10t 一 1) 循 环 枚 举 所 有 n 


位 整数 。 
注意 到 当 整 数 n 的 各 位 数字 相同 时 重 排 求 差 得 0, 因 此 把 ht(n) 与 0 同时 作为 循环 的 
目标 条 件 。 


(2) 设计 重 排 求 差 函 数 。 

设置 函数 sub(i) ,对 mn 位 整数 i 重 排 求 差 。 

首先 把 i 分 解 为 n 个 数字 存储 于 a(1) 一 aCn) 。 然 后 从 大 到 小 排序 为 a(1) 宇 a(2) 三 … 三 
a(n) ,于 是 通过 循环 组 合 得 最 大 数 max 与 最 小 数 min, 相 减 得 差 赋 给 i。 

(3) 统计 与 求 最 值 。 

若 重 排 求 差 所 得 整数 i 不 是 黑洞 数 ht(n) 或 0, 返回 实施 重 排 求 差 ,直到 出 现 黑洞 数 
ht(n) 或 0 为 止 。 

设置 统计 转换 为 0 的 个 数 变量 s0, 转 换 为 黑洞 数 的 个 数 变 量 s1 ,如 果 s0 十 s1 二 9t( 即 
所 有 nn 位 数 的 总 个 数 ), 即 验证 了 所 有 n 位 数 经 * 重 排 求 差 ? 操 作 只 转换 为 黑洞 数 或 0, 没 
有 转换 为 其 他 数 。 

同时 设置 统计 转换 次 数 的 变量 s, 通 过 比较 得 转换 次 数 s 的 最 大 值 max。 若 max 为 
有 限 , 即 完成 n 位 黑洞 数 验证 。 

最 后 ,输出 最 大 转换 次 数 max 的 转换 到 黑洞 数 的 过 程 。 


2. 验证 3,4 位 黑洞 数 程序 设计 


// 经 重 排 求 差 操作 探求 3,4 位 黑洞 数 
# include < stdio. h> 


int ni 
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voidmain0 
{ int ij,k,m,ml,s, s0, s1,t,max,ht[5]; int sub(int i); 
s0= s1= 0;ht[3]= 495;ht [4]= 6174; // 明 确 3,4 位 黑洞 数 
printf(” 请 输入 位 数 n(n= 3,4) :") ;scanf("%d",&n) ; 
for (t=1,k=1;k<=n- 1;k++) t=tx 10; At 为 最 小 的 n 位 数 
for (max=0, m= t;m<=10x t-1;mt+) 
{ i=m;s=0; //s 统计 m 转 换 到 黑洞 数 的 次 数 
while(i!l=ht[n] && i!=0) // 目 标 条 件 判别 
{ i=sub(i) ;s+t+;} 
if (i==0) sO++; 
if(i==ht[n]) si++; // 统 计 转 换 为 黑洞 数 的 个 数 
if(i==ht[n] && s> max) {max=s;ml=m;j=i;} // 最 多 转换 次 数 max 
| 
if (s0+ s1==9x t) // 检 验 转换 结果 只 有 这 两 种 才 输 出 


{ printf(” 共 %d 个 %d 位 数 :%d 个 转换 为 黑洞 数 ,%d 个 转换 为 0。\n",9* t,n,s1,s0) ; 
printf(” 其 中 %d 最 多 转换 %d 次 至 %d 位 黑洞 数 %d。\n", m1, max,n, ht[n]); 
printf(” %d",m1); i=mi; 
while(i!=ht[n] && i!=0) 

{ i= sub(i) ;printf("->%d", i);} 
printf(", \n"); 
} 
} 


int sub(int i) // 把 n 位 数 i 经 一 次 重 排 求 差 得 p 
{ intp,k,j,h,c,d,e,a[5]; 
e=0; 
while(i> 0) 
{et + ;a[e]= i% 10;i= i/10;} // 分 离 i 的 n 个 数字 


for (k=1;k<=n- 1;k++) 
for (j=k+1;j<=n;j+t+) 


if (a[k]< a[j]) { h=a[lk] ;a[k]=a[j];a[j]=h;} /n 个 数字 排序 a[1]>…> a[4] 
c=d=0; 
for (k=1;k<=n;kt++) 

{c=c x 10+ a[k];d=d* 10+ afn+ 1-k];} // 得 最 大 数 c 与 最 小 数 d 
p=o-d; //p 为 最 大 与 最 小 d 之 差 

return (p) ; // 返 回 重 排 差 p 


} 
3. 程序 运行 示例 与 说 明 


请 输入 位 数 n(n=3,4) :3 
共 900 个 3 位 数 :840 个 转换 为 黑洞 数 ,60 个 转换 为 0。 
其 中 102 最 多 转换 5 次 至 3 位 黑洞 数 495。 
102- > 198- > 792- > 693- > 594- > 495. 

请 输入 位 数 nn= 3.4 :4 
共 9000 个 4 位 数 :8923 个 转换 为 黑洞 数 ,77 个 转换 为 0。 
其 中 1004 最 多 转换 7 次 至 4 位 黑洞 数 6174。 
1004- > 4086- > 8172- > 7443- > 3996- > 6264- > 4176- > 6174。 
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子 程 序 sub(int iD 实施 n 位 数 重 排 求 差 操作 ,其 中 n 变量 属于 全 部 变量 ,在 主 程序 与 
sub(int 让 中 的 n 同样 有 效 。 

程序 设计 了 验证 功能 : 由 s0 十 s1 二 9t, 说 明 所 有 n 位 整数 全 部 转换 为 黑洞 数 或 0; 而 
且 转 换 为 黑洞 数 的 次 数 最 多 为 有 限 的 max, 从 这 两 个 方面 完成 验证 。 

【引申 】 

还 未 见 有 资料 介绍 过 5 位 黑洞 数 。 对 于 所 有 5 位 数 ,是 否 经 有 限 次 “ 重 排 求 差 ? 可 得 
某 一 确定 的 5 位 黑洞 数 或 0 呢 ? 
回答 是 否定 的 。 因 有 些 数 经 过 多 次 * 重 排 求 差 ?后 又 回 到 该 数 ,出 现 操作 循环 圈 。 
已 发 现 的 循环 圈 如 下 所 示 。 
62964 一 之 71973 一 之 83952 一 之 74943 一 之 62964; 
63954 一 之 61974 一 之 82962 一 之 75933 一 之 63954。 


9.3 平方 数 等 距 趣 谈 


本 节 在 探求 等 距 整数 平方 数 基 础 上 ,通过 * 欧 拉 做 过 的 题 " 进 一 步 探讨 有 理 平 方 数 等 
距 问 题 。 


9.3.1 等 距 整 数 平方 数 
所 谓 等 距 整 数 平方 数 ,就 是 3 个 不 相同 正 整数 x 二 y<z 的 平方 数 相差 等 距 : y’ 一 x’ 二 


下 = 
在 一 位 数 中 ,显然 有 1,5,7, 其 平方 数 相差 等 距 : 7? 一 5 二 5: 一 1* 二 24。 这 里 1,25,49 
也 是 最 小 的 等 距 3 平方 数 。 
下 面 先 探求 以 下 两 个 涉及 3 平方 数 的 简单 问题 。 
【问题 1】 已 知 n 是正 整 数 ,n? 十 6000 与 下 一 6000 都 是 平方 数 , 试 求 n 的 值 。 
【探求 】 该 题 给 定 等 距 为 6000 ,探求 等 距 3 平方 数 。 
考虑 到 二 次 不 定 方程 x? 十 == 忆 的 正 整 数 解 可 表示 为 
x=w—Vy= 2uvz= 二 Vv (1) 
其 中 正 整 数 u,v 为 一 奇 一 偶 。 
设 二 一 6000 二 a ,nm 十 6000= 二 ,两 式 相 乘 整理 得 
(n2)2: = (ac)’ 十 60002 (2) 
注意 到 6000 为 偶数 , 令 y= 二 2uv 二 6000, 则 uv 二 3000 二 3X23 X53。 
因 u,v 一 奇 一 偶 , 则 2 只 能 在 u,v 之 中 的 某 一 个 。 
(1) 取 u 一 5 一 125,v 一 3X23 一 24， 则 站 一 1252 十 242 一 16 201 ,为 非 平方 数 , 舍 去 。 
(2) 取 u 一 3X5: 一 75,v 一 5X23 一 40, 则 呈 2 一 752 十 402 一 7225, 得 n 一 85。 
代入 nm: 一 6000 二 a? ,mn 十 6000 一 c ,得 a 二 35,c 二 115。 
(3) 取 u,v 一 奇 一 偶 的 其 他 取 法 ,ww 士 v 为 非 平 方 数 。 
因而 求 得 n 一 85, 即 35,85,115 的 平方 数 等 距 6000。 
【问题 2】 已 知 m 是 正 整数 ,65? 十 m 与 65 一 m 都 是 平方 数 , 试 求 m 的 值 。 
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【探求 】 该 题 给 出 等 距 3 平方 数 的 等 差 中 项 为 65? , 求 等 距 ( 即 公差 )m。 
设 65 一 m 一 a ，652 十 m 一 c ,显然 a 一 c, 两 式 相 乘 整理 得 
(652)2 一 〈ac)2: 十 mz (3) 
根据 式 (1) ,同时 65 二 5X13,65’ 二 5 X13?, 则 有 以 下 情形 。 
(1) 注意 到 5 二 人 十 3?, 则 652 一 522 十 39: ， 即 u 一 52,v 一 39, 于 是 
ac 一 二 一 只 一 522 一 39: 一 13X91, m 一 2uv 一 2X52X39 一 4056 。 
因而 得 a=13,c 一 91,m 一 4056。 
(2) 注意 到 13: 一 122 十 5 , 则 65? 二 60? 十 25? , 即 u 一 60,v 一 25, 于 是 
ac 一 旦 一 吧 一 602 一 252 一 35X85，m 一 2uv 一 2X60X25 一 3000。 
因而 得 a=35,c 一 85,m 一 3000。 
(3) 注意 到 65 十 63 二 128 二 27 ,65 一 63 二 2, 相 乘 有 65? 一 63? 二 2 , 即 652 一 632 十 162， 


ac=u:—Vv:=63:—16:= 二 47X79, m 二 2uv 二 2X63X16 二 2016。 

因而 得 a=47,c==79,m 二 2016。 

(4) 注意 到 65 十 56 二 121 二 11? ,65 一 56 二 9 二 3? , 相 乘 有 65? 一 56? 二 33? , 即 652 一 56? 
二 39 于 是 

ac 一 岂 一 史 一 562 一 332 一 23X89, m 一 2uv 一 2X56X33 一 3696 。 

因而 得 a=23,c 王 89,m 一 3696 。 

综 上 得 , 若 等 距 3 平方 数 的 等 差 中 项 为 65 , 则 等 距 m 至 少 有 4056 ,3000,2016,3696 
等 4 个 值 , 使 得 65: 十 m 与 65 一 m 都 是 平方 数 。 

【拓展 】 试 在 指定 区 间 [x,y] 的 整数 中 ,探求 所 有 的 3 元 组 a,b,c(a 二 b 二 c) ,其 平方 
数 等 距 , 即 满足 


cz 一 bz 一 bb 一 a2 (4) 

输入 区 间 x,y, 输 出 区 间 [x,y] 上 所 有 满足 平方 数 等 距 式 (4) 的 3 元 组 ab,c(a<b<c)， 
并 输出 其 平方 数 的 等 距 数 。 

(1) 枚 举 设计 要 点 。 

设置 a(x 一 y 一 2) ,b(a 十 1,y 一 1) 二 重 循环 枚 举 3 元 组 a,b,c(a<b<c) 中 的 a,b。 

根据 a,b, 计算 其 平方 差 m 二 bx*b 一 a * a, 同 时 计算 与 平方 数 b: 相差 m 的 整数 t= 
bx b 二 me 

对 整数 t 是否 为 平方 数 及 其 是 否 越界 实施 判别 : 如 果 t 不 是 平方 数 ,或 ty, 则 返回 
试 下 一 组 ab; 如果 tt 是 平方 数 t 王 cx*c, 且 t 委 y, 即 t 在 区 间 内 , 则 输出 一 组 解 ,并 用 kk 
统计 。 

最 后 ,循环 结束 时 若 k 二 0, 说 明 指 定 区 间 内 无 解 ,输出 “无 解 ”信息 。 

(2) 程序 设计 。 


// 探 求 指定 区 间 内 等 距 平方 数 
# include《“math.h> 
# include < stdio. h> 


void main0 
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{ longm,t; int a,b,c,k,x,y; 
printf(” 请 输入 区 间 x,y:"); scanf ("%d,%d", &x, &y) ; 


k=0; 

for (a=x;a =y- 2;at+) // 设 置 二 重 循环 枚 举 a,b 

for (b=at+1;b<=y-1;b++) 

{ mbxb-axa;t=bxb+m; // 计 算 可 能 的 等 距 m 及 6 
c= (int) sqrt (t) ; 
if(cx c==t 8&& c<=y) // 若 t 为 平方 数 则 输出 一 组 解 
We 


printf(" %3d:%d,%d,%d",k,a,b,c); 
printf(", 其 平方 数 相差 等 距 :% 1d\n",m) ; 
} 
| 
if(k>0) printf(” 区 间 [%d,%d] 中 共 以 上 %d 组 解 。\n", x,y,k); 
else printf(” 没有 找到 等 距 3 平方 数 \n"); 
lj 


(3) 程序 运行 示例 与 说 明 


请 输入 区 间 x,y:200, 300 
1:213, 255, 291, 其 平方 数 相差 等 距 :19656 
2:223, 257, 287, 其 平方 数 相差 等 距 :16320 
3:241, 265, 287, 其 平方 数 相差 等 距 :12144 
区 间 [200, 300] 中 共 以 上 3 组 解 。 


运行 程序 ,输入 区 间 [1,200], 可 具体 验证 上 面 两 个 问题 求解 结论 。 
变通 : 请 修改 程序 ,验证 上 面 所 解 两 个 问题 解答 是 否 正确 。 

9.3.2 欧 拉 做 过 的 题 
据 称 数学 大 师 欧 拉 晚 年 双 目 失明 后 ,一 个 朋友 造访 ,向 欧 拉 提 出 以 下 数学 题 。 
【问题 3】 一 个 有 理 数 q, 使 得 里 一 5 与 里 十 5 都 是 有 理 数 的 平方 , 试 求 q。 
欧 拉 略 加 思索 就 说 出 了 问题 的 答案 。 你 知道 他 说 的 答案 吗 ? 


【分 析 】 这 是 一 个 有 理 数 平方 等 距 问题 ,事实 上 与 上 面 的 整数 等 距 平 方 密切 相关 。 


设 整数 ab,c(a<b 一 c) ,其 平方 数 等 距 m, 即 满足 
cz 一 b: 一 bb 一 a2: 一 m 


若 m 二 5d? (这 里 d 为 整数 ) , 则 3 个 有 理 数 a/d,b/d,c/d 的 平方 相差 等 距 5 。 


有 理 数 31/12,41/12,49/12 的 平方 相差 等 距 5, 即 欧 拉 所 做 题 的 答案 为 q 一 41/12。 
【拓展 】 以 上 问题 中 的 等 距 整数 5 改 为 6. 或 改 为 8 时 ,是 否 存在 解 ? 


以 上 程序 探索 可 知 3 整数 31,41,49, 其 平方 相差 等 距 m 二 720 二 5X12?, 则 得 3 个 


试 把 以 上 问题 中 的 等 距 整 数 5 一 般 化 为 指定 区 间 [Lx,yj 中 的 整数 n, 试 求 存在 3 个 有 


理 数 ,其 平方 等 距 为 n。 
(1) 设计 要 点 。 


设置 等 距 整数 nCx 一 y) 枚 举 循环 ,要 确定 其 中 哪些 n 能 成 为 3 有 理 数 平方 相差 的 
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同时 设置 a(1 一 10* y) 与 b(a 二 1 一 10*a) 枚 举 循环 (其 循环 上 限 可 据 情况 修改 ) 。 
对 每 一 组 ab, 计 算 整 数 平方 等 距 m 一 b* b 一 ax a* 若 差距 m 不 含 n 因数 , 则 返回 。 


若 整数 平方 等 距 m 一 bx* b 一 ax* a 含 的 n 因数 , 则 计算 t= 二 bx*b 十 m; 同 时 计算 e 一 


my/n。 


检验 ; 若 t=cx*c 且 e=dxd( 即 m=nx*dxd, 这 里 c,d 均 为 整数 ) , 即 找到 其 平方 相 


差 等 距 为 n 的 3 个 有 理 数 a/d,b/d,c/d, 进 行 打印 输出 。 
(2) 程序 设计 。 


// 探 求 3 有 理 数 平方 相差 等 距 

# include < math. h> 

# include < stdio.h> 

void main0 

{ inta,b,c,d,e,k,n,x,y; long mti; 
printf(” 请 确定 等 距 范围 x,y(< 100) :"); 
scanf ("% d,%d", &x, &y) ; 


k=0; 
for (n=x:n=y;n+ +) 
{ for(a=1;ak=y* 10;at+) // 设 置 二 重 循环 枚 举 ab 
{ b=a+1; 
while(b<=ax 10) 
{ b++;nmFbxb-axai 
if (m% n> 0) continue; 
t=bx btm; e=m/n; // 计 算 可 能 的 等 距 m 及 @ 
c= sqrt (t); d= sqrt(e) ; 
if(cx c==t && dx d==e) // 若 t,d 为 平方 数 则 输出 一 组 解 
{ printf(” 3 个 有 理 数 平方 相差 等 距 %2d:",nm) ; 
printf("%d/%d,%d/%d,%d/%d \n",a,d,b, d, c,d); 
k++ ;a=y* 10; 
} 
if(a==yx 10) break; // 输 出 一 个 解 后 即 退 出 探求 下 一 个 n 
} 
} 
} 
if (k==0) 


printf(” 在 指定 等 距 范围 内 [%d,%d] 没 找到 3 平方 有 理 数 。\n", x,y); 
| 


(3) 程序 运行 示例 与 说 明 。 


请 确定 等 距 范 围 x,y(< 100) :1,20 

3 个 有 理 数 平方 相差 等 距 5: 31/12, 41/12, 49/12 

3 个 有 理 数 平方 相差 等 距 6: 1/2, 5/2, 7/2 

3 个 有 理 数 平方 相差 等 距 7: 113/120, 337/120, 463/120 
3 个 有 理 数 平方 相差 等 距 14: 47/12, 65/12,79/12 

3 个 有 理 数 平方 相差 等 距 15: 7/4,17/4, 23/4 

3 个 有 理 数 平方 相差 等 距 20: 31/6, 41/6, 49/6 
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上 面 欧 拉 所 做 问题 的 答案 即 程 序 输出 的 第 1 个 解 ,3 个 有 理 数 31/12,41/12,49/12 
的 平方 相差 为 整数 5。 

把 等 距 整数 5 改 为 6 时 , 即 程序 输出 的 第 2 个 解 ,3 个 有 理 数 1/2,5/2,7/2 的 平方 相 
差 为 整数 5。 

把 等 距 整数 5 改 为 8 一 13 时 ,程序 没有 搜索 出 相应 的 解 。 这 并 不 能 说 等 距 为 8 一 13 
时 都 不 存在 相应 的 解 ,可 能 由 于 其 解 的 数值 较 大 而 暂 未 搜索 到 。 


9.4 单数 码 方 寡 数 


本 节 首 次 提出 并 求解 新 颖 的 “单数 码 方 客 数 ”问题 ,以 问答 形式 引导 单数 码 平方 数 与 
单数 码 立方 数 的 问世 。 

数学 爱好 者 请 教 老师 一 个 单数 码 方 寡 数 问题 : 是 否 存在 一 个 多 位 平方 数 , 它 的 各 位 
数字 相同 ? 是 否 存在 一 个 整数 的 3 次 宕 , 它 的 各 位 数字 相同 ? 

“问题 非常 新 颖 ,也 很 有 趣 ” ,老师 做 出 了 回答 :“ 你 们 所 提出 的 是 一 个 单数 码 方 寡 问 
题 ,如 果 在 十 进 制 中 不 太 可 能 成 立 ,但 并 不 意味 在 其 他 进 制 中 也 不 可 能 成 立 。” 


9.4.1 单数 码 平方 数 


本 节 求 解 一 个 简单 的 2 位 单数 码 平方 数 问题 ,再 通过 编程 拓展 到 多 位 单数 码 平方 数 。 

【问题 1】 整数 33 是 一 个 平方 数 吗 ? 

老师 接着 提出 了 问题 : 你 们 说 33 这 个 2 位 整数 是 不 是 一 个 平方 数 ? 在 哪些 进 制 中 
是 一 个 平方 数 ? (约定 在 不 超过 100 进 制 考 虑 ) 

【求解 】 设 在 pC4 一 100) 进 制 中 33 是 一 个 平方 数 ,显然 在 p 进 制 中 

33 二 3p 十 3 = 二 3(p 十 1) 

在 p 进 制 中 33 为 平方 数 , 当 且 仅 当 p 十 1 二 3x* ,这 里 x 为 一 个 大 于 1 的 整数 。 
注意 到 3 二 p 二 100, 可 试 取 x 二 2,3,4,5 这 4 种 情形 。 而 当 x 三 6 时 ,导致 p 二 100, 显 
然 不 符合 约定 。 

具体 取 数 实验 如 下 : 

取 x=2, 得 p= 二 11, 即 在 11 进 制 中 : 33==3X11 十 3 二 36 二 6?。 

取 x=3, 得 p= 二 26, 即 在 26 进 制 中 : 33 王 3X26 十 3 一 81 一 9 。 

取 x=4, 得 p= 二 47, 即 在 47 进 制 中 : 33 王 3X47 十 3 一 144 一 122 。 

取 x=5, 得 p= 二 74, 即 在 74 进 制 中 : 33 王 3X74 十 3 一 225 一 15? 。 

【编程 拓展 】 进一步 探求 mCm 过 2) 位 单数 码 平方 数 。 

根据 从 键盘 输入 的 位 数 m 及 进 制 的 上 限 q, 设 计 程 序 探求 在 (2 一 q) 进 制 中 的 所 有 m 
位 数字 相同 的 平方 数 。 

1. 设计 要 点 

(1) 设置 枚 举 循环 。 

设置 bp(2 一 q) 进 制 循环 ,根据 指定 的 位 数 m, 计 算出 在 p 进 制 中 最 小 的 m 位 整数 k; 
然后 计算 b==Vk 与 c= VPK 一 1 ,建立 j(b 一 c) 枚 举 循 环 ,显然 s 一 jXj 即 为 p 进 制 中 的 m 位 
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平方 数 。 

(2) 检测 m 个 数字 。 

通过 整除 运算 与 取 余 运算 得 到 平方 数 s 的 m 个 数字 ( 记 为 e): 如 果 这 m 个 数字 中 存 
在 不 同 , 即 退 出 检测 ,试验 j 循环 的 下 一 个 数 ;如果 s 的 m 个 数字 全 相等 , 则 找到 p 进 制 中 
m 位 数字 相同 的 平方 数 s。 

(3) 打印 输出 。 

在 p 进 制 中 m 位 数字 相同 的 平方 数 s 的 数字 e 须 分 两 种 情形 输出 。 

当 e 二 10 时 直接 输出 即 可 ; 

否则 ,例如 e 王 13 , 须 加 中 括号 [13] 标 注 为 一 个 数字 。 

在 输出 s 的 m 位 数字 e 之 前 ,还 须 输出 j^2==s 中 的 j^2。 


注 


E 意 到 j 是 一 个 10 进 制 数 ,同样 须 通 过 “ 除 p 取 余 ”把 j 转换 为 p 进 制 数 。 考 虑 到 “ 除 


P 取 余 ”最 先 得 到 的 是 个 位 数字 ,如 果 直 接 输出 只 能 把 个 位 数字 最 先 输出 。 

因此 ,为 了 实现 从 高 位 到 低位 输出 ,引入 a 数组。 在 实施 * 除 p 取 余 ”时 把 j 的 各 位 数 
字 存 储 在 a[1] 一 a[ 句 ,输出 时 按 a[ 生 ~~a[1] 即 从 高 位 到 低位 输出 。 

同时 ,输出 a[ 和 ~~a[1J 时 也 得 区 分 a[ 记 是 否 小 于 10。 若 aL 计 过 10 ,同样 需要 加 方 括号 


标注 。 


2. 单数 码 平方 程序 设计 
// 搜 索 m 位 单数 码 平方 数 


# 
# 


include < stdio. h> 
include < math. h> 


voidmain0 


{ 
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int b, c,d, e, f, g, i, j,t, m,n,p,q,a[100]; long k,s; 
printf(” 请 输入 平方 数位 数 m(1< mK 6) :"); scanf ("%d", &m) ; 
printf(” 请 输入 p 进 制 的 上 限 q:"); scanf("%d",&q) ; 


m0; 
for (p=2;p<=q;p++) // 在 2 q 进 制 以 内 搜索 
{ for(k=1,j=1;j<=m1;jt+) k=k*p; /Wk 为 p 进 制 最 小 m 位 数 
b= int (sqrt (k)) ;c= int (sqrt (p * k- 1)); 
if (b< 2) b=2; 
for (j=b;j<=e;j++) 
{ s=j*j;ds;e=d%p;d=d/p;t=0; //s 为 m 位 p 进 制 平 方 数 


for (i=2;i<=m;i++) 
{ gd%p;d=d/p; 


if(g!=e) { t=1;break;} // 平 方 s 有 数字 不 同 ,t=1 
} 
if(t==0) // 满 足 条 件 ,输出 解 
{ nt+;printf(” 在 %d 进 制 中 :",p); 
dj;f=0; 
while(d> 0) 
{f++;a[f]=d% p;d=d/p;} // 输 出 f 位 p 进 制 数 q 


for (i=f;i>=1;i--) 
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if (a[i]< 10) printf ("% d", a[i]); 
else printf ("[% d]", a[i]); 
printf ("2= "); 
for (i=1;i<=m;i++) // 输 出 m 位 单 码 平方 数 
if (e< 10) printf ("%d", e); 
else printf ("[% d]", e); 
printf ("\n"); 


} 
} 
if (n> 0) printf(” 探索 到 以 上 %d 个 %d 位 单数 码 平方 数 1\n",n,m); 
else printf(” 未 探索 到 %d 位 单数 码 平方 数 !\n",m ; 
} 


3. 程序 运行 结果 与 说 明 


请 输入 平方 数位 数 m(1<mK 6): 4 
请 输入 p 进 制 的 上 限 q:100 
在 7 进 制 中 :26`2= 1111 
在 7 进 制 中 :55`2= 4444 
在 41 进 制 中 :[29] [29]`2= [21] [21] [21] [21] 
在 99 进 制 中 : [76] [16] ”2= [58] [58] [58] [58] 
探索 到 以 上 4 个 4 位 单数 码 平方 数 ! 


式 左 边 为 2 位 数 , 式 右边 为 4 位 平方 数 。 其 中 若 某 位 数字 大 于 10 ,用 方 括号 括 起 来 。 

有 趣 的 是 ,以 上 4 个 解 中 的 中 间 两 个 解 ,左右 两 边 都 是 单 码 数 。 

在 7 进 制 中 : 55^2 二 4444; 

在 41 进 制 中 : [29][29]^2 王 [21][21][21][21]。 

这 一 两 边 都 是 单 码 数 的 平方 数 式 是 非常 奇特 的 。 

以 上 输出 的 4 个 4 位 单 码 平方 数 ,其 个 数 与 p 进 制 的 范围 相关 。 

若 输入 q=50 ,限定 进 制 p 的 范围 为 (2 一 50), 则 最 后 一 个 解 就 没有 。 若 限定 p 的 范 
围 为 (2 一 10) , 则 只 有 前 2 个 解 。 

不 妨 训 析 以 上 输出 的 第 4 个 解 : 在 99 进 制 中 [76][16]^2= 一 [58][L58]L58][58] ,转换 
为 十 进 制 剖 析 于 下 : 

左边 为 [76][16] 一 76X99 十 16 一 7540，7540^2 一 56851600， 

右边 为 [58][58][58][58] 一 58X99^3 十 58X99^2 十 58X99 十 58 一 56851600。 

显然 ,在 99 进 制 中 4 位 单数 码 平方 数 [58]L58]L58][L58] 成 立 。 

顺便 指出 ,5 位 单数 码 平方 数 只 有 一 个 : 在 3 进 制 中 ,102^2 一 11111。 

同时 ,尚未 发 现 6 位 及 以 上 的 单数 码 平 方 数 。 


9.4.2 单数 码 立 方 数 
首先 求解 一 个 简单 的 2 位 单 码 立方 数 问 题 ,再 探讨 3 位 单 码 立 方 数 。 
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【问题 2】 整数 88,99 是 立方 数 (一 个 整数 的 3 次 寡 ) 吗 ? 
若 整数 88 与 99 是 p 进 制 中 的 立方 数 , 请 分 别 求 出 p 的 最 小 值 。 
【求解 】 设 2 位 整数 mm(1 万 m 志 9) 是 p 进 制 中 的 立方 数 , 则 
mm 一 mp 二 mm 一 mp 十 1)Cm 一 p) 
(1) 当 m=8 时 ,8(p 十 1) 为 3 次 索 , 其 中 8 是 3 次 寡 , 则 p 十 1 须 为 3 次 宕 。 
若 取 p= 二 7,(p 十 1) 二 2%3, 但 在 7 进 制 中 没有 数字 8, 即 不 符合 m 二 p。 
车 取 p==26,p 十 1 二 26 十 1 二 3^3, 则 8(p 十 1) 一 6^3。 
因而 得 至 少 在 26 进 制 中 88 一 8X26 十 8 一 6^3 ,88 为 立方 数 。 
(2) 当 m==9 时 ,9(p 十 1) 为 3 次 寡 , 其 中 因数 9 是 3 的 2 次 宕 , 则 p 十 1 一 3xs 。 
若 取 x==1, 则 p=2, 不 符合 m 二 p。 
车 取 x=2, 则 p 一 23,9(p 十 1) 一 9(23 十 1) 一 6^3。 
因而 得 至 少 在 23 进 制 中 99 一 9X23 十 9 一 6^3 ,99 为 立方 数 。 
【拓展 】 探求 3 位 以 上 单数 码 立 方 数 。 
变通 以 上 搜索 m 位 单数 码 平 方 数 程序 ,把 平方 修改 为 立方 (程序 清单 略 ), 可 得 如 下 
运行 结果 。 


请 输入 立方 数位 数 m((Km 6) : 3 

在 18 进 制 中 :7"3= 111 

在 18 进 制 中 :[14] ”3= 888 
探索 到 以 上 2 个 3 位 单数 码 立 方 数 ! 


在 18 进 制 中 ,验证 如 下 : 

111 王 18^2 十 18 十 1 一 343 一 7^3 

888 一 8X18^2 十 8X18 十 8 一 2744 一 14^3 

可 见 以 上 两 个 在 18 进 制 中 的 3 位 单数 码 立 方 数 成 立 。 
尚未 发 现 4 位 及 以 上 的 单数 码 立 方 数 。 


9.5 汉 诺 塔 游戏 


汉 诺 塔 (Hanoi) 问 题 又 称 河 内 塔 问 题 ,是 印度 的 一 个 古老 传说 。 

开天辟地 的 神 勃 拉 玛 在 一 个 庙 里 留 下 了 三 根 金刚 石 棒 , 第 一 根 上 面 套 着 64 个 圆 形 的 
金 片 ,最 大 的 一 个 在 底下 ,其 余 一 个 比 一 个 小 ,依次 释 上 去 。 庙 里 的 众 僧 不 倦 地 把 它们 一 
个 个 地 从 这 根 棒 搬 到 另 一 根 棒 上 ,规定 可 利用 中 间 的 一 根 棒 作为 中 转 停 放 , 但 每 次 只 能 搬 
一 个 ,而 且 大 片 不 能 放 在 小 片上 面 。 

后 来 ,这 个 传说 就 演变 为 流传 的 汉 诺 塔 游戏 。 

(1) 有 三 根 桩 子 A,B,C。A 桩 上 有 nm 个 圆 盘 ,最 大 的 一 个 在 底下 ,其 余 一 个 比 一 个 
小 ,依次 到 上 去 。 

(2) 每 次 移动 一 块 圆 盘 ,始终 遵守 小 盘 只 能 和 至 在 大 盘 上 面 的 规定 。 

(3) 把 所 有 圆 盘 从 A 桩 全 部 移 到 C 桩 上 ,如 图 9-1 所 示 。 

试 求解 n 个 圆 盘 从 A 桩 全 部 移 到 C 桩 上 的 移动 次 数 ,并 展示 n 个 圆 盘 的 移动 过 程 。 
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A 柱 B 桩 C 桩 
图 9-1 汉 诺 塔 游戏 示意 图 


【问题 1】 试 推导 n 个 圆 盘 从 A 桩 全 部 移 到 C 桩 上 的 移动 次 数 公式 。 

(1) 建立 递 推 关系 。 

当 n 二 1 时 ,只 一 个 盘 , 移 动 一 次 即 完成 。 

当 n 王 2 时 ,由 于 条 件 是 一 次 只 能 移动 一 个 盘 , 且 不 允许 大 盘 放 在 小 盘 上 面 ,首先 把 小 
盘 从 A 桩 移 到 B 桩 ;然后 把 大 盘 从 A 桩 移 到 C 桩 ;最 后 把 小 盘 从 B 桩 移 到 C 桩 ,移动 3 
次 完 

设 移动 n 个 盘 的 汉 诺 塔 需 gCn) 次 完成 。 分 以 下 三 个 步骤 。 

@ 将 n 个 盘 上 面 的 n 一 1 个 盘子 借助 C 桩 从 A 桩 移 到 B 桩 上 , 需 g(n 一 1) 次 。 

@ 将 A 桩 上 第 n 个 盘子 ( 即 最 大 的 盘 ) 移 到 C 桩 上 (1 次 )。 

@ 将 B 桩 上 的 n 一 1 个 盘子 借助 A 桩 移 到 C 桩 上 , 需 gCn 一 1) 次 。 

因而 有 递 推 关系 


g(n) = 2g(Cn 一 1) 十 1 (1) 
初始 条 件 
g(1)=1 
(2) 转化 为 等 比 数列 求 和 。 
递 推 式 (1) 变 形 为 
g(n) 十 1 王 2LgCn 一 1) 十 1] (2) 


令 G(n) 二 g(n) 十 1, 则 有 
G(n) = 2G(n—1),G(1)= 2 
可 见 G(m) 是 一 个 公 比 为 2、 初始 项 为 2 的 等 比 数列 ,因而 有 
G(n) = 2" 

则 gn)=2"—1 (3) 

这 样 ,得 到 mn 个 圆 盘 从 A 桩 全 部 移 到 C 桩 上 的 移动 次 数 为 2" 一 1 次 。 

原 汉 诺 塔 问题 n 一 64 ,移动 次 数 为 2 一 1, 这 是 一 个 相当 庞大 的 数字 。 

【问题 2】 展示 n 一 4 的 移动 过 程 。 即 具体 展示 把 A 桩 上 的 4 个 盘 经 2 一 1 二 15 次 
移动 移 到 C 桩 的 过 程 。 
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(1) 把 A 桩 上 面 3 个 盘 借 助 C 桩 移 到 也 桩 , 共 7 次 移动 

A >B A 2 二 > 各 > 之 有 让 A >B A -B 

具体 分 解 为 以 下 3 个 步骤 。 

@ 把 A 上面 两 个 盘 借 助 B 桩 移 到 C 桩 ,3 次 移动 

A >B A 2 让 CG 

@ 把 A 上 第 3 个 盘 移 到 了 B 桩 ,1 次 移动 

A 一 一 >B 

@ 把 C 桩 上 两 个 盘 借 助 A 桩 移 到 B 桩 ,3 次 移动 

€ A C >B A ~>B 

(2) 把 A 桩 第 4 个 盘 ( 即 最 大 盘 ) 移 到 C 桩 ,1 次 移动 

二 

(3) 把 B 桩 上 3 个 盘 借助 A 移 到 C 桩 , 共 7 次 移动 

B 2 旷 >A © A B >C A >B A > B © 

具体 分 解 为 以 下 3 个 步骤 。 

把 B 桩 上 面 两 个 盘 借 助 C 桩 移 到 A 桩 ,3 次 移动 

B >C B 和 >A 

@ 把 B 桩 上 第 3 个 盘 移 到 C 术 ,1 次 移动 

= 二 这 @ 

@ 把 A 桩 两 个 盘 借 助 B 桩 移 到 C 桩 ,3 次 移动 

A >B A SE EB Se 

经 以 上 3 个 步骤 共 2 一 1 一 15 次 移动 完成 A 桩 上 的 4 个 盘 移 到 C 桩 。 

【拓展 】 编程 统计 n 个 圆 盘 从 A 桩 全 部 移 到 C 桩 上 的 移动 次 数 并 展示 移动 过 程 。 

试 应 用 递归 设计 编程 探求 。 

(1) 递归 设计 要 点 。 

设 递归 函数 hn(n,a,b,c) 展 示 把 n 个 盘 从 A 桩 借助 B 桩 移 到 C 桩 的 过 程 ,函数 
mv(a,c) 输 出 从 a 桩 到 c 桩 的 过 程 : A 一 一 二 C。 

完成 hn(n,a,b,c), 当 n==1 时 , 即 mv(a,c)。 

当 n>1 时 ,分 以 下 3 个 步骤 : 

@O 将 A 桩 上 面 的 n 一 1 个 盘子 借助 C 桩 移 到 也 桩 上 , 即 hn(n 一 1,a,c,b)。 

@ 将 A 桩 上 第 n 个 盘子 移 到 C 桩 上 , 即 mvCa,c)。 

图 将 B 桩 上 的 n 一 1 个 盘子 借助 A 桩 移 到 C 桩 上 . 即 hn(n 一 1,b,a,c)。 

在 主 程序 中 ,用 hn(m,1,2,3) 带 实 参 m,1.2.,3 调用 hn(n,a.b,c), 这 里 m 为 具体 移 
动 盘子 的 个 数 。 同 时 设置 变量 k 统计 移动 的 次 数 。 

(2) 展示 移动 过 程 程序 设计 。 

函数 mv(x,y) 输 出 从 x 桩 到 y 桩 的 过 程 ,这 里 x,y 分 别 不 同情 况 取 A 或 B 或 C, 主 函 
数 调用 hnC(m.'A'.'B','C') 。 


// 展 示 n 个 盘 汉 诺 塔 游戏 的 移动 过 程 
# include < stdio. h> 
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int k= 0; 


void mv (char x, char y) 
{ printf("%c- 一 >%c 
if(++k%6==0) printf ("\n"); 


} 


“的 5 


void hn (int m, char a, char b, char c) 


{ ifm==1) mv(ac); 


{ hn(m1,a,c,b); 
mv (a, c) ; 
hn(m- 1,b, a, ce); 


} 
} 
voidmain0 
{ int ni 
printf(" 


hn(n, 'A', 'B', 'C'); 


请 输入 盘 的 个 数 n: "); scanf("%d",&n) ; 


if(k==2°n-1) 


printf("\n 


| 


(3) 程序 运行 示例 与 说 明 。 


请 输入 盘 的 个 数 n: 5 


A-->C 
A-->C 
A-->C 
A-->C 
A-->C 
A-->C 


A==%B 
A-->B 
A-->B 
B=—X&k 
A-->B 


0=—2 
0 
= 
Cc-->B 
友和 


经 以 上 31 次 移动 完成 。 


A-=>6 
OA 
A-->C 
3A 
A-->C 


经 以 上 %d 次 移动 完成 。\n",k) ; 


B-->A 
B= 
B= 
Be 
= 


B-->C 
Cc-->B 
B-->C 
[ina 
eA) 


第 3 齐 与 弱 消 式 襟 秘 | 


// 输 出 函数 
// 累 加 移动 次 数 


// 定 义 递归 函数 


// 实 施 三 步骤 调用 


// 调 用 递归 函数 的 主 函 数 


// 检 验 后 输出 移动 次 数 


程序 对 移动 次 数 设置 了 检验 功能 : 实际 累加 移动 次 数 k 与 理论 次 数 2" 一 1 相等 时 , 才 


输出 移动 次 数 。 
这 里 的 31 次 移动 具体 分 解 为 以 下 3 个 步骤 。 


Q@ 前 15 次 移动 把 A 桩 上 面 的 4 个 盘 借 助 C 桩 移 到 B 桩 。 

@ 第 16 次 移动 A 一 一 >C 把 A 桩 第 5 个 盘 ( 即 最 大 的 盘 ) 移 到 C 桩 。 
@ 后 15 次 移动 把 B 桩 上 的 4 个 盘 借 助 A 桩 移 到 C 桩 。 

从 以 上 的 结果 分 析 可 进一步 帮助 对 递归 的 理解 。 


9.6 报 数 淘汰 游戏 


约瑟夫 (Joseph) 出 圈 游 戏 是 通过 围 圈 排队 循环 报 数 决定 出 圈 淘 汰 的 一 款 有 趣 的 智力 


游戏 ,占据 有 利 位 置 是 确保 最 后 留 在 圈 内 的 关键 。 
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而 横 排 左右 报 数 出 列 是 另 一 形态 下 的 报 数 淘汰 智能 游戏 。 


9.6.1 约瑟夫 报 数 出 圈 


有 个 游戏 者 按 编 号 顺序 1,2,…,n 顺 时 针 方向 围 成 一 圈 。 指 定 一 个 报 数 整 数 m, 从 
1 号 开始 按 顺 时 针 方向 1,2,…,m 报 数 , 凡 报 数 m 者 出 圈 ( 显 然 第 m 号 游戏 者 第 一 个 出 


圈 ) , 依 此 循环 报 数 直至 最 后 剩 下 指定 p 个 游戏 者 为 止 。 
试 求 最 后 剩 下 p 个 未 出 圈 者 的 编号 。 


整数 n,m 由 计算 机 随机 产生 ,输入 整数 p(1 三 p 二 n) ,输出 最 后 p 个 未 出 圈 者 的 编号 。 


1. 设计 要 点 


设置 a 数组 ,a(i) 为 圆圈 的 第 i 个 位 置 ,每 一 数组 元 素 a(D 赋 初 值 1。 


(1) 每 报 数 一 人 a[ 记 


1, 通 过 s 


s 十 a[ 训 ;和 变量 s 增 1。 


(2) 当 加 a( 让 后 和 变量 s 的 值 为 m 时 进行 以 下 操作 。 


Q@ a(iD 一 0, 标志 编号 为 1 者 出 圈 。 

@ 设置 y 统 计 出 圈 人 数 。 

@ 通过 s==0 重新 顺 时 针 方 向 报 数 累加 。 
(3) 当 出 圈 人 数 y<p 时 ,循环 报 数 持续 。 


当 出 圈 人 数 为 y 二 n 一 p 时 ,脱离 循环 ,打印 最 后 剩 下 的 p 个 游戏 者 的 编号 , 即 a(i) 二 0 


的 编号 i。 
2. 围 圈 循环 报 数 程序 设计 


// 约 瑟 夫 围 圈 报 数 出 圈 
# include < stdlib. h> 
# include < time. h> 
# include < stdio. h> 
voidmain0 
{ int i,m,n,p,s,t,x,y,a[121]; 
t= time (0)% 1000; srand (t) ; 
n= rand 0% 61+ 60; 
mF rand 0% 6+ rand 0% 6+ 2; 
printf(” 游戏 圈 共 %d 人 , 按 1 至 %d 报 数 。\n",n,m); 
printf(” 请 确定 最 后 所 剩 人 数 p: 
for(i=1;i<=n;it++) a[i]=1; 
s=0;y=0;i=0; 
while(y<n-p) 
{ i++;if(i>m i=1; 
s=s+a[i]; 
if(s==m {a[i]=0;s=0;y+t+;} 
} 
printf(” 最 后 %d 个 未 出 圈 者 编号 依次 为 :",p); 
for (i=1;i<=n;i++) 
if(a[i]>0) printf(%d ",i); 
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// 随 机 数 发 生 器 初始 化 
// 随 机 产生 列队 人 数 n[60, 120] 
// 随 机 产生 两 投 点 数 m[2, 12] 


",n); scanf ("%d", &p) ; 


// 一 圈 报 完 接着 下 一 圈 
// 按 顺 时 针 顺 序 报 数 
// 报 到 m 者 出 圈 赋 0, 出 圈 人 数 y 增 1 


// 打 印 剩 下 p 人 未 出 圈 者 编号 
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printf("\n "); 
} 


3. 程序 运行 示例 与 变通 


游戏 圈 共 102 人 , 按 1 至 7 报 数 。 
请 确定 最 后 所 剩 人 数 p: 5 
最 后 5 个 未 出 圈 者 编号 依次 为 :34 40 53 64 78 


变通 : 如 果 要 求 围 圈 人 数 n 与 报 数 m 由 主持 人 指定 ,只 需 删 除 随机 产生 语句 , 改 为 键 
盘 输 入 语句 即 可 。 
如 果 要 求 指定 第 q 个 出 圈 者 的 编号 ,程序 应 作 何 修改 ? 


9.6.2 横 排 左右 报 数 出 列 


参加 游戏 的 n 位 游戏 者 从 左 至 右 排 成 一 横 排 ,游戏 主持 通过 摇 双 假 子 (一 个 贷 子 有 6 
个 面 , 面 上 分 别 标 刻 有 1 一 6 点 。 两 个 仍 子 点 数 之 和 m 为 区 间 [2,12] 中 的 某 个 正 整 数 ) 决 
定 报 数 整数 m(2 二 m 三 12)。 

游戏 开始 ,从 横 排 左 端 开始 1,2,…,m 报 数 ,报到 m 者 出 列 ; 接 着 再 从 1 至 m 报 数 出 
列 , 直 至 报 数 到 排 尾 。 此 后 , 仍 在 队列 的 游戏 者 从 横 排 右 端 开始 反 向 1,2,…,m 报 数 , 凡 
报 数 到 m 者 同样 出 列 。 依 此 继续 往返 报 数 出 列 。 

这 样 反 复 报 数 淘汰 出 列 ,直至 最 后 剩 下 m 一 1 个 幸运 的 游戏 者 为 止 。 

【问题 】 对 于 n 一 9,m 一 3, 试 求 左右 报 数 游戏 两 个 未 出 列 的 编号 。 

【探求 】 按 游戏 规则 ,游戏 进程 如 表 9-1 所 示 。 


表 9-1 9 人 排除 1~3 报 数 出 列 (数字 加 框 者 为 出 列 ) 


左右 队列 位 置 编 号 2 3 4 5 6 7 8 9 
从 左 至 右 第 1 轮 1 站 EF 4 和 6 Ll 8 9 
从 右 至 左 第 1 轮 1 各 4 5 Ll 8 
从 左 至 右 第 2 轮 2 4 7 8 
从 右 至 左 第 2 轮 2 4 8 


左右 报 数 最 后 剩 下 两 个 幸运 游戏 者 排队 位 置 为 4 与 8 位 。 

【拓展 】 随机 产生 游戏 对 数 n,m。 

计算 机 随机 产生 整数 n,m, 同时 从 键盘 输入 你 所 关注 的 游戏 者 的 排队 号 x。 往 返 左 
右 报 数 出 列 至 最 后 剩 下 m 一 1 个 游戏 者 .输出 未 出 列 的 m 一 1 个 幸运 游戏 者 的 排队 位 置 ， 
同时 输出 排队 号 x 的 游戏 者 的 去 处 。 

1. 设计 要 点 

设置 数组 a(n) ,每 一 数组 元 素 赋 初 值 1。 

每 报 数 一 人 ,和 变量 s 增 1。 当 加 a(GD 后 和 变量 s 的 值 为 m 时 进行 以 下 操作 。 

(1) aQ) 二 0, 标 志 第 i 个 位 置 的 游戏 者 出 列 。 
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(2) 设置 y 十 十 统计 出 列 人 数 。 

(3) 车 出 列 者 号 i 二 x 时 ,通过 jy 记录 该 出 列 者 的 出 列 序号 。 

(4) 同时 ,s 二 0 后 重新 向 后 继续 作 报 数 累 加 。 

至 队 尾 后 ,和 变量 s==0, 道 向 报 数 同 样 处 理 。 

当 出 列 人 数 y 达 n 一 m 十 1 时 , 即 未 出 列 者 只 有 m 一 1 人 ,终止 报 数 。 此 时 ,未 出 列 者 
所 在 位 置 的 a 数组 元 素 a[ 订 ! 二 0, 则 依次 打印 这 m 一 1 个 位 置 i。 

同时 ,根据 记录 变量 j 的 值 说 明 排 除 号 x 的 游戏 者 的 去 处 : 车 j= 二 0, 则 在 最 后 所 剩 m 
一 1 个 未 出 列 者 中 ; 若 j 二 0, 则 已 在 前 第 j 个 出 列 。 


2. 程序 设计 


// 排 横 排 左右 报 数 出 列 
# include < stdlib.h> 

# include < time. h> 

# include < stdio.h> 


voidmain0 

{ int i,j,m,n,s,t,x,y,a[10000]; 
t=time (0)% 1000;srand (t) ; // 随 机 数 发 生 器 初始 化 
rm=rand0%61+ 60; // 随 机 产生 列队 人 数 n[60, 120] 
mF rand 0% 6+ rand O% 6+ 2; // 随 机 产生 报 数 m[2, 12] 


printf(” 排队 共 %d 人 , 按 1 至 %d 报 数 , 凡 报 %d 者 出 列 。\n",n,m,m); 
printf(" 请 确定 关注 排队 号 x(n> x> 1):",n); scanf("%d",&x) ; 


for(i=1;i<=n;i++) a[i]=1; 


t=y= j=0; 
while(1) 
{ for(s=0,i=1;i<=n;i+t+) // 从 左 至 右 顺 报 数 
{ s=s+a[i]; 
if(s==m) 
{ a[i]=0;s=0;y+t+; // 报 到 指定 的 m 者 出 列 赋 0 
if(i==x) j=y; 
} 
if(y==n-mt1) {t=1;break;} /Ny 为 出 列 人 数 , 剩 下 m-1 人 时 中 止 
} 
for (s=0, i=n;i>=1;i--) // 从 右 至 左 逆 报 数 
{ s=s+a[i]; 
if(s==m) 
{ a[i]=0;s=0;yt+; 
if(i==x) j=y; // 记 录 x 号 的 出 列 序号 
} 
if(y==n-mt 1) {t=1;break;} //y 为 出 列 人 数 , 剩 下 mr 1 人 时 中 止 


} 
if (t==1) break; 
} 
if(j>0) printf(” 排队 号 %d 已 在 前 第 %d 个 出 列 。\n",x,j); 


346 


第 3 齐 与 双 消 式样 入 | 


else printf(” 排队 号 %d 在 剩 下 %d 个 人 中 。\n",xmr1TD; 
printf(” 最 后 剩 下 %d 个 幸运 号 码 依次 为 :mr1); 
for(i=1;i<=n;it++) 
if(a[i]!=0) printf(%d ",i); // 依 次 打印 剩 下 m-1 个 未 出 列 者 
printf("\n "); 
} 


3. 程序 运行 示例 与 说 明 


排队 共 9 人 , 按 1 至 5 报 数 , 凡 报 5 者 出 列 。 
请 确定 关注 排队 号 x(n> x> 1) :20 
排队 号 20 已 在 前 第 4 个 出 列 。 

最 后 剩 下 4 个 幸运 号 码 依次 为 :1 18 44 6 


本 游戏 约定 人 数 在 区 间 [60,120] , 报 数 数 在 区 间 [2,12], 这 两 个 数 均 随 机 产生 。 若 认 
为 不 合适 ,可 修改 程序 任意 增 大 或 缩减 。 
因 排队 总 人 数 n 与 报 数 号 m 是 随机 产生 的 ,在 排队 时 不 可 能 作假 ,游戏 较为 公正 


9.7 硬币 翻转 游戏 


本 节 在 一 维 的 硬币 行 翻 转 游戏 基础 上 ,拓展 到 二 维 的 硬币 矩阵 翻转 游戏 , 既 有 游戏 的 
娱乐 性 ,也 有 最 优化 的 智能 考量 。 

其 中 硬币 矩阵 整 行 或 整 列 翻转 的 最 优化 游戏 ,具有 国际 程序 设计 竞赛 培训 背景 ,难度 
比较 大 。 


9.7.1 硬币 行 正 反倒 面 


有 nm 枚 硬币 ,正面 朝 上 排 成 一 行 。 每 次 将 其 中 d 枚 硬币 (不 必 相 连 ) 翻 过 来 放 在 原 位 
置 ,直到 所 有 硬币 翻 成 反面 朝 上 为 止 。 

设 n2d ,编程 寻求 次 数 最 少 的 翻 法 ,并 打印 输出 翻 币 过程 ( 用 鲁 表 示 正 面 , 〇 表示 反 
面 ) 与 所 需要 的 最 少 翻 币 次 数 。 


1. 设计 要 点 

(1) 排除 平凡 情形 。 

对 于 n 枚 币 每 次 翻 d 枚 ,车 n 是 d 的 整数 倍 . 按 顺序 翻 n/d 次 即 可 。 

车 n 是 奇数 而 d 是 偶数 ,无 法 完成 翻转 。 

(2) 确定 翻转 次 数 m 与 重复 枚 数 k。 

设 需 m 次 翻转 :n 枚 中 有 k 枚 币 需 要 3 次 ( 反 - 正 - 反 ) 翻 转 。 

凡 Dn 不 是 d 的 整数 倍 , 则 存在 重复 翻转 ,因而 m 宇 3( 显 然 2 次 无 法 重复 ) 。 
翻转 次 数 为 m, 总 翻转 硬币 次 数 为 md 次 ,显然 md 这 n。 

注意 到 重复 翻转 k 枚 .每 一 枚 翻转 3 次 ( 反 - 正 - 反 ) ,其 中 一 次 计算 在 n 之 内 , 另 2 次 为 
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多 余 翻转 ,应 在 n 之 外 。k 枚 的 所 有 多 余 次 数 为 md 一 n, 即 有 
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md 一 n 一 2k ££ k= (md—n)/2 
(3) 循环 确定 翻转 次 数 。 
可 知 md 一 n 应 为 偶数 。 同 时 因 m 宇 3, 为 此 ,设置 条 件 循 环 确定 翻转 次 数 m: 


m3; 
whilemx d<n || (mx d-n)%2>0) mt+; 


2. 一 行 翻 币 程序 设计 


/一 行 n 枚 币 每 次 翻 d 枚 全 倒 面 

# include< stdio. h> 

int a[100] ; 

voidmain0 

{ void pr(int n); 
int d i, j,n,m, k, t; 
printf(” 一 行 n 枚 硬币 ,请 输入 n:") ;scanf ("%d", &n); 
printf(” 一 次 翻转 d 枚 ,请 输入 d(d< m2) :") ;scanf ("%d", 8&d) ; 


t=n%di 
if(n%2>0&& d% 2==0) //n 奇数 d 偶 数 无 法 完成 
{printf(” 无 法 完成 1"); return;} 
if (n% d==0) 
{printf(” 按 顺 序 翻 %d 次 即 可 !",n/d) ;return;} 
m3; 
whilemx d<n || (mx d-n)%2>0) mt+; // 需 要 进行 m 次 翻 币 才能 完成 
k= mx d-n) /2; /k 枚 需 重复 翻转 
printf(” 需 %d 次 翻转 ,有 %d 枚 需 重复 翻转 。\n",m,k) ; 
for(i=1;iK=nii++) a[i]=1; /1 表 朝 上 ,2 表 朝 下 
printf("\n "); pr (n); // 显 示 n 枚 硬币 朝 上 起 始 状 态 
for (i=1;i<=d;i++) a[i]=2; // 翻 转 前 d 枚 
printf("\n %2d:",1); pr(n); 
for (i=1;i<=k;i++) a[i]=1; // 前 k 枚 重复 ,从 d 枚 后 翻转 d-k 枚 


for(i=d+1;i<=2*x d-k;i++) a[i]=2; 
printf("\n %2d:",2); pr(n); 
for (i=1;i<=k;it+) a[li]=2; // 前 k 枚 再 翻 ,从 上 接着 翻转 d-k 枚 
for(i=2x d-kt+1;i<=3x*d-2x*k;it++) a[i]=2; 
printf("\n %2d:",3); pr(n); 
for (i=4;i<=m;i++) // 其 余 依次 翻转 m- 3 次 完成 

{ for(j=(i-1)*d-2xk+1;j<=ix*d-2xk;jt++) a[j]=2:; 

printf("\n %2d:",i); pr(n); 


} 
} 
void pr (int n) // 输 出 一 行 棋子 符号 函数 
{ intk; 


for (k=1;k<=n;kt++) 
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if (alk]==1) printf("®@ "); 
else printf("O "); 
} 


3. 程序 运行 示例 与 说 明 


一 行 n 枚 硬币 ,请 输入 n:17 

一 次 翻转 d 枚 ,请 输入 d(d<n/2):5 

需 5 次 翻转 , 有 4 枚 需 重复 翻转 。 
eeeeeeeeeeeeeeeg@e@ 
IDOOOOeeeeeeeeeeg@g@e@ 
2090ee009ee@@@@ 
30OOOOO00e@eee@ee@ee@ee@eeg@eg@eg@ 
40OOOoooooooooe@ee@ee@eg@e@ 
BGSALSASN BGATGNGN GAGEGRGRG 


以 上 翻转 输出 可 见 , 实 际 上 是 通过 3 次 翻转 7 枚 ( 凡 与 上 一 行 不 同 者 即 为 翻转 币 ) ,而 
剩 下 10 枚 通过 2 次 翻转 完成 。 
注意 : 当 n 二 2d 时 , 翻 币 讨 论 比较 复杂 ,有 兴趣 的 读者 可 进一步 研究 。 


9.7.2 硬币 矩阵 整 行列 翻转 


探讨 一 个 翻转 硬币 矩阵 游戏 。 
有 m(m 二 10000) 行 硬币 ,每 行 有 9 个 硬币 , 排 成 一 个 mX9 的 矩阵 ,有 的 硬币 正面 朝 
上 ,有 的 硬币 反面 朝 上 。 
我 们 每 次 可 以 把 矩阵 中 一 整 行 或 者 一 整 列 的 所 有 硬币 翻 过 来 ,请 问 怎么 翻转 ,使 得 正 
面 朝 上 的 硬币 数 最 多 
翻转 硬币 探 优 是 一 个 有 相当 深度 的 矩阵 优化 案例 。 
上 述 探 优 趣 题 固定 为 9 列 , 而 行 的 数量 较 大 , 需 通 过 程序 设计 实现 优化 操作 。 
为 了 更 清楚 说 明 问题 的 关键 , 先 探求 一 个 只 有 3 列 的 简单 案例 。 
【问题 】 简单 硬币 矩阵 最 优 翻转 展示 。 
已 知 硬 币 和 矩阵 有 6 行 ,每 行 有 3 个 硬币 , 排 成 一 个 6X3 的 硬币 矩阵 ,如 图 9-2(a) 所 
示 , 和 矩阵 中 9 个 硬币 正面 标 为 全 . 另 9 个 硬币 反面 为 〇 。 
规定 每 次 操作 可 以 把 矩阵 中 一 整 行 或 者 一 整 列 的 所 有 硬币 翻 过 来 ,请 问 需 至 少 多 少 
次 翻转 操作 ,能 使 得 正面 朝 上 的 硬币 数 最 多 
【思考 】 初始 状态 共有 9 个 正面 ,名 翻转 操作 后 
能 使 正面 彰 上 最 多 为 多 少 枚 ? 
作为 游戏 ,把 初始 硬币 矩阵 图 交 给 游戏 者 , 谁 通过 
最 少 翻转 次 数 ( 每 一 次 翻转 操作 实施 一 整 行 或 者 一 整 
列 翻转 ) 所 得 正面 朝 上 最 多 , 谁 就 是 优胜 。 
问题 所 给 出 的 硬币 矩阵 尽管 行列 数量 不 大 ,硬币 


也 只 有 18 个 ,如 果 没 有 整体 思考 , 东 一 行 西 一 列 地 胡 ”外 初始 状态 。 ” (b) 翻转 后 最 优 状态 
图 9-2 简单 6X3 的 硬币 矩阵 


OOO@@@ 
@e@Og@OO 
©@000e@® 
ee@0Og@@ 
ecoog@g@@ 
OOeeeg@g@@ 
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乱 翻 转 , 可 能 难以 得 到 最 大 值 。 

(1) 翻转 次 数 
注意 到 对 某 一 列 翻转 任何 奇数 次 的 效果 等 同 于 对 该 列 翻转 1 次 ,翻转 任何 偶数 次 的 
效果 等 同 于 对 该 列 不 翻转 ( 即 0 次 ) , 行 翻转 操 作 类 似 。 因 此 ,只 考虑 对 矩阵 的 任意 行 或 列 
翻转 1 次 或 不 作 翻 转 。 

(2) 列 操作 的 8 种 状态 。 

考察 对 矩阵 的 3 列 翻 币 操作 ,每 列 有 两 个 选择 : 翻 与 不 翻 。3 列 共 有 2 二 8 种 情形 。 

分 析 翻 币 后 所 得 正面 朝 上 的 硬币 最 多 的 局 面 (简称 最 优 局 面 ) ,最 优 局 面 对 列 的 翻 币 
操作 肯定 为 所 有 8 种 列 操作 情形 之 一 ,而 此 时 6 行 的 每 一 行 的 正面 数 均 大 于 1, 即 正面 数 
大 于 反面 数 (否则 ,翻转 该 行 , 正 面 数 会 增加 ,与 最 优 局 面 正面 数 最 多 矛盾 )。 

因此 ,比较 这 8 种 状态 即 可 获得 最 优 局 面 , 即 得 正面 的 最 大 值 。 

为 此 ,把 对 列 翻转 记 为 1, 不 翻转 记 为 0。 例如 , 列 翻转 为 011, 即 右边 开始 的 第 1,2 列 
翻转 ,而 第 3 列 ( 即 左边 一 列 ) 不 翻转 。 

(3) 列表 8 种 列 翻转 状态 。 

在 每 种 列 翻转 状态 ,通过 对 行 翻转 使 每 一 行 正面 最 多 ,统计 该 列 状态 下 的 正面 总 数 s。 
最 后 ,对 8 个 列 翻转 状态 的 s 比较 , 即 可 得 正面 最 大 值 及 其 对 应 翻转 操作 。 

为 清楚 计 , 对 8 种 列 翻转 状态 见 表 9-2。 

表 9-2 8 种 列 翻转 状态 


列 状 态 列 翻 转 翻 转 行 正面 总 数 s 
000 3 列 不 翻转 翻转 4,5 行 13 
001 翻转 第 1 列 翻转 1,2,4,6 行 13 
010 翻转 第 2 列 翻转 3,4,5,6 行 15( 最 优 值 ? 
011 翻转 第 1,2 列 翻转 5,6 行 13 
100 翻转 第 3 列 翻转 1,2,3,4 行 13 
101 翻转 第 1,3 列 翻转 1,2 行 15( 最 优 值 ) 
110 翻转 第 2,3 列 翻转 3,5 行 13 
111 翻转 第 1,2,3 列 翻转 1,2,3,6 行 13 


(4) 列表 说 明 。 

表 中 第 1 列 是 所 有 2 一 8 种 列 翻转 状态 的 标记 ; 表 中 第 2 列 则 是 对 第 1 列 状态 的 执 
行 ; 表 中 第 3 列 是 在 该 列 状 态 下 翻转 行 能 使 正面 达到 最 多 ; 表 中 第 4 列 是 该 列 状态 下 能 达 
到 的 最 多 正面 数 。 

例如 , 表 的 第 1 行 ,000 表示 矩阵 的 3 列 都 不 翻转 。 此 时 由 初始 状态 可 见 第 4,5 行 正 
面 未 达到 最 多 , 则 翻转 这 两 行 , 使 得 其 正面 数 增加 4 枚 ,为 9 十 4 二 13 枚 。 

又 如 , 表 的 第 6 行 ,101 表示 由 初始 状态 翻转 矩阵 的 第 1,3 列 。 此 时 正面 数 仍 为 9, 但 
第 1,2 行 全 变 为 反面 , 则 翻转 这 两 行 ,使 得 其 正面 数 增加 6 枚 ,为 9 十 6 二 15 枚 。 在 以 后 的 
比较 中 可 知 这 就 是 最 优 局 面 。 
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(5) 最 优 结果 。 

翻转 第 1 列 与 第 3 列 , 然 后 翻转 第 1 行 与 第 2 行 ,经 翻转 后 ,硬币 正面 最 多 为 15 枚 。 
正面 最 多 的 最 优 硬币 矩阵 如 图 9-2(b) 所 示 。 

(6) 互补 操作 过 程 。 

如 果 把 某 一 操作 过 程 的 列 翻转 与 行 翻转 中 的 0,1 全 部 取 反 , 即 0 变 为 1, 而 1 变 为 0， 
所 得 到 的 过 程 与 原 过 程 互 补 。 

例如 表 9-2 中 ,第 3 行 的 列 操作 为 010, 行 操作 为 001111; 第 6 行 的 列 操作 为 101 , 行 
操作 为 110000; 这 两 行 的 操作 是 互补 操作 。 这 两 行 操作 所 得 到 的 硬币 矩阵 相同 ,都 得 到 
最 优 局 面 , 所 得 正面 个 数 都 是 最 大 值 。 

所 有 互补 过 程 有 以 下 一 个 有 趣 的 性 质 : 对 任 一 硬币 和 矩阵 ,两 个 互补 操作 翻转 所 得 到 
的 矩阵 相同 。 

事实 上 ,考察 矩阵 中 的 任 一 元 素 a[i[j]: 

“第 i 行 与 第 j 列 都 翻 " 与 “第 i 行 与 第 j 列 都 不 翻 ? 互 补 , 此 时 a[ 疏 [jj 保持 不 变 , 效 果 
相同 。 

“第 i 行 翻 同时 第 j 列 不 翻 ” 与 “第 i 行 不 翻 同时 第 j 列 翻 * 互 补 ;“ 第 i 行 不 翻 同时 第 j 
列 翻 "与 “第 i 行 翻 同时 第 j 列 不 翻 * 互 补 ,此 时 a[ 让 [jj 改变 。 

因而 可 知 ,两 个 互补 过 程 翻转 所 得 到 的 矩阵 相同 , 且 任 何 两 个 互补 过 程 的 行列 翻转 次 
数 之 和 为 矩阵 的 行 与 列 之 和 , 即 为 m 十 n。 

根据 互补 操作 的 特性 ,得 到 最 优 局 面 可 以 减少 一 半 操 作 ,操作 效率 加 速 一 倍 。 

例如 上 例 , 若 固定 第 1 列 不 翻转 , 表 中 前 4 行 即 可 得 最 大 15; 若 固定 第 1 列 翻转 , 表 中 
后 4 行 即 可 得 最 大 15 。 

同时 ,根据 互补 操作 的 特性 , 若 某 一 最 优 操作 的 翻转 总 次 数 大 于 m 十 n, 则 可 取 其 互补 
操作 ,其 次 数 小 于 m 十 n, 同 样 可 得 最 优 。 

例如 上 例 , 表 中 第 3 行经 5 次 翻转 得 最 优 ;可 取 其 互补 操作 即 表 中 的 第 6 行 ,只 经 4 
次 翻转 即 可 得 最 优 。 

结论 : 如 果 不 要 求 翻转 次 数 , 则 按 第 3 行 与 第 6 行 , 都 可 得 最 多 15 枚 正面 。 

如 果 要 求 翻转 次 数 最 少 , 则 按 第 6 行 最 少 翻转 4 次 .可 得 最 多 15 枚 正面 。 

【编程 拓展 】 

对 于 一 般 m 行 n 列 的 mxXn 硬币 矩阵 ,如 何 实施 整 行 或 整 列 翻转 ,使 得 矩阵 正面 朝 上 
的 硬币 最 多 ? 

键盘 输入 整数 m,n( 约 定 n<16) ,随机 产生 m 行 Xn 列 硬币 矩阵 。 寻 求实 施 整 行 或 
整 列 翻转 ,使 得 和 矩阵 正面 朝 上 的 硬币 最 多 。( 显 然 拓展 了 原 程序 设计 竞赛 试题 ) 


1. 编程 设计 要 点 

(1) 产生 原始 矩阵 。 

为 简化 原始 硬币 和 矩阵 的 构造 与 输入 ,每 次 游戏 时 随机 产生 0-1 和 矩阵 (先行 初始 化 随机 
数 发 生 器 ) 。 

设置 二 维 数组 a[ij[j] 存 储 硬币 矩阵 第 i 行 第 j 列 的 0-1 元 素 ,其 中 1 表示 正面 ,0 表示 
反面 。 
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(2) 产生 列 状态 。 

考察 对 矩阵 的 n 列 翻 币 操作 ,每 列 有 两 个 选择 : 翻 与 不 翻 ,n 列 共 有 2" 种 情形 。 

根据 互补 操作 的 特性 ,只 需 比 较 n 一 1 列 共 有 2" ?种 情形 即 可 。 通 过 循环 得 {二 
2" ! ,然后 通过 除 2 取 余 把 整数 0 一 { 一 1 这 工 个 整数 c 分 别 转换 为 n 一 1 位 二 进 制 数 (不 足 
n 位 高 位 补 0) ,代表 2" :种 列 状态 。 

n 位 二 进 制 数 中 默认 tc[n] 二 0, 其 他 每 一 个 二 进 制 数 码 赋值 给 代表 列 操作 的 数组 元 
素 tc[k](k: 1~n 一 1)。 

(3) 硬币 矩阵 与 翻转 标志 。 

行 翻转 和 列 翻转 只 从 理论 上 用 数组 元 素 标记 ,并 没有 真正 实行 各 个 币 的 翻转 操作 , 即 
并 不 改变 a[i]D] 的 值 , 只 是 最 后 打印 输出 才 改 变 : a[Li]L]=1 一 aLi]D]。 

最 后 所 得 最 优 硬币 矩阵 根据 最 优 标记 输出 。 标 记 数 组 如 下 所 示 。 

设置 数组 tr[ 疏 为 第 i 行 翻转 标志 ,tc[j] 为 第 j 列 翻转 标志 ,数字 1 表示 翻转 ,0 表示 不 
翻转 。 

设置 数组 sr[ 忆 为 最 优 状态 的 第 i 行 翻转 标志 ,sc[j] 为 最 优 状 态 的 第 j 列 翻转 标志 。 

对 某 枚 硬币 a[i[0j](1<i<m,1<j<n): 

若 tr[i 订 =0 且 tc[j]==0, 表 明 该 币 a[ 让 [jj 未 作 任何 翻转 ; 

车 tr[ 记 ==1 且 tc[jj 二 0, 表 明 该 币 aL 训 Dj] 作 行 翻转 ; 

车 tr[ 记 =0 且 tc[j]==1, 表 明 该 币 a[i[j] 作 列 翻转 ; 

车 tr[ 记 =1 且 tc[jj==1, 表 明 该 币 aL 订 [Dj] 作 行 与 列 翻转 ,维持 不 变 。 

(4) 设置 枚 举 循 环 。 

tc[Lkj 二 1 为 翻转 第 k 列 ,tc[kj==0 为 第 kk 列 不 翻转 。 

对 每 一 种 列 操作 ,设置 循环 枚 举 m 行 翻 币 ,应 用 变量 r 统 计 该 行 正 面 数 。 若 2 * fr 二 
n, 即 该 行 正面 小 于 反面 , 则 整 行 翻转 。 

(5) 比较 求 取 最 大 。 

分 别 统计 2" 一 种 列 操作 情形 的 各 行 正 面 数 最 多 的 矩阵 正面 数 之 和 s,2" ! 个 s 分 别 与 
max 比较 ,以 求 得 矩阵 正面 数 的 最 大 值 max, 并 用 sr[tj 与 sc[tj] 数 组 更 新 最 优 记 录 翻 转 


标志 。 
2. 翻转 m 行 n 列 和 矩阵 程序 设计 


// 翻 转 m 行 n 列 硬币 矩阵 设计 
# include < stdio.h> 

# include < stdlib.h> 

# include < time.h> 

void main0 


{ long s,max;int c,d,f,i,j,h,t,m,n,k,r; 


int a[100] [100]; // 硬 币 和 矩阵 

int tr [100], tc[100]; // 行 列 翻转 标志 数组 
int sr [100], sc[100]; // 最 优 状态 标志 数组 
max= 0;s= 0; t=time (0)% 1000;srand (t) ; // 随 机 数 发 生 器 初始 化 


printf(” 请 输入 矩阵 行 、 列 数 :") ; scanf ("%d,%d", &m, &n) ; 
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for(i= 
for (j=1;j<=n;j++) 
{ t=randO%50+10; t=t%2>0?t=1:t=0; 
a[i] [j]=t;s+=a[i][j]; 


ii<=m;i++) 


} 
for (i=1;i<=m;i++) 
{ for :j=n;j++) 


if (a[li] [j]==1) printf(" @"); 
else printf(" O"); 
printf ("\n"); 

} 
printf(" 
for (f=1,k=1;k<=n- 1;k++) f=fx2; 
for (c=0;c<=f-1;ct+) 

{ for(k=1;k<=n;k++) tc[k]=0; 
d=c;k=0; 

while(d> 0) 

{k++ ;toe[k]= d% 2;d= d/2;} 
s=0; 
for (k=1;k<=m;k++) 
{ r=0; 
for (h=1;h<=n;ht +) 
{ if(tc[h]) r+=1-a[k][h]; 
else r+=a[k][h]; 
} 
if(2x rm {tr[k]=1; s+=n-r;} 
else {tr[k]=0; s+=r;} 


} 
if (s> max) 
{ max=s; 
for (t=1;t<=m;t++) sr[t]=tr[t]; 
for (t=1;t<=n;t++) sc[t]=tc[t]; 
} 
} 
printf(” 翻转 下 列 列 :"); 
for(j=1;j<=n;j++) if(sc[j]) printf("%d 
printf("\n 翻转 下 列 行 :"); 
for(i=1;i<=m;it++) if(sr[i]) printf ("%d 
printf("\n 最 优 硬币 矩阵 为 : \n"); 


for (i=1;i<=m;i++) 


{ for(j=1;j<=n;j++) 


{ if(sr[i]!=sc[j]) a[i][j]=1-a[i][j]; 


if(a[i] [j]==1) printf(" @"):; 
else printf(" O"); 


初始 状态 共有 % 5d 个 正面 全 \n", s); 
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// 随 机 产生 硬币 矩阵 数据 


// 和 输出 硬币 和 矩阵 图 


//1 为 正面 全 ,0 为 反面 O 


/f 已 优化 为 2 (nm-1) 列 状态 种 数 


// 通 过 除 2 取 余 法 ,产生 列 状态 

// 固 定 列 状态 下 的 正面 数 s 

// 第 h 列 翻转 ,r 统计 第 k 列 状态 下 正面 数 
// 第 h 列 不 翻转 


// 第 k 行 翻转 ,s 统计 第 k 列 翻转 行 后 正 数 
// 第 k 行 不 翻转 


// 比 较 求 正面 最 大 值 max 


// 更 新 最 优 记录 翻转 的 标志 


// 和 输出 最 优 翻转 记 录 


")); 


Ws 


// 输 出 最 优 硬币 矩阵 


// 行 或 列 只 翻 1 次 时 


353 


[去 和 各 学 及 编程 拓 天 


} 
printf ("\n"); 
} 


printf(” 翻转 后 硬币 正面 最 多 为 :%1d\n", max) ; 


} 
3. 程序 运行 示例 与 说 明 


请 输入 矩阵 行 、 列 数 : 12, 12 

DOOO@@@@Og@S@CO 
OO@O0OO0@e®@O0Oeoee® 
O00e@eeeeoe 
©@O0@e@e@eOO000e@o®@ 
©@O000@e@0e@eeooe® 
OOO®@e®@e@eOeeeee® 
De@eceecOeeg@eg@Oeg@@ 
De@ococOee@eeg@eg@Og@O 
De@e@eccOecOe@eg@Og@O 
oOeeg@cOe@eOg@Og@ 
Oooooegeococoeg@eg@O 
De@cocoe@ecoe@ecOg@OO@ 
初始 状态 共有 ”77 个 正面 @ 

翻转 下 列 列 :2 6 7 9 11 


翻转 下 列 行 :1 2 7 8 9 11 12 
最 优 硬币 矩阵 为 ; 
oOeec0e@eg@cO0OO@@ 
ooOeeeee@eeg@eg@eg@CO 
ceec0ec0e@ec0@g@@ 
eeeeeecOe@eg@eg@e@ 
ec0ec0e@eeg@ec0@g@@ 
Deceece@eeg@Og@O@ 
eecc0c0e@ecDe@eg@g@OD 
eeeeeece@eg@e@e@ 
eceeeccOe@eg@@e@ 
eceeceeeg@eeg@eg@e@ 
ceeeegecDeg@DcO@@ 
eeecce@eg@g@g@ODOD 
翻转 后 硬币 正面 最 多 为 :103 


程序 约定 n 二 16, 是 考虑 到 列 状态 为 2n( 若 优化 也 有 2n 一 1) ,每 增加 一 列 , 操 作 增 加 
一 倍 , 为 指数 数量 级 。 列 数 n 太 大 ,程序 运行 时 间 呈 指数 增长 。 

翻转 达到 最 优 状态 的 最 少 翻转 次 数 应 小 于 等 于 (m 十 n)/2。 以 上 输出 中 m 十 n 一 24， 
翻转 5 列 7 行 ,刚好 为 m 十 n 的 一 半 。 如 果实 现 最 优 状 态 的 行列 翻转 次 数 之 和 大 于 (m+ 
n)/2 时 ,可 取 同 样 实现 最 优 状 态 的 互补 状态 ,此 时 翻转 次 数 最 少 。 

限定 列 数 n, 此 时 行 数 m 可 以 比较 大 。 当 然 ,车 行 数 m 比较 小 而 列 数 n 比较 大 ,可 修 
改 程序 ,把 列 状态 改 为 行 状态 实施 比较 。 


9.8 取石 子 游戏 


本 节 安 排 有 两 个 取石 子 游戏 : 巴 什 游戏 只 涉及 一 堆 石子 ,较为 简单 ;而 威 索 夫 游戏 涉 
及 两 堆 石 子 , 要 相对 复杂 一 些 。 

这 两 款 游戏 都 是 由 双方 参与 : 计算 机 为 一 方 ,游戏 者 为 男 一 方 。 游 戏 的 猜 先 都 通过 
随机 数 的 奇偶 性 决定 。 

取石 子 的 两 款 游戏 都 有 制胜 的 秘诀 ,也 就 是 说 都 有 智力 决策 的 实施 。 


巴 什 游 戏 


巴 什 (Bash) 游 戏 是 一 个 在 一 堆 石 子 取 子 的 游戏 。 
一 堆 石 子 有 n 个 ,计算 机 与 游戏 者 (计算 机 也 可 改 为 主持 人 ) 轮 流 从 这 堆 石 子 中 取石 


9.8.1 
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子 , 规 定 每 次 至 少 取 一 个 ,最 多 取 m 个 ( 正 整 数 m,n 可 随机 产生 )。 最 后 取 完 石子 者 得 胜 。 
试 模拟 计算 机 与 游戏 者 进行 巴 什 游戏 ,随机 决定 先 取 者 。 


1. 游戏 设计 要 点 

如 果 n 二 m 十 1, 由 于 规定 一 次 至 少 取 一 个 ,最 多 能 取 m 个 ,所 以 ,无 论 先 取 者 拿 走 多 
少 个 ,后 取 者 都 能 够 一 次 拿 走 剩余 的 石子 而 取胜 。 

(1) 制胜 局 面 。 

给 对 手 留 下 tC(m 十 了 ) 个 (t 为 正 整 数 ) , 即 留 下 m 十 1 的 整数 倍 给 对 手 。 

对 手 取 k(1 声 k 志 个 , 则 取 m 十 1 一 k 个 ,给 对 手 留 下 (t 一 1)(m 十 1) 个 。 

以 此 类 推 ,最 后 留 给 对 手 m 十 1 个 ,无 论 对 手 取 多 少 ,都 可 取 一 次 而 致胜 。 

(2) 游戏 决策 。 

如 果 开 始 时 n=tCm 十 1) 十 r(t 为 任意 自然 数 ,r 二 mm): 

@ 若 r==0, 即 开始 时 就 是 t(m 十 1) 局 面 , 先 取 必 破 坏 这 一 局 面 ,后 取 者 能 获胜 。 

@ 若 rz>>0, 则 先 取 r 个 , 留 给 对 手 t(m 十 1) 局 面 , 先 取 者 能 获胜 。 

因而 ,始终 给 对 手 留 下 m 十 1 整数 倍数 , 即 游戏 获胜 的 秘诀 。 

为 书写 简便 , 记 原 始 石 子 数 用 {} 括 起 来 ,计算 机 取 后 石子 数 用 [] 括 起 来 ,游戏 者 取 后 
石子 数 用 () 括 起 来 。 


2. 巴 什 游戏 6 程序 设计 


// 巴 什 游戏 

# include < stdlib. h> 
# include < time. h> 
# include < math. h> 
# include < stdio. h> 


voidmain0 


{ int mn,nl,n2,r,s, i,zs,ti 
t=time (0)% 1000; srand (t) ; // 随 机 数 发 生 器 初始 化 
mF randO%9+ 4;n= 3x mt rand O%41+40; // 随 机 产生 整数 n,m 
printf(” 石子 堆 的 石子 数 为 : %d \n",n); 
printf(” 规则 :双方 轮流 取 , 每 次 至 少 取 1 个 ,至 多 取 %d 个 。\n",m); 
printf(” 游戏 猜 先 :"); 
if(t%2==0) {zs=1;printf(” 计算 机 猜 得 先 取 ,计算 机 取 后 标 口 。\n") ;} 
else {zs=0;printf( ” 游戏 者 猜 得 先 取 , 游 戏 者 取 后 标 0。\n");} 
printf(" 初 始 售 dj",n); 
i=1; 
while (n> 0) 
{ if(zs==01| >1) 
{ printf(” 游戏 者 取 :"); 

scanf ("% d", &n1) ; // 游 戏 者 取 n1 个 

if(n1==0) {printf(” 必须 取石 子 1") ;continue;]} 

if(n1>n) {printf(” 石子 不 够 , 重 取 !") ;continue;} 

if(n1>m) {printf(” 违规 , 重 取 1") ;continue;} 
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n=nrn1; 
printf("—> (%d)\n",n); 
if (n==0) 
{printf(” 全 取 完 ,游戏 者 胜 ! 祝 贺 您 1\n") ;break;} 
} 


printf(” 计算 机 取石 子 !"); // 计 算 机 猜 得 先 取 

r=n% (mt 1); 

if (r==0) n2=m- 1- rand 0% (m1); // 计 算 机 随机 取 作 应 付 

else n2=r; // 计 算 机 取 子 秘诀 : 留 下 mt 1 整数 倍 


printf(” 计算 机 取 :%d ",n2) ; 
n=n-n2; printf ("-> [%d]",n); 
if(n==0) {printf(” 全 取 完 ,计算 机 胜 !1") ;break;} 
i=it+1; 
} 
printf(” 再 见 ! 欢 迎 下 次 再 玩 。\n"); 
} 


3. 程序 运行 示例 与 说 明 


石子 堆 的 石子 数 为 :96 

规则 :双方 轮流 取 , 每 次 至 少 取 1 个 ,至 多 取 6 个 。 

游戏 猜 先 : 计算 机 猜 得 先 取 , 计 算 机 取 后 标 口 。 

初始 {96}- > [91]-> (85)-> [84]-> (81)-> [77]-> (75)-> [70]- > (66) 
-> [63]- > (58)— > [56]- > (53)- > [49]- > (43)- > [42]- > (38)— > [35] 
->(33)-> [28]- > [21]- > (15)- > [14] -> (8) -> [7] -> (3) -> [0] 

全 取 完 ,计算 机 胜 ! 再 见 ! 欢 迎 下 次 再 玩 。 


以 上 显示 了 计算 机 取胜 的 诀窍 : 计算 机 每 次 取石 子 后 使 得 剩 下 的 石子 数 为 m 十 1 一 7 
的 倍数 。 最 后 一 轮 为 剩 下 m 十 1==7 时 ,无 论 游戏 者 取 多 少 ,计算 机 可 一 次 取 完 致胜 。 

如 果 游 戏 者 也 知晓 这 一 秘诀 且 先 手 留 给 计算 机 m 十 1 的 倍数 , 则 计算 机 只 能 随机 取 
以 作 应 付 , 并 等 待 游戏 者 出 错 。 


9.8.2 威 索 夫 游 戏 


数学 家 威 索 夫 (Wythoff) 于 1907 年 发 明 两 堆 石子 取 子 游戏 。 

参与 游戏 的 A,B 二 人 交替 地 从 已 有 的 两 堆 石子 中 按 下 面 的 规则 取石 子 。 

可 以 从 某 一 堆 取 出 若干 石子 ,数量 不 限 ; 也 可 以 同时 从 两 堆 取石 子 , 要 求 两 堆 取 出 的 
石子 数 相等 。 每 次 不 能 不 取 , 取 最 后 一 个 石子 者 为 胜 。 

设计 程序 ,计算 机 为 一 方 ,游戏 者 为 另 一 方 , 模 拟 这 一 取石 子 游戏 。 

1. 游戏 设计 要 点 

两 堆 石子 增添 了 游戏 的 难度 。 怎 样 才能 在 游戏 中 取得 胜利 ? 

(1) 胜 势 组 (Wythoff 数 对 ) 。 

对 于 任何 一 方 , 只 要 在 他 取 完 之 后 出 现下 面 的 局 势 ( 不 妨 称 为 胜 势 组 ,括号 中 的 两 个 
数字 分 别 为 两 堆 石子 数 ) ,可 导致 胜利 : 
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(152) ,C3,5),(4,7) ,6,10),(8;13) ,-… 

“ 胜 势 组 ” 即 著名 的 Wythoff 对 ,其 构成 规律 如 下 所 示 。 

第 1 胜 势 组 为 (1,2) ;第 i(i 二 1) 胜 势 组 中 的 较 小 数 c(i 让 ) 为 与 前 i 一 1 个 胜 势 组 中 所 有 
已 有 数 不 同 的 最 小 正 整 数 , 第 i 胜 势 组 中 的 较 大 数 d(GiD = 二 c(i) 十 i( 即 第 i 胜 势 组 的 两 堆 石 
子 数 之 差 为 i) 。 

(2) 当 A 方 取 子 之 后 出 现 胜 势 组 (1,2) ,无 论 B 方 如 何 取 子 ,A 可 胜 。 

@ 若 B 取 完 某 一 堆 , 则 A 取 完 另 一 堆 胜 。 

加 若 B 在 2 堆 中 取 1, 剩 下 (1,1),A 可 取 完 胜 。 

@ 若 B 在 两 堆 各 取 1, 只 剩 下 一 堆 ,A 取 完 胜 。 

(3) 一 般 地 , 当 A 方 取 子 之 后 出 现 第 i 胜 势 组 (c(i ,d(CD)(i 人 >1,dGD 一 c(GD) 十 D ,无论 
B 如 何 取石 子 ,A 可 胜 或 下 调 为 一 个 较 小 的 胜 势 组 而 导致 胜利 。 

@ 若 B 取 完 某 一 堆 , 则 A 取 完 另 一 堆 胜 。 

@ 若 B 若 在 c(iD 堆 取 子 .或 在 两 堆 c(i),d(i) 时 取 子 , 则 c(i) 堆 所 剩 下 的 石子 数 为 m 
去 c(iD ,注意 到 c(i) 为 与 前 i 一 1 胜 势 组 中 所 有 已 有 数 不 同 的 最 小 正 整 数 , 即 m 为 前 i 一 1 
个 胜 势 组 (不 妨 称 为 第 个 胜 势 组 ,t<iD 中 的 一 个 数 , 则 A 取 另 一 堆 变 为 第 t 个 胜 势 组 的 
另 一 个 数 , 即 A 可 由 第 i 胜 势 组 下 调 为 一 个 较 小 的 第 t 胜 势 组 。 

@ 若 B 若 在 d(iD 堆 取 子 , 设 d(i) 堆 所 剩 下 的 石子 数 为 m。 

。 若 m<c(GD , 则 由 以 上 @ 知 可 下 调 为 一 个 较 小 的 胜 势 组 。 

。 若 m=c(iD , 则 可 同时 取 完 两 堆 胜 。 

。 若 m>c(D , 设 m 一 c(GD 一 t, 显 然 有 0 一 t<i, 则 两 堆 同 时 取 子 ,可 下 调 为 一 个 较 小 

的 第 t 胜 势 组 。 

(4) 车 A 取 子 之 后 出 现 非 胜 势 组 , 则 B 取 子 可 变 为 胜 势 组 而 导致 胜利 。 

不 妨 设 A 取 完 之 后 出 现 非 胜 势 组 (m,n). 令 i 二 n 一 m。 

@ 若 m>c(D , 则 也 两 堆 同 取 子 变 为 第 i 胜 势 组 (Cc(i) ,d(i) ) 。 

@ 若 m<c(GiD , 即 m 为 前 i 一 1 个 胜 势 组 (不 妨 称 为 第 t 个 胜 势 组 ,t 和 iD 中 的 一 个 数 ， 
则 B 取 另 一 堆 变 为 第 t 个 胜 势 组 的 另 一 个 数 , 即 B 取 子 可 变 为 第 t 胜 势 组 。 

(5) 计算 机 的 游戏 操作 要 领 。 

若 计算 机 取石 子 时 遇 上 胜 势 组 ,无 论 如 何 取 都 将 变 为 非 胜 势 组 而 留 给 对 方 机 会 。 因 
此 可 采取 随意 取石 子 应 付 ( 例 如 一 堆 取 1 子 另 一 堆 不 取 ) .等 待 游戏 者 出 错 ; 若 计算 机 取石 
子 时 遇 上 非 胜 势 组 , 则 按照 上 述 策略 取石 子 变 为 胜 势 组 ,并 一 步 步 导 臻 最 后 胜利 。 

(6) 游戏 取 子 表示 。 

首先 ,随机 确定 两 堆 石 子 数 m,n(m<n) 。 

其 次 ,应 用 随机 数 奇偶 性 决定 先 取 者 。 

进入 游戏 ,参加 游戏 的 游戏 者 与 计算 机 先后 轮番 取石 子 。 

因 石 子 数 m,n 是 随机 产生 的 ,产生 的 (m,n) 是 一 胜 势 组 的 概率 比较 小 ,因此 先 取 者 获 
胜 的 概率 比较 大 。 

为 书写 简便 , 记 游 戏 开始 时 两 堆 石 子 数 m,n 用 {} 括 起 来 ,进入 游戏 后 计算 机 取 子 后 
两 堆 石 子 数 用 口 ] 括 起 来 ,游戏 者 取 子 后 两 堆 石 子 数 用 () 括 起 来 。 
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2. 威 索 夫 游戏 程序 设计 


// 威 案 夫 游戏 

# include < stdio.h> 
# include < stdlib. h> 
# include < time. h> 
# include < math. h> 


voidmain0 

{ int m n, ml, n1,m2, n2, i,j, k,e, zs,t,c[300],d[300] ; 
t= time (0)% 1000; srand (t) ; // 随 机 数 发 生 器 初始 化 
mF rand 0% 70+ 30;n= mt rand 0% 10+ 10; // 随 机 产生 两 堆 石子 数 


printf(" 第 一 堆 石 子 数 :%d 第 二 堆 石子 数 :%d \n",m,n); 
c[1]=1; d[1]=2; 
printf(” 胜 势 组 备用 :%d,%d;",c[1],d[1]); 
for (i=2;i<=m;i++) // 计 算 超 m 的 胜 势 组 待 用 
{ for(k=c[i-1]+1;k<=1000;k++) 
{ for(t=0,j=1;j<=i-1;j++) 
if (k==d[j]) {t=1;j=1i;} 
if(t==0) {c[i]=k;d[i]=k+ i;k= 1000;} 
} 
if(c[i]<=m printf ("%d,%d;", c[i], d[i]); 
else {printf("\n"); break;} 
} 
if((mtn)%2==0) {zs=1;printf( "计算 机 猜 得 先 取 , 计 算 机 取 后 标 口 。\n") ;} 
else {zs=0;printf ("游戏 者 猜 得 先 取 , 游 戏 者 取 后 标 0。\n") ;} 
printf(” 初始 8d,%d}",m,n); 
i=1; 
while(m> 0 || n>0) 
{ if(zs==0|| i>1) 
{ printf ("游戏 者 在 第 一 堆 取 :") ;scanf ("%d",&m1) ; 
printf ("游戏 者 在 第 二 堆 取 :") ;scanf ("%d",&n1); 
if(m1==0 && n1==0) {printf(" 必 须 取 石子 1") ;continue;} 
if ml>m || n1>n) {printf(" 石 子 不 够 , 重 取 1") ;continue;} 
if (m1>0 && n1>0 && m1!=n1) {printf(" 违 规 , 重 取 1") ;continue;} 
mm ml;in=n-n1; printf("-> (%d,%d)\n", m,n); 
ifo==0&& n==0) {printf(" 全 取 完 ,游戏 者 胜 ! 祝 贺 您 1") ;break;} 
} 
printf(" 计 算 机 取石 子 1") ;e= abs (mn); // 计 算 机 猜 得 先 取 开始 处 
if (m=0 && n>0) {m2=0;n2=n;} 
else if(n==0 && m> 0) {n2= 0;m2=m;} 
else if (m==n) {m2=m;n2=n;} 
else if==c[el & n==d[e] || n==c[e] && m==d[e]) 
{m2= 1;n2= 0;} // 遇 上 胜 势 组 时 随意 取 子 应 付 
else if(m> c[e] && n> c[e]) {m2= (m+ n- c[e]- d[e])/2;n2=m2;} 
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else 
{ k=1; 

while(k<=e@) 

{ ifwF=c[k] 8&& n> d[k]) {m2=0;n2=n- d[k];break;} 
if (n==c[k] && m> d[k]) { n2= 0;m2=m- d[k] ;break:} 
ifm==d[k] 8&& n> c[k]) { m2= 0;n2=n- c[k] ;break:;} 
if (n==d[k] && m> c[k]) { n2= 0;m2=m- c[k] ;break:;} 
k=k+ 1; 

} 

} 
printf(" 计 算 机 在 第 一 堆 取 :%d ",m2) ; 
printf(" 计 算 机 在 第 二 堆 取 :%d \n",n2); 
mm m2;n=n-n2; printf("—> [%d,%d]\n",m,n); 
if(m=0 && n==0) {printf(" 全 取 完 ,计算 机 胜 !1") ;break;} 
i=i+1; 

} 

printf(" 再 见 ! 欢 迎 下 次 再 玩 。\n"); 

} 


3. 程序 运行 示例 与 说 明 


第 一 堆 石 子 数 :80 ”第 二 堆 石 子 数 :95 

胜 势 组 备用 : 

1,2;3,5;4, 7;6, 10;8, 13;9, 15;11, 18;12, 20;14, 23;16, 26; 

17, 28;19, 31;21, 34;22, 36;24, 39;25, 41; 

游戏 者 猜 得 先 取 ,游戏 者 取 后 标 0 。 

初始 {80, 95}- > (24, 39)- > [23,39]- > (23,14)- > [22, 14]- > (20, 12)-> [19, 12] 
—> (18,11)—> [17,11]- > (15,9)—> [14,9]- > (13, 8)—> [12, 8]- > (10, 6) 
—> [9,6]-> (7,4-> [6,4]-> (5,3)-> [4,3]-> (2,1)-> [1,1]-> (0,0) 

全 取 完 ,游戏 者 胜 ! 祝 贺 您 ! 再 见 ! 欢 迎 下 次 再 玩 。 


由 以 上 输出 可 知 ,随机 产生 的 两 堆 石 子 数 (80,95) 非 胜 势 组 ,游戏 者 先 取 并 懂得 制胜 
玄机 ,每 次 取 子 都 把 非 胜 势 组 转变 为 胜 势 组 (24,39),(23,14),(20,12),(18,11),(15,9)， 
(13,8),(10,6),(7,4),(5,3),(2,1), 最 后 取得 游戏 的 胜利 。 注 意 ,(23,14) 与 (14,23) 是 
等 价 的 ,尽管 在 Wythoff 对 中 定义 把 小 数 放 在 前 面 , 但 在 游戏 中 的 第 一 堆 与 第 二 堆 不 分 哪 
堆 多 哪 堆 少 ,只 要 取 数 符合 规定 都 是 允许 的 。 

计算 机 无 可 奈何 ,每 次 在 一 组 取 1 消极 应 对 ,等 待 游戏 者 出 错 。 在 游戏 者 不 出 错 的 情 
况 下 ,只 能 认输 。 


9.9 移动 8 数码 游戏 


二 维 的 8 数码 游戏 是 一 个 有 趣 的 也 有 难度 的 移 码 游戏 ,有 些 资料 称 为 8 数码 难题 。 
1. 游戏 简介 
在 一 个 3X3 方 格 的 方 阵 中 安放 有 8 张 编 有 数码 1 一 8 的 滑 牌 ,同时 方 阵 中 还 有 一 个 
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是 空 方 格 ( 用 数字 0 表示 ), 各 数码 能 上 下 或 左右 滑 向 与 它 相 邻 ( 即 有 公共 边 ) 的 空格 。 
游戏 首先 指定 的 8 数码 的 初始 状态 与 目标 状态 ,要 求 游戏 者 用 最 少 的 滑动 次 数 完成 
从 初始 状态 滑 到 目标 状态 ,并 给 出 游戏 滑动 中 空位 ( 即 0 滑动 示意 轨迹 。 
例如 ,图 9-3 所 示 的 初始 状态 与 目标 状态 ,最少 需 多 少 次 滑动 才能 完成 转换 ? 
问题 涉及 二 维 的 9 方 格 与 8 数码 ,由 于 指定 的 


初始 状态 与 目标 状态 之 间 的 关系 不 明确 ,第 一 步 如 “| 2 “| a 
何 滑 ? 接着 第 二 步 又 如 何 滑 ? 怎样 才能 达到 目标 | a al 
状态 ? 前 | 沪 | 总 到 区: 本 医 ': 
可 见 通过 最 少 的 滑动 次 数 由 初始 状态 达到 目标 。 ”四 初 苔 状态 。 (目标 状态 
状态 的 难度 是 比较 大 的 。 图 9-3 8 数码 游戏 的 初始 与 目标 状态 


试用 分 支 限界 法 设计 求解 。 


2. 游戏 是 否 存在 解 的 探讨 

对 指定 的 初始 状态 是 否 存在 滑动 序列 达到 指定 的 目标 状态 , 即 所 给 出 的 8 数码 游戏 
问题 是 否 有 解 ? 

【定义 】 对 每 一 个 状态 定义 状态 量 


8 
s= >)NC) 
k=1 

为 了 说 明 N(k) , 试 把 二 维 状态 按 从 左 到 右 从 上 往 下 的 排列 次 序 转化 为 一 维 状态 ( 即 
一 个 9 位 整数 ) ,例如 ,以 上 的 初始 状态 可 转化 为 整数 264137058 。 

数字 k 的 标志 量 N(k) 为 数字 k(1 三 k 夺 8) 在 该 9 位 整数 中 其 左边 (高 位 ) 比 k 大 的 数 
字 的 个 数 。 例 如 ,数字 3 的 前 面 比 3 大 的 数字 有 2 个 (数字 6,4), 即 N(C3) 一 2。 

状态 量 s 为 8 个 数字 的 N(k) (1 三 k 志 8) 之 和 。 若 状态 量 s 若 为 奇数 , 则 该 状态 为 奇 
状态 ;状态 量 s 若 为 偶数 , 则 该 状态 为 偶 状态 。 

【命题 】 车 初始 状态 与 目标 状态 同 为 奇 状态 或 同 为 偶 状态 ,问题 有 解 。 

否则 ,车 初始 状态 与 目标 状态 为 一 奇 一 偶 ,问题 无 解 。 

【证 明 】 首先 ,在 矩阵 的 一 行内 某 一 数码 和 空格 左右 互 换 不 改变 状态 的 奇偶 性 ,因为 
各 个 数码 的 NGk) 没 有 改变 。 

在 矩阵 的 一 列 内 一 个 数码 和 空格 上 下 互 换 也 不 改变 状态 的 奇偶 性 。 

不 妨 假设 空格 在 下 面 , 上 下 互 换 要 改变 3 个 数 的 次 序 及 它们 的 N(k) 值 。 

假设 这 3 个 数字 在 整数 中 的 排列 依次 是 abc, 变 换 后 次 序 变 为 bca( 即 数字 a 下 移 到 
空格 ), 在 这 3 个 数字 串 中 数字 a 由 串 头 变 为 了 串 尾 ,NGk) 值 也 相应 发 生 了 变化 ,具体 分 
以 下 3 种 情形 。 

(1) 如 果 a 小 于 b,c, 变 换 后 N(a) 增 2, 其 他 未 改变 ,显然 不 改变 状态 量 的 奇偶 性 。 

(2) 如 果 a 大 于 b,c, 变 换 后 N(b).N(c) 均 减少 1, 其 他 未 改变 ,也 不 改变 状态 的 奇 
偶 性 。 

(3) 如 果 a 介 于 b,c 之 间 : 若 b 二 a<c, 变 换 后 N(b) 减 少 1,N(a) 增 加 1,N(c) 未 改 
变 , 不 改变 状态 的 奇偶 性 ;车 c 二 a 二 b, 变 换 后 N(c) 减 少 1,N(a) 增 加 1,N(b) 未 改变 ,不 改 
变 状态 的 奇偶 性 。 也 就 是 说 ,各 数码 按 规则 的 任何 滑动 .都 不 改变 状态 的 奇偶 性 。 
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若 两 状态 的 奇偶 性 不 同 ,无论 按 规则 怎么 滑动 ,无 论 滑动 多 少 次 ,因为 按 规则 滑动 不 
改变 状态 的 奇偶 性 ,因而 都 不 能 由 其 中 一 个 状态 变 为 奇偶 性 不 同 的 另 一 个 状态 。 

设计 将 根据 初始 状态 与 目标 状态 的 奇偶 性 来 判别 问题 是 否 有 解 。 

【举例 】 以 上 所 列 的 初始 状态 容 的 状态 量 sa 如 下 所 示 。 


264 sa 一 N(C2) 十 NG6) 十 NG) 十 NG) 十 NG3) 十 NCO)+ NG5)+ NGS) 
187 一 >264137058 一 > = 0 十 0+ 1+3+2+0+323 二 0 
058 一 8 

同样 计算 得 以 上 目标 状态 的 状态 量 sb 如 下 所 示 。 

815 sb 一 N(8) 十 NGD) 十 NGC5) 十 NG7) 十 NG3)+ N(6) 十 NG4) 十 NC2) 
736 一 >815736402 一 > = 0 十 1 二 1+1+3+23+4 二 6 
402 = 18 


可 见 初始 状态 与 目标 状态 同 为 偶 状 态 ,问题 有 解 。 
若 把 目标 状态 变更 为 如 下 所 示 。 


185 sb=N(1)+ N(8)+ N(5)+ N(7)+ N(3)+ N(6)+ N(4)+ N(2) 
786 一 二 185736402， 一 之 人 十 十 下 二 下 十 当 十 和 十 本 十 胡 
402 -= 


初始 状态 与 改变 后 的 目标 状态 为 一 偶 一 奇 ,问题 无 解 , 即 无 论 如 何 滑动 ,从 初始 状态 均 无 
法 达到 目标 状态 。 

3. 分 支 限界 设计 要 点 

问题 求 最 少 的 滑动 次 数 , 试 应 用 分 支 限界 法 设计 搜索 求解 。 

(1) 算法 设计 概述 。 

从 初始 状态 开始 ,在 所 有 滑动 方向 滑动 一 次 得 到 若干 1 次 子 状态 ,这些 子 状态 分 别 与 
目标 状态 比较 ,是 否 达 到 目标 ;车 没有 达到 目标 , 则 从 每 一 个 1 次 子 状态 在 所 有 滑动 方向 
分 别 滑动 一 次 ,得 到 若干 2 次 子 状态 ,这 些 子 状态 分 别 与 目标 状态 比较 ,是 否 达 到 目标 ;以 
此 类 推 ,滑动 s 次 得 到 所 有 的 s 次 子 状态 ,这 些 子 状 态 分 别 与 目标 状态 比较 ,是 否 达 到 目 
标 , 直 至 达到 目标 结束 。 

这 样 ,从 滑动 一 步 开 始 , 每 滑动 一 步 得 到 若干 子 状态 都 与 目标 状态 比较 。 最 先 得 到 目 
标 状态 的 无 疑 是 所 求 的 最 少 的 滑动 次 数 。 

对 于 某 一 状态 来 说 ,空位 0 的 位 置 有 以 下 3 种 情形 。 

如 果 空 位 0 位 于 4 角 , 则 存在 2 个 滑动 方向 , 即 可 产生 2 个 子 状 态 ; 

如 果 空 位 0 位 于 4 边 , 则 存在 3 个 滑动 方向 , 即 可 产生 3 个 子 状态 ; 

如 果 空 位 0 位 于 矩阵 中 间 , 则 存在 4 个 滑动 方向 , 则 可 产生 4 个 子 状态 。 

如 果 次 数 s 比较 大 , 则 s 次 子 状 态 的 数量 非常 大 ,占用 的 内 存 必 然 非 常 大 。 因 此 有 必 
要 实施 截 枝 ,以 减少 子 状态 的 数量 。 

截 枝 的 依据 是 不 走 回 头 路 , 即 不 能 回 到 母 状 态 。 例 如 ,空格 从 上 往 下 滑动 到 中 央 , 不 
走 回 头 路 就 是 此 时 空格 不 能 立即 从 下 往 上 滑动 。 

通过 截 枝 ,对 于 过 程 中 某 一 状态 来 说 ,空位 0 的 位 置 有 以 下 3 种 情形 。 

如 果 空 位 0 位 于 4 角 , 则 只 存在 1 个 滑动 方向 , 即 只 产生 1 个 子 状态 ; 

如 果 空 位 0 位 于 4 边 , 则 只 存在 2 个 滑动 方向 , 即 只 产生 2 个 子 状态 ; 
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如 果 空 位 0 位 于 和 矩阵 中 间 , 则 只 存在 3 个 滑动 方向 , 则 只 产生 3 个 子 状态 。 

(2) 四 向 移动 操作 。 

把 二 维 状 态 按 从 左 到 右 从 上 往 下 的 排列 次 序 精简 为 一 维 状态 , 即 一 个 9 位 整数 。 例 
如 ,以 上 的 初始 状态 转化 为 整数 264137058。 

设置 一 维 数组 long a[40000], 目 标 为 long b, 其 中 ,a[0] 为 初始 状态 数 ,a[Lmj] 为 中 间 
第 m 结 点 的 状态 数 。 此 时 是 否 达 到 目标 状态 ,只 需 进 行 aLmj] 与 b 比较 即 可 。 

设 aLmj 的 父 结 点 为 aLk] ,分 析 aLk] 一 之 aLmj], 其 中 a[kj 的 0 位 于 Gi,j) 位 。 

这 里 的 关键 在 于 由 a[kj 分 4 种 滑动 方向 计算 a[m], 这 是 关键 ,也 是 难点 。 

令 v==10^(ix 3 十 j) ,u 二 10^(8 一 (ix 3 十 j))。 

0 上 移 

矩阵 位 于 (i,j) 位 的 0 上 移 到 (i 一 1,j) ,相当 于 a[Lk] 位 于 (i 一 1,j) 位 的 数字 h 下 移 到 Gi， 
j), 即 数字 h 在 数 a[kj] 中 后 移 3 位 。 因 而 h=(a[kj/u/1000)%10; 操作 h=ux 1000; bh= 
(a[kj]/h) %10。 

h 在 数 aLk] 中 后 移 3 位 , 即 aLk] 减 少 h* (999* u) ,a[Lm] 一 aLk] 一 hx (999 x u)。 

例如 ,由 268734510 的 0 上 移 得 到 268730514 , 需 减 少 4* (999* 1)。 注 意 , 此 时 h 是 
与 0 交换 的 数字 4,u 是 1。 

@ 0 下 移 。 

a[k] 位 于 (i,j) 位 的 0 下 移 到 (i 十 1,j) ,相当 于 a[kj 位 于 Gi 十 1,) 位 的 数字 h 上 移 到 (i， 
j) , 即 数字 h 在 数 a[k] 中 前 移 3 位 。 因 而 h=(a[k]/ux 1000)%10, 操 作 : c= 二 u/1000,h= 
(Ca[k]/c) %10。 

h 在 数 a[k] 中 前 移 3 位 , 即 aLk] 增 加 hx (999 x u/1000),a[m] 二 a[kj] 十 h * (999 x c)。 

例如 ,280163754 的 0 下 移 得 到 283160754, 需 增加 3 * (999 x* 10^6/1000) 。 注 意 ,此 
时 h 是 与 0 交换 的 数字 3,u 是 10^6。 

@ 0 碳 移 。 

a[Lk] 位 于 (i,j) 位 的 0 右 移 到 (i,j 十 1) ,相当 于 a[kj 位 于 Gi,j 十 1) 位 的 数字 h 左 移 一 位 
到 (i,j), 即 数字 h 在 数 a[k] 中 前 移 1 位 。 因 而 h 王 (Ca[Lk]j/ux 10)%10, 操 作 : c==u/10， 
h= (aLkj/c) %10。 

数字 h 在 数 aLk] 中 前 移 1 位 , 即 aLk] 增 加 hx (9x u/10),a[Lm] 一 aLk] 十 hx (9 * c)。 

例如 ,268734501 的 0 右 移 得 到 268734510 , 需 增 加 1 * (9 * 10/10)。 注 意 , 此 时 h 是 
与 0 交换 的 数字 1,u 是 10。 

@ 0 左 移 。 

a[kj 位 于 Gi,j) 位 的 0 左 移 到 (i,j 一 1) ,相当 于 aLk] 位 于 (i,j 一 1) 位 的 数字 h 右 移 一 位 
到 (ij), 即 数字 h 在 数 aLk] 中 后 移 1 位 。 因 而 h 一 (CaLk]/u/10)%%10, 操 作 : h 一 ux 10， 
h 一 (CaLk]/h)%10。 

h 在 数 aLkj] 中 后 移 1 位 , 即 aLk] 减 少 hx* (9*u),aLmj] 王 aLk] 一 hx* (9xu)。 

例如 ,268730514 的 0 左 移 得 到 268703514 , 需 减 少 3* (9* 10 人 3) 。 注 意 , 此 时 h 是 与 
0 交换 的 数字 3,u 是 10^3 。 

当 得 到 一 个 中 间 状 态 aLmj] 时 ,通过 gL[m] 二 k; 记录 a[mj] 的 父 状 态 的 下 标 k。 同 时 通 
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过 pLmj 二 (i 一 1) * 3 十 j; 记 录 该 状态 0 的 位 置 。 

(3) 截 枝 实 现 。 

字符 个 ,Vy ,一 ,一 的 ASCII 码 分 别 是 24,25,26,27, 为 打印 方便 ,用 数组 rrm] 表 示 空 
格 0 的 移动 。r[mj==1 表示 向 上 个 ,rLmj]==2 表示 向 下 y ,r[m] 王 3 表示 向 右 一 ,rLm] 一 4 
表示 向 左 一 。 

为 避免 走 回 头 路 (例如 , 父 状 态 0 为 下 移 , 此 时 又 上 移 , 回 到 原状 态 ) ,对 0 的 移动 设置 
截 枝 条 件 。 

例如 ,对 0 上 移 设 置 截 枝 条 件 : 这 =1 && r[k] 一 2, 其 中 这 =1 表 明 要 上 移 ,0 的 行 
号 i 需 大 于 等 于 1, 如果 i 王 0, 即 在 矩阵 的 最 前 面 一 行 无 法 上 移 。 

而 tL[kj 一 2 为 避免 走 回头 路 的 截 枝 : 其 父 状 态 若 为 下 移 (r[kj 二 2), 此 时 r[k] 一 2 二 0， 
即 此 时 的 上 移 无 法 实现 ;其 父 状态 不 为 下 移 (r[kj 了 2), 此 时 r[k] 一 2 去 0, 即 此 时 不 影响 
上 移 实 现 。 

(4) 双向 广度 优先 搜索 的 实施 。 

8 数码 问题 具有 可 逆 性 ,也 就 是 说 ,如 果 可 以 从 一 个 状态 A 移动 生成 状态 B, 那 么 同 
样 可 以 从 状态 B 移动 生成 状态 A, 这 种 问题 既 可 以 从 初始 状态 出 发 ,搜索 目标 状态 ;也 可 
以 从 目标 状态 出 发 ,搜索 初始 状态 。 

很 自然 的 思路 就 是 双向 搜索 ,以 缩减 所 占用 的 空间 。 

所 谓 双 向 广度 优先 搜索 法 ,是 从 初始 状态 采用 广度 优先 搜索 的 策略 实施 搜索 ,经 sa 
(可 约定 二 =15) 步 顺 向 搜索 , 若 得 到 目标 状态 , 即 退 出 搜索 输出 0 的 移动 标志 结束 ; 若 顺 
向 搜索 到 15 步 还 没有 达到 目标 , 则 把 该 步 的 所 有 中 间 状 态 m: kkb 一 kke 的 数据 作为 比较 
目标 保存 下 来 。 然 后 从 目标 状态 开始 采用 广度 优先 搜索 的 策略 实施 逆向 搜索 ,每 搜索 得 
到 一 个 b[Lnj 与 所 有 保存 的 中 间 状 态 aLmj] 逐 个 比较 ; 若 在 第 sb 步 的 中 间 状 态 bLn] ,出 现 
b[nj 二 aLmj ,两 个 方向 搜索 对 接 成 功 ,停止 搜索 ,作协 调 输出 。 

(5) 协调 输出 。 

为 使 输出 标明 空格 ( 即 0) 的 sa 十 sb 步 移动 标志 简洁 明了 ,定义 协调 输出 的 e 数组 记 
录 最 短路 径 中 数 ,r 数组 记录 最 短路 径 中 数 的 0 所 在 位 置 : e[kj(k: 1 一 sa 十 sb) 为 移动 路 
径 中 的 第 k 步 所 得 的 数 ;rLk] 为 移动 路 径 中 的 第 k 步 所 得 的 数 的 0 所 在 位 置 (0 一 8, 最 高 位 
为 0, 个 位 为 8) 。 因 此 必须 进行 以 下 赋值 : a[m] 一 之 e[sa]; aLqa[m]] 一 之 e[sa 一 1];…*…; 直 
至 e[1j。 与 此 同时 ,ra[mj] 一 之 r[saj;raLqa[mj]] 一 之 rLsa 一 1];……; 直至 r[1]。 
b[Lqb[n]] 一 之 eLsa 十 1]; b[Lqb[qb[n]]]j 一 之 eL[sa 十 2];…*…; 直 至 e[sa 十 sb]。 与 此 同时 ， 
rb[Lqb[ nj]j— 之 rLsa 二 1j];rbLqb[qb[nj]] 一 之 rLsa 十 2j];……; 直 至 rLsa 十 sb]。 

设置 输出 循环 k(1 一 sa 十 sb) , 除 输出 步 序号 k 与 第 k 步 所 得 之 数 eLk] 外 ,根据 相 邻 
两 项 0 的 位 置 差 tLk 一 1j 一 rLkj 输 出 相应 的 移动 标志 。 

因此 ,采用 双向 广度 优先 搜索 法 ,将 大 大 节省 中 间 比 较 状 态 所 占 的 内 存 空间 ,或 者 说 
在 相同 的 内 存 空间 限制 下 可 求解 步 数 较 大 的 8 数码 问题 。 


4 双向 广度 优先 搜索 程序 设计 
//8 数 码 问题 双向 广度 优先 搜索 
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# include < stdio. h> 
#define N 20000 
long m, kkb, kke, a[N], b[N] ; 


void main0 


{ int d, ij,x,g,sa, sb,as,bs,pa[N],pb[N],ra[N],rb[N],r[1o0]; 


long c, h, k, kb, ke, n, u, v, y, qa [N], qb [N], e[100] ; 
int or [9] = {2, 6,4,1,3,7,.0, 5, 8} ; 
int ta[9] = {8, 1,5,7, 3, 6, 4, 0, 2} ; 
int wy (long n); 
d=as=bs=0; 
for (i=0;i<=7;i++) 
for(j=i+1;j<=8;j++) 
{ if(or[i]>or[j] && or[j]>0) ast+; 
if (ta[i]> ta[j] && ta[j]>0) bs++; 
} 
if((astbs)%2>0) return; 
a[0]=b[0]=0; 
for (i=0;i<=2;i++) 
for (j=0;j<=2;j++) 
{ a[0]=a[0] x* 10+ or[i * 3+j]; 
b[0]=b[0] * 10+ ta[i * 3+ j]; 
} 
printf(” 给 出 的 初始 状态 : % 1d \n",a[0]); 
for (i=0;i<=2;i++) 
{ for(j=0;j<=2;j++) 
{ d=ix3+j;printf("” %d",or[d]); 
if (or [d]==0) pa[0]=d; 
} 
printf ("\n"); 
} 


printf(” 需 达 到 的 目标 状态 : % 1d \n",b[0]); 


for (i=0;i<=2;i++) 
{ for(j=0;j<=2;j++) 
{ d=ix3+j;printf(" %d",ta[d]); 
if (ta[ld]==0) pb[0]=d; 
} 
printf ("\n"); 
} 
kb= ke=nmF n= sa= sb= ra[0]= d= 0; 
while(sa< 15) 
{ sat+; 
for (k= kb;k<=ke;k++) 
{ i=pa[k]/3;j=pa[k]%3; 
for(v=1,g1;g<=i* 3+ j;gt+) 


// 初 始 状 态 数据 
// 目 标 状态 数据 
// 检 验 初始 与 目标 状态 的 奇偶 性 


// 初 始 与 目标 状态 不 同 奇偶 ,无 解 ! 


/计算 初始 状态 的 长 数 a[0] 
/计算 目标 状态 的 长 数 b[0] 


// 记 录 初 状态 数字 0 所 在 位 置 


// 记 录 目 标 态 数字 0 所 在 位 置 


// 循 环 起 始终 止 量 赋 初 值 


// 统 计 顺 搜 段 的 步 数 ,最 多 限 15 步 


v=v* 10; 

u= 100000000/v; 

if(i>=18&& ra[k]-2) 

{ mr+;h=ux1000;h= (a[k]/h)%10; 
a[m]=a[k]-h* (999* u); qa[m]=k; 
pa[m]= (i-1D)*3+j; ram=1; 
if (alm]==b[0] || m=N) break; 

} 

if(i<=1 8&& ra[k]-1) 

{ mr+; c=u/1000;h= (a[k]/c)% 10; 
alm]=a[k]+h* (999* c); qa[m]=k; 
palm]= (i+ 1) * 3+ j; ralm]=2; 
if(alm]==b[0] || m>=N) break; 

} 

if(j<=1 8&& ra[k]-4) 

{ m+ ;c=u/10;h= (a[k]/c)% 10; 
a[m=a[k]+hx* (9*c); qa[m]=k; 
pa[m]=ix*3+j+1; ra[m=3; 
if(alm]==b[0] || m>=N) break; 

} 

if(j>=18&& ra[k]-3) 

{ mr+ih=ux10;h= (a[fk]/h)% 10; 
a[lm]=a[k]-hx (9*u); qafm]=k; 
palm]= i * 3+ j-1; ra[lm]=4; 
if (alm]==b[0] || m=N) break; 


} 
if (a[m]==b[0]) {d=1;break;} 
if > =N return; 
kb= ke+ 1;ke= mi 
} 
if(sa==15 && d==0) 
{ kkb=kb;kke=ke;kb=ke=0; 
while(1) 
{ as 
for (k=kb;k< = ke;k++) 
{ i=pb[k]/3;j=pb[k]% 3; 
for(v=1,g=1;g<=ix 3+ j;gt+) 
v=v* 10; 
u= 100000000/v; 
if(i>=1 &8 rb[k]-1) 
{ nt+;h=ux 1000;h= (b[k]/h)%10; 


b[n]=b[k]-h* (999* u); qb[n]=k; 


pb[n]= (i-1) * 3+ j; rb[n]=2; 


SE le hi | 
//v=10° (i x 3+ j) 
//0 向 上 移 
/数值 减少 h(9899* u) 
// 已 达到 目标 ,输出 结束 
//0 向 下 移 
// 数 值 增加 h (999 * c) 
// 已 达到 目标 ,输出 结束 
//0 向 右 移 
// 数 值 增加 hx c) 
// 已 达到 目标 ,输出 结束 
//0 可 向 左 移 
// 数 值 减少 h@x* 


// 已 达到 目标 ,输出 结束 


// 循 环 起 始终 止 量 赋 初 值 


// 统 计 逆 搜 眉 的 步 数 


//v=10° (i x 3+j) 
//0 向 上 移 


// 数 值 减 少 h (999* vu) 
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if (wy (n) || m> =N) break; // 已 达到 目标 ,输出 结束 
} 
if (i<=1 && rb[k]-2) //0 向 下 移 
{ nt+; c=u/1000;h= (b[k]/c)% 10; 
b[n]=b[k]+h* (999* c); qb[n]=k; // 数 值 增加 h (999 * c) 
pb[n]= (i+1) * 3+j; rb[n]=1; 
if (wy (n) || m> =N) break; // 已 达到 目标 ,输出 结束 
if(j<=1 &8 rb[k]-3) //0 向 右 移 
{ nt+;c=u/10;h= (b[k]/c)% 10; 
b[n]=b[k]+h* (9*c); qbo[n]=k; // 数 值 增加 h(9* c) 
pb[n]= i x 3+ j+1; rb[n]=4; 
if (wy (n) || m=N) break; // 已 达到 目标 ,输出 结束 
了 
if(j>=1 8&& rb[k]-4) /0 可 向 左 移 
{ nr+;ih=ux 10;h= (b[k]/h)% 10; 
b[n]=b[k]-hx (9#u); qb[n]=k; // 数 值 减 少 h(9*x 山 
pb[n]= i * 3+ j-1; rb[n]=3; 
if (wy(n) || m>=N) break; // 已 达到 目标 ,跳出 循环 


} 

if (wy (n)) {d=1;break;} 
ifm>=N return; 

kb= ke+ 1;ke=n; 


| 
printf(” 从 初始 状态 经 最 少 %d 次 移动 达到 目标 状态 . \n “", sa+ sb) ; 
e[sa]=a[m];r [sa]= pa[m] ;y= qa[m];r [0]= pa[0]; 


for (k=1;k<=sa- 1;kt+) // 根 据 qa 数组 值 逆 推 最 短路 径 中 的 顺 搜 段 
{ef[sa- k]=a[y];r [sa- k]=pa[y] ;y= qa[y];} 

if (sb> 0) 

{ y=qb[n];e[sat1]=b[y];r[sat 1]=pb[y]; 
for (k=1;k<=sb- 1;k++) // 根 据 qb 数组 值 顺 推 最 短路 径 中 的 逆 搜 段 


{y=qb[y]; efsat k+ 1]=b[y];r [sat k+ 1]=pb[y];} 
} 
for (k=1;k<= sat sb;k++) 
{ x= (rfk- 1]-r[k]+ 3)/2+ 25; // 根 据 0 的 变化 输出 0 的 滑动 标志 
if (x== 28) x= 24; 
printf("%c ",x); 
if(k%10==0) printf("\n "); 
} 
printf ("\n"); 
| 
int wy (long n) // 定 义 比较 函数 
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{ int j,w=0; 
for (j=kkb; j<=kke; j++) 
if (b[n]==a[j]) {w= 1;me j;break;} 
return w; 


} 


5. 程序 运行 结果 与 说 明 
程序 运行 结果 如 图 9-4 所 示 。 


获悉 : 264137658 


乓 初 码 
上 
8 

的 目标 状态 : 815736462 


9 
6 
3 
5 
需 达 到 
1 5 
3 6 
0 2 
四 始 状 
1 
1 
1 


图 9-4 8 数码 游戏 移动 示意 图 
这 里 ,sa 一 15,sb 一 16, 共 经 31 步 双向 对 接 成 功 。 
试 把 初始 与 目标 状态 交换 ,运行 程序 同样 需要 31 步 完成 。 
当然 ,对 于 需要 更 多 滑动 步 才 能 实现 的 8 数码 问题 ,双向 搜索 可 能 无 能 为 力 , 需 在 算 
法 上 另 作 改 进 与 优化 。 
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数 阵 天 地 大 观 


数列 (序列 ) 形 态 是 一 维 的 ,而 数 阵 形态 是 二 维 的 , 数 阵 是 对 数列 的 扩展 。 

数 阵 包 括 和 矩阵 . 方 阵 以 及 三 角 阵 等 ,形式 变换 万 千 ,内 容 博大 精深 。 

本 章 首 先 探讨 杨辉 三 角 与 莱 布 尼 茨 三 角 这 两 个 中 外 著名 三 角 数 阵 , 并 建立 这 二 者 之 
间 的 内 在 联系 。 常 见 的 各 类 棋盘 是 二 维 数 阵 的 一 个 形象 而 生动 的 平台 ,本 章 探索 在 矩阵 
棋盘 上 影响 深远 的 高 斯 皇后 问题 .皇后 全 控 棋 盘问 题 ` 马 步 遍历 .最 长 马 步 路 径 与 马 步 型 
哈密 顿 图 等 数 阵 经 典 , 再 现 棋盘 上 的 风云 故事 及 其 恢宏 演绎 。 幻 方 是 数 阵 中 的 一 个 历史 
悠久 、 雅 俗 共 赏 的 亮点 , 深 受 中 外 广大 数学 爱好 者 的 喜爱 与 追捧 。 本 章 从 千古 治 书 探 讨 n 
阶 幻 方 ,进一步 探索 积 幻 方 、 素 数 幻 方 的 构建 ,并 首次 把 “对 角 正 交 拉 丁 方 ”纳入 幻 方 范畴 ， 
展示 它 在 构建 素数 幻 方 与 积 幻 方 上 的 不 可 或 缺 。 

数 阵 的 天 空 ,广阔 深 答 ,繁星 璀璨 , 蔚 为 壮观 。 


10.1 中 外 著名 三 角 数 阵 


杨辉 三 角 与 莱 布 尼 茨 三 角 是 两 个 中 外 著名 的 三 角 数 阵 。 一 个 出 于 古代 中 国 , 一 个 出 
于 近代 德国 ;一 个 是 整数 数 阵 ,一 个 是 分 数 数 阵 ;两 者 的 生成 规则 各 不 相同 ,表现 形式 各 具 
特色 ,这 两 个 三 角 数 阵 看 起 来 似乎 并 无 关联 。 但 事实 上 ,这 两 个 著名 三 角 数 阵 是 紧密 关联 
的 ,本 节 将 具体 给 出 它们 的 关联 表达 式 , 据 此 可 由 其 中 一 个 推出 另外 一 个 。 


10.1.1 杨辉 三 角 


我 国 北宋 数学 家 贾 完 首先 使 用 * 贾 完 三 角 ”进行 高 次 开 方 运算 ,南宋 数学 家 杨辉 在 名 
著 《 详 解 九 章 算法 》 中 记载 并 保存 了 “页 宪 三 角 ”, 故 称 * 杨 辉 三 角 ”( 见 图 10-1) 。 


元 朝 数 学 家 朱 世 杰 在 (四 元 玉 鉴 ) 中 扩充 了 *“ 贾 完 
三 角 ”。 在 欧洲 直到 1654 年 法 国 数学 家 帕斯卡 才 发 1 [ 
现 了 与 杨辉 三 角 类 似 的 “帕斯卡 三 角 ”, 比 * 贾 完 三 角 ” 1 
迟 了 约 600 年 。 1 4 6 [4 1 
杨辉 三 角 揭 示 了 (a 十 b)" 展开 式 的 系数 规律 。 十 是 图 王 四国 网 于 图 于 区 
例如 ,在 杨辉 三 角 中 ,第 3 行 的 3 个 数 (1,2,1D) 对 四 回 四 四 四 回避 
应 着 两 数 和 的 平方 的 展开 式 (a 十 b)? 二 a 十 2ab 十 b? 图 10-1 杨辉 三 角 示意 图 


的 3 项 系数 。 
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第 4 行 的 4 个 数 (1,3,3,1) 依 次 对 应 两 数 和 的 立方 的 展开 式 
(a 二 b= 二 a 十 3asb 十 3ab? 十 bs 


中 的 4 项 的 系数 。 
一 般 地 , 设 从 mn 取 k 的 组 合 数 记 为 CCn,k), 则 二 项 展开 式 
(a 十 b)" 一 SiC, ab (1) 
k=0 

设 杨 辉 三 角 的 第 n 十 1 行 第 k 十 1 项 为 y(n 十 1,k 十 1) ,由 式 (1) 有 

yCn 十 1,k 十 1) = CCn,k)(k = 0,1,°%,n) (2) 
nl 
同时 ,由 组 合 数 CCn'k) 一 KTCnRT' 可 推出 

Cn 一 1,k 一 1) 十 CCn 一 1,k) = Cn,k) (3) 
组 合 公式 (3) 就 是 构建 杨辉 三 角 时 所 遵循 的 “各 项 为 它 的 上 一 行 两 肩 数 之 和 "的 理论 依据 。 
1. 构建 杨辉 三 角 


设计 程序 ,构造 并 输出 杨辉 三 角 的 前 mn 行 Cn 从 键盘 输入 ) 。 

(1) 递 推 设计 要 点 。 

考察 杨辉 三 角 的 构建 规律 : 三 角形 共 n 行 ,第 i 行 有 i 个 数 ,其 中 第 1 个 数 与 第 i 个 数 
都 是 1 ,其 余 各 项 为 它 的 两 肩 上 数 之 和 ( 即 上 一 行 中 相应 项 及 其 前 一 项 之 和 )。 

设置 二 维 y 数 组 ,数组 元 素 y(i,j) 表 示 杨 辉 三 角 的 第 i 行 第 j 个 元 素 。 

递 推 关系 : y(i,j)) = 二 yG 一 1,j 一 DD 十 y(i 一 1,j) Gi=3,…,n;j 二 2 ,i 一 1); 

初始 值 ; y(Gi,1) 一 y(Gi,iD 一 1 Gi=1,2,*…,n)。 

为 了 输出 左右 对 称 的 等 腰 数 字 三 角形 , 设置 二 重 循环 。 

设置 i 循环 控制 打印 1~n 行 ,第 i 行 开始 打印 40 一 3i 个 前 导 空格 ; 

设置 j 循环 控制 打印 第 i 行 的 i 个 元 素 y(i,j)) =1~i)。 

(2) 杨辉 三 角 递 推 程序 设计 。 


// 递 推 探索 杨辉 三 角 

# include < stdio. h> 

voidmain0 

{ intn,i,j,k,y[20] [20]; 
printf(” 请 输入 行 数 n: "); scanf("%d",&n) ; 
for(i=1;i<=n;i++) 


// 确 定 初始 条 件 
// 递 推 实施 
=y[i- 们 [=- 人 +y[i- 们 Dj]; 
for(i=1;i<=n;it+) // 控 制 输出 n 行 
{ for(k=1;k<=40-3x i;k++) 
printf(" "); // 控 制 输出 第 i 行 的 前 导 空 格 
for (j=1;j<=i;j++) 
printf ("% 6d", y[i] [j]); // 控 制 输出 第 i 行 的 i 个 元 素 


printf ("\n"); 
} 
} 
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(3) 程序 运行 示例 与 说 明 。 
输入 行 数 n 一 10, 输 出 10 行 的 杨辉 三 角 如 图 10-2 所 示 。 


1 9 36 84 126 126 84 36 9 1 
图 10-2 ”10 行 杨辉 三 角 


容易 验证 ,每 行 中 间 各 项 均 为 上 一 行 两 肩 项 之 和 。 


2. 杨辉 三 角 应 用 

(1) 计算 组 合 和 。 

例如 ,对 应 杨辉 三 角 的 第 10 行 , 即 可 写 出 

(1 十 x)? = 二 1 十 9x 十 36x? 十 84xs 十 126x4 十 126x5s 十 84xs 十 36x7 十 9xs 十 x9 (4) 
式 中 10 项 的 系数 即 对 应 杨辉 三 角 的 第 10 行 的 各 项 。 

式 (4) 中 令 x 一 1, 即 得 杨辉 三 角 第 10 行 各 项 之 和 为 2 一 512。 

一 般 地 ,由 杨辉 三 角 的 第 n 行 的 各 项 之 和 推 得 组 合 和 


CCnl) = 2° (5) 


(2) r 阶 等 差 数 列 的 和 。 | 
如 果 一 个 数列 的 r 阶 差 数 列 是 一 个 非 零 的 常数 列 , 那 么 这 个 数列 就 称 为 r 阶 等 差 
数列 。 
从 图 10-3 看 ,第 1 个 左 斜 行为 1 常数 列 ; 第 2 个 左 斜 行为 1 阶 等 差 数 列 ( 即 通常 的 等 
差 数 列 ) ;第 3 个 左 斜 行为 2 阶 等 差 数 列 ; 以 此 类 推 ,第 4 个 左 斜 行为 3 阶 等 差 数列 ,第 5 
常数 数列 


1 2 阶 等 差 数 列 
7 :A 
¥ 3 _ 生 等 关 数 列 
区 1 
6 15 20%” 15 6 1 
7 aa 3 21 7 
Cg 56 56 28 8 1 
g” 34 1267 126 84 36 9 1 


3 阶 等 差 数 列 
图 10-3 工 阶 等 差 数列 求 和 示意 图 


等 差 数列 
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个 左 斜 行为 4 阶 等 差 数 列 ,等 等 。 

事实 上 , 杨 盗 三 角 给 出 了 多 阶 等 差 数 列 的 和 。 

例如 ,等 差 数 列 1 十 2 十 3 十 4 十 5 十 6 的 和 为 图 中 6 的 右 下 格 21, 即 和 为 21; 

2 阶 等 差 数 列 1 十 3 十 6 十 10 十 15 十 21 十 28 的 和 为 图 中 28 的 右 下 格 84, 即 和 为 84; 

3 阶 等 差 数 列 1 十 4 十 10 十 20 十 35 的 和 为 图 中 35 的 右 下 格 70, 即 和 为 70; 以 此 类 推 。 

(3) 正方 网 格 的 不 同 走 法 。 

一 城市 街道 为 方 格 网 格 布局 ( 见 图 10-4)。 某 人 从 A 到 B( 只 能 由 北向 南 , 由 西向 东 
走 ), 有 多 少 种 不 同 的 走 法 ? 


A 


B 
10-4 从 A 到 B 的 不 同 走 法 数 示 意图 


从 杨辉 三 角 取 9 行 的 中 央 部 分 即 为 到 对 应 各 点 的 不 同 走 法 。 可 见 , 从 A 到 B 共 有 70 
种 不 同 走 法 。 
10.1.2 莱 布 尼 茨 三 角 

世界 上 著名 的 莱 布 尼 茨 三 角 如 图 10-5 所 示 , 有 些 资 料 又 称 之 为 莱 布 尼 芯 调和 三 角 
形 ,是 由 德国 数学 家 莱 布 尼 茨 (Leibniz) 给 出 的 一 个 分 数 三 角 数 阵 。 

这 个 三 角 数 阵 的 规律 就 是 每 行 第 一 个 数 的 分 母 就 1 
是 这 行 的 行 数 ; 下 一 行 的 第 1 和 第 2 个 数 相 加 就 等 于 


上 一 行 的 第 1 个 数 , 下 一 行 的 第 2 和 第 3 个 数 相 加 就 es | 
等 于 上 一 行 的 第 2 个 数 ,以 此 类 推 ( 图 形 可 成 等 腰 三 角 36 5 
分 布 ) 。 元 
1. 构建 莱 布 尼 欧 三 角 3 贡 汕 加 3 
设计 程序 ,构造 并 输出 莱 布 尼 蒋 三 角 的 前 n 行 从 二 十 十 十 十 上 
键盘 输入 ) 。 生 下 寺 ,和 ,下 
7 42 105 140 105 42 7 
设置 二 维 a 数 组 ,数组 元 素 a(i,j) 表 示 第 i 行 第 j 项 
设置 二 维 a 数组 ,数组 元 素 a(i,j) 表 示 第 i 行 第 j 项 国 10:5 7 和 羔 市 尼 卖 三 澳 
的 分 母 。 
(1) 递 推 设计 要 点 。 


莱 布 尼 茨 三 角 构 建 规律 : 每 一 行 的 首尾 两 数 分 母 均 为 行 数 ; 第 i 行 共 i 个 数 , 除 首尾 
两 数 外 ,其 余 各 项 均 与 本 行 的 前 一 项 与 上 一 行 的 前 一 项 相关 。 
为 了 确定 b(i,j) ,为 使 书写 清晰 , 记 本 行 的 前 一 项 为 y 二 b(i,j 一 1) ,上 一 行 的 前 一 项 为 


371 


| 起 二 妨 学 及 编程 扼 关 


x 二 b(i 一 1,j 一 1) ,本 项 为 z= 二 b(i,j)。 由 构建 规律 有 
和 一 交 


z E49 y xy 


z 一 一 5 
素 一 二 


因而 有 递 推 关系 


bGi,j) = xy/(y—x) (x=b(—1,j—1D,y= bo—1,),i= 3 ,nj = 2,°,i 


初始 值 : bi,1)==b(i,i) =i (i=1,2,…,n)。 
为 了 输出 左右 对 称 的 等 腰 数 字 三 角形 , 设置 二 重 循环 。 

设置 i 循环 控制 打印 1~n 行 ,每 一 行 开始 打印 40 一 3i 个 前 导 空 格 ; 
设置 j 循环 控制 打印 第 i 行 的 第 j 个 元 素 b(i,j)(Gj= 一 1 一 iD。 

(2) 构建 莱 布 尼 芯 三 角 程序 设计 。 


// 递 推 探 索 莱 布 尼 世 三角 

# include < stdio.h> 

void main0 

{ intn,i,j,k,x,y,b[20] [20]; 
printf(” 请 输入 行 数 n: "); scanf("%d",&n) ; 
for(i=1;iK=nii++) 


{b[i] [1]=b[i] [i]=1;} // 确 定 初始 条 件 
for(i=3;iK=nii++) 
for (j=2;j<= (i+1)/2;j++) // 递 推 实施 


{ x=b[i-1][j-1];y=b[i][j-1]; 
b[i] [1+ i- j]=b[i] [j]=x* y/(y- x); 

i 

for(i=1;i<=n;i++) // 控 制 输出 n 行 

{ for(k=1;k<=40-3x i;k++) printf(" "); // 控 制 输出 第 i 行 的 前 导 空 格 
for (j=1;j<=i;j++) 

printf(" 1/%d ",b[i] [j]): // 控 制 输出 第 i 行 的 i 个 元 素 

printf ("\n"); 


} 

(3) 程序 运行 示例 与 说 明 。 

输入 n= 二 8, 输 出 8 行 的 莱 布 尼 茨 三 角 如 图 10-6 所 示 。 
Ul 


1/3 1/6 1/3 
1/4 1/12 1/12 1/4 
1/5 1/20 1/30 1/20 
16 130 1l60 160 130 16 
17 1/42 1/105 1/140 1/105 1/42 17 
1/56 1/168 1/280 1/280 1/168 1/56 1/8 


图 10-6 ”输出 8 行 莱 布 尼 蒋 三角 


1/8 


1) 


程序 输出 分 数 只 能 以 a/b 的 形式 出 现 , 这 样 为 控制 分 数 式 的 宽度 带 来 困难 ,可 能 使 输 
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出 的 等 腰 三 角形 不 一 定 规范 。 
容易 验证 ,每 行 各 项 均 为 下 一 行 两 脚 项 之 和 。 例 如 ,1/3 王 1/4 十 1/12,1/12 王 1/20+ 
1730; 等 等 。 


2. 菜 布 尼 茨 三 角 与 杨辉 三 角 的 关联 
归纳 莱 布 尼 茨 三 角 各 项 分 母 构 成 规律 ,可 推 得 各 项 分 母 的 通 项 公式 。 
【命题 1】 设 莱 布 尼 茨 三 角 第 n 行 第 kk 列 项 的 分 母 为 b(n,k)(k 二 1,2,…,n), 则 有 
b(n,k) = k* Cn,k) (6) 
【证 明 】 当 k=1 与 k 二 n 时 ,b(n,k) 二 n, 即 第 n 行 的 首 项 与 尾 项 的 分 母 均 为 n。 
要 证 式 (6) ,只 要 证 式 (6) 能 满足 莱 布 尼 茨 三 角 的 递 推 规律 即 可 , 即 要 证 
1 


Bl pk bay Wo 
只 要 证 
L - lL (8) 
= Om- =O0mk= Fe 
以 组 合 公式 代入 即 
一 DID Din—k+D! ka 一 bl CB 
人 二 1)。(n 二 171 一 1 可 kenl! 
式 (9) 左 边 化 简 有 
A (k Ite (k 2 WI tm ky] 
_ kDIn— 1 
nl 
显然 式 (9) 成 立 。 因 而 式 (6) 得 证 。 
例如 , 取 n=8,k 二 5, 由 通 项 公式 (6) 得 
b(8,5) = 5 XxX C(8,5) = 280 (10) 
【命题 2】 设 莱 布 尼 茨 三 角 项 分 母 为 bn,k) ,杨辉 三 角 项 为 yn,k) , 则 有 
bn,k) 一 k .yn 十 1,k 十 1) Ca 


关联 式 (11) 表 述 为 : 莱 布 尼 茨 三 角 第 n 行 第 k 项 的 分 母 b(n,k) 等 于 杨辉 三 角 第 n 十 
1 行 第 k 十 1 项 y(n 十 1,k 十 1) 的 k 倍 。 

【证 明 】 由 杨辉 三 角 的 通 项 式 (2) ,及 莱 布 尼 茨 三 角 项 分 母 通 项 式 (6), 即 得 这 两 个 三 
角 数 阵 的 关联 式 (11) 成 立 。 

根据 关联 式 (11) ,容易 由 菜 布 尼 茨 三 角 推 出 杨辉 三 角 ,也 容易 由 杨辉 三 角 推 出 莱 布 尼 
茨 三 角 。 

【验证 〗】 试 从 3 个 方面 验证 关联 式 。 

(1) 单项 验证 。 

取 n 一 9,k 一 4, 莱 布 尼 茨 三 角 的 第 9 行 第 4 项 的 分 母 为 504; 杨 辉 三 角 的 第 10 行 第 5 
项 为 126,126X4 一 504, 式 (9) 成 立 。 

(2) 单行 验证 。 

取 n==8, 杨 辉 三 角 的 第 (n 十 1)==9 行 的 第 2 项 开始 到 第 9 项 为 
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8 28 56 70 5 28 8 1 
上 行 实施 第 k 项 乘 k, 即 第 1 项 乘 1, 第 2 项 乘 2，……… ,第 8 项 乘 8 ,得 到 
8 56 168 280 280 168 56 8 
这 就 是 莱 布 尼 茨 三 角 的 第 8 行 各 项 的 分 母 。 
(3) 数 阵 整体 验证 。 


为 便于 比较 ,省 略 构建 莱 布 尼 芯 三 角 程序 输出 格式 中 的 1/, 即 省 略 分 子 , 只 输出 各 项 


的 分 母 , 共 10 行 的 莱 布 尼 芯 三 角 数 阵 各 项 的 分 母 如 图 10-7 所 示 。 


5 7 
8 56 168 280 280 168 56 8 
3 72 252 504 630 504 252 72 9 
10 90 360 840 1260 1260 840 360 90 10 


图 10-7 10 行 莱 布 尼 茨 三 角 分 母 


同时 ,在 输出 语句 中 把 分 母 项 b[i 订 Dj] 除 以 列 号 j( 即 每 行 第 2 项 分 母 除 以 2 ,每 行 第 3 


项 分 母 除 以 3 ,等 等 ) , 即 变 为 b[ 让 0j]/j。 
运行 程序 ,输入 n=10, 得 10 行 输出 如 图 10-8 所 示 。 


8 28 56 
9 36 84 126 126 
10 45 120 210 252 210 


10-8 各 项 除 左 斜 线 序号 


84 1 


36 9 
120 45 10 1 


比较 图 10-8 与 图 10-2, 容易 发 现 把 杨辉 三 角 图 10-2 去 掉 每 行 第 一 项 1 后 , 即 与 


图 10-8 完全 相同 。 
这 样 ,公式 (11) 完 整地 揭示 了 这 两 个 中 外 著名 三 角 数 阵 的 关联 。 


同时 ,图 10-8 清晰 地 显示 出 r 阶 等 差 数 列 及 其 和 的 构成 ,容易 求 取 r 阶 等 差 数 列 的 


和 ,这 也 是 莱 布 尼 茨 三 角 的 应 用 之 一 。 


10.2 棋盘 上 的 智慧 


古今 中 外 各 式 各 样 的 棋盘 都 是 二 维 数 阵 的 载体 与 平台 ,这 一 平台 上 演义 的 种 种 风云 


故事 都 是 数 阵 的 精彩 与 辉煌 。 


使 军 王 失 算 涉及 等 比 数列 求 和 ,计算 比较 简单 ,其 结果 却 往往 出 乎 意料 。 


高 斯 皇后 问题 是 从 国际 象棋 棋盘 上 抽象 出 来 的 一 种 有 趣 的 特殊 排列 ， 


属于 组 合 设计 


的 范畴 。 而 皇后 全 控 棋盘 则 是 高 斯 皇后 问题 的 一 个 推广 ,是 另 一 种 要 求 更 高 的 排列 。 


本 节 所 论 涉及 的 棋盘 案例 都 有 很 高 的 知名 度 ,充满 智慧 ,精彩 横江 。 


374 


第 10 齐 笋 险 天 地 庆 观 | 


10.2.1 含 罕 王 失 算 


相传 现在 流行 的 国际 象棋 是 古 印 度 舍 罕 王 (Shirham) 的 宰相 达 依 尔 (Dahir) 发 明 的 。 

舍 罕 王 十 分 喜爱 象棋 ,决定 让 宰相 自己 要 求 得 到 什么 赏赐 。 

这 位 聪明 的 宰相 指 着 8X8 共 64 格 的 象棋 盘 说 : 陛下 ,请 您 赏 给 我 一 些 麦 子 吧 ,就 在 
棋盘 的 第 1 个 格 中 放 1 粒 ,第 2 格 放 2 粒 , 第 3 格 放 4 粒 ,以 后 每 一 格 都 比 前 一 格 增 加 一 
倍 , 依 此 放 完 棋盘 上 64 格 , 我 就 感恩 不 尽 了 。 

会 罕 王 让 人 打 来 一 袋 麦 子 , 他 要 兑现 他 的 许诺 。 

请 问 ,国王 能 兑现 他 的 许诺 吗 ? 摆 放 完 棋盘 上 64 格 共 要 多 少 麦子 赏赐 他 的 宰相 ? 这 
些小 麦 合 多 少 吨 (1kg 小 麦 约 2. 4e4 粒 )? 这 些小 麦 相 当 于 世界 粮食 年 总 产量 (以 前 些 年 
世界 年 度数 据 为 2. 5e9t 计 ) 的 多 少 倍 ? 


1. 设计 求解 要 点 

这 是 一 个 典型 的 等 比 数列 求 和 问题 。 

第 1 格 1 粒 ,第 2 格 2 粒 ,第 3 格 4=2 粒 ,…… ,第 i 格 为 2 :和 粒 。 

为 一 般 计 , 设 共有 n 个 格 ,总 粒 数 为 

s(n) 一 1 十 2 十 2 十 … 十 2 一 一 2" 一 1 

设置 求 和 i(2 一 D) 循 环 , 在 循环 中 通过 t=t* 2 计算 第 i 格 的 麦 粒 数 ,体现 每 一 格 为 其 
前 一 格 的 2 倍 , 再 通过 s=s 十 { 把 每 一 格 的 麦 粒 数 累 加 到 和 变量 s, 即 可 实现 该 等 比 数列 
各 项 的 求 和 。 

同时 ,在 循环 累加 中 , 当 所 放 质 量 超 1kg 与 超 1t 时 分 别 给 出 提示 。 

求 出 的 总 粒 数 为 s, 通 过 v 一 s/2. 4e7 ,把 s 粒 小 麦 的 质量 折合 为 v 吨 。 

p= /2. 5e9 

所 得 p 即 为 相当 于 全 世界 年 粮食 总 产量 的 倍数 。 


2. 程序 设计 


// 舍 罕 王 失 算 , 麦 粒 放 至 第 n 格 
# include < stdio.h> 
# include < math. h> 
voidmain0 
{ double t,s,v,p; int i,k,n; 
printf(” 请 输入 格 数 n: ") ; scanf ("%d",&n); 


t=1;s=1;k=1; 
for (i=2;i<=n;it++) 
{ t=t*2;s=stt; //t 为 第 1 格 的 麦 粒 数 
if(s>2.4e4 && k==1) // 第 1 次 小 麦 重 超 千 克 提 示 
printf(” 提示 %d: 放 至 第 %d 格 , 重 超 1kg。\n",k++,i); 
if(s>2.4e7 8&& k==2) // 第 2 次 小 麦 重 超 吨 提 示 


printf(” 提示 %d: 放 至 第 %d 格 , 重 超 1t。\n",k++, i); 
} 
v= s/2. 4e7; p= v/2. 5e9; // 世 界 粮 食 年 总 产量 约 为 2. 5e9t 
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if<=40) printf(” 总 麦 粒 数 为 :%.0f\n", s); 

else printf(” 总 麦 粒 数 约 为 :%.3e\n", s); 

printf(” 小 麦 质量 约 为 :%.0ft\n",v); 

printf(” 约 相 当 于 世界 年 粮食 总 产量 的 %.0f 售 \n",p); 
} 


3. 程序 运行 结果 与 说 明 


请 输入 格 数 n: 64 

提示 1: 放 至 第 15 格 , 重 超 tkg。 

提示 2: 放 至 第 25 格 , 重 超 1t。 

总 麦 粒 数 约 为 :1.845e+ 019 

小 麦 质量 约 为 :768614336405t 

约 相当 于 世界 年 粮食 总 产量 的 307 倍 


这 是 一 个 庞大 的 数值 ,相当 于 世界 粮食 年 产量 的 300 多 倍 。 看 来 舍 罕 王 失 算 了 ,他 无 
法 兑现 他 的 诺言 。 

程序 设置 随 运行 数据 给 出 两 个 提示 是 新 颖 的 。 由 和 运行 程序 的 提示 可 知 : 放 到 第 15 
格 时 小 麦 总 重 超过 1kg, 放 到 第 25 格 时 小 麦 总 重 超 过 1t。 

如 果 把 国际 象棋 棋盘 改变 为 围棋 棋盘 ,围棋 棋盘 纵横 各 19 线 分 割 成 18X18 二 324 个 
方 格 ,如 果 同 样 按 1,2,4,8,… 等 比 数列 递增 放置 ,其 数量 有 多 大 ,其 质量 相当 于 地 球 的 多 
少 倍 ? 请 你 不 妨 具体 让 程序 来 算 算 。 


10.2.2 高 斯 皇后 问题 


在 国际 象棋 中 ,皇后 可 以 吃 掉 同行 、 同 列 或 同一 与 棋盘 边框 成 45 斜 线 方 格 上 的 任何 
棋子 ,其 攻击 力 是 最 强 的 。 

数学 大 师 高 斯 于 1850 年 借助 国际 象棋 抽象 出 著名 的 八 皇 后 问题 : 在 国际 象棋 的 8X 
8 方 格 棋盘 上 如 何 放置 8 个 皇后 ,使 得 这 8 个 皇后 不 相互 攻击 , 即 没有 任意 两 个 皇后 处 在 
同一 横行 ,同一 纵 列 , 或 同一 与 棋盘 边框 成 45 的 斜 线 方 格 上 。 

高 斯 当时 认为 八 皇 后 问题 有 76 个 解 ,至 1854 年 在 柏林 的 象棋 杂志 上 不 同 的 作者 共 
发 表 了 40 个 不 同 解 。 

高 斯 八 皇 后 问题 到 底 有 多 少 个 不 同 的 解 ? 本 节 在 探求 高 斯 八 后 问题 的 基础 上 ,拓展 
至 一 般 n 皇后 问题 。 

图 10-9 就 是 高 斯 八 皇 后 问题 的 一 个 解 。 我 们 看 到 ， 


图 中 的 8 个 皇后 互 不 同行 ,不 同 列 ,也 没有 同 处 一 斜 线 出 

上 , 即 任意 两 个 皇后 都 不 相互 攻击 。 一 -一 
这 个 解 如 何 简单 地 表示 ? | 
试用 一 个 8 位 整数 表示 高 斯 八 皇后 问题 的 一 个 解 。 ”党 可 

8 位 数 中 的 第 k 个 数字 为 j, 表 示 棋 盘 上 的 第 上 行 第 j 列 re 

方 格 放置 一 个 皇后 。 因 而 图 10-8 所 示 的 解 可 表示 为 整 着 | 

数 27581463。 图 10-9 高 斯 八 皇后 问题 的 一 个 解 
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其 次 ,这 一 解 是 如 何 求 得 的 ? 高 斯 八 皇 后 问题 共有 和 多少 个 不 同 的 解 ? 
【编程 拓展 】 试探 求 n 皇后 问题 。 


放置 方式 ? 试 分 别 探求 并 输出 所 有 解 。 


1. 递归 设计 要 点 

(1) 数组 设置 与 取 值 。 

设置 数组 a(n) ,数组 元 素 a(iD) 表 示 第 i 行 的 皇后 位 于 第 a(Gi) 列 。 

递归 函数 put(k) 的 设计 是 针对 n 皇后 问题 解 的 n 个 数 中 的 第 k 个 数 a(k) 展 开 的 。 

设 a(k) 取 值 为 i(1,2,…,n),a(k) 逐 一 与 已 取 值 的 a(j)G==1,2,…,k 一 1) 比较。 

@ 若 满足 ak) 一 aG) or |a(k) 一 a(j) | 二 k 一 j, 即 第 k 行 的 皇后 与 第 j 行 的 皇后 同 在 
一 列 , 或 同 在 一 对 角 和 斜 线 上 ,显然 不 符合 题 意 要 求 , 记 u=1, 即 所 取 a(k) 不 妥 , 表 示 该 行 
该 列 已 放 不 下 皇后 ,于 是 a(k) 继 续 下 一 个 i 取 值 。 

@ 否则 ,符合 题 意 要 求 ,保持 u=0, 即 所 取 a(k) 妥 当 。 此 时 检测 所 完成 的 行 数 : 若 
k 一 mn 成 立 ,完成 了 n 行 , 按 格式 输出 一 个 数字 解 , 并 用 s 统计 解 的 个 数 ; 若 k=n 不 成 立 ， 
即 未 完成 n 行 ,继续 调用 put(k 十 1) ,探讨 下 一 行 取 值 。 

(2) 实施 回溯 。 

若 a(k) 取 值 到 n 仍 不 妥 , 则 回溯 到 调用 put(k) 的 put(k 一 1) 环 境 下 ,继续 a(k 一 1) 的 
下 一 个 取 值 。 

车 a(1) 取 值 到 n 仍 不 妥 , 则 返回 到 调用 put(1) 的 主 程序 ,输出 解 的 个 数 s 或 “无 解 ”， 
程序 结束 。 

2. 递归 程序 设计 

// 拓 展 n 皇后 问题 求解 


# include < stdio. h> 
int n, a[30]; long s=0; 


void main0 
{ int put(int k); 
printf(” 棋盘 nXn 方 格 ,请 确定 n: ") ;scanf("%d",&n) ; 
put (1) ; // 从 第 1 行 开始 放 皇 后 


if(s>0) printf("\n%d 皇 后 问题 共有 以 上 % 1d 个 解 。\n",n,s); 
else printf(" %d 皇 后 问题 无 解 。\n",n); 
} 
/人 n 皇 后 问题 递归 函数 
# include < math. h> 
int put (int k) 
{ int i,j,u; 
if(k<=n) 
{ for(i=1;i<=n;i++) // 探 索 第 k 行 从 第 1 格 开始 放 皇 后 
{ afk]=i; 
for (u=0, j=1;j<=k-1;j++) 
if (a[k]==a[j] || abs(afk]-a[j]))==k-)) u=1; 
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if(u==0) // 若 第 k 行 第 i 格 可 放 , 则 检测 是 否 满 n 行 
{ if(k==n) // 车 已 放 满 到 n 行 时 , 则 打印 出 一 个 解 
{ st+; printf(" "); 
for (j=1;j<=n;j++) printf("%d",a[j]); 
if (s% 5==0) printf ("\n"); 
} 
else put(k+1); // 若 没 放 满 n 行 , 则 放下 一 行 put kr 1) 


} 


return s; 


} 
3. 程序 运行 示例 与 说 明 


棋盘 nXn 方 格 ,请 确定 n: 8 
15863724 16837425 17468253 17582463 24683175 
25713864 25741863 26174835 26831475 27368514 


74258136 74286135 75316824 82417536 82531746 
83162574 84136275 
8 皇后 问题 共有 以 上 92 个 解 。 


六 站 绝 计 在 适用 和 和 图 上 可 以 超过 9。 
当 n>>9 时 , 解 的 数量 急剧 增长 (例如 ,14 皇后 问题 有 365596 个 解 ;15 皇后 问题 有 
2279184 个 解 ) ,其 搜索 求解 自然 也 变 得 慢 , 且 须 在 输出 各 个 解 时 注意 数字 之 间 的 分 隔 。 


10.2.3 皇后 全 控 棋盘 


后 全 控 棋 盘 是 棋盘 上 另 一 个 智能 设计 问题 ,实际 上 是 高 斯 皇后 问题 的 一 个 推广 。 

在 nxn 广 义 棋盘 上 放置 n 个 皇后 当然 可 以 全 控 棋盘 的 每 一 格 ,能 否 用 小 于 n 的 m 
个 皇后 来 全 控 nXn 棋盘 呢 ? 能 全 控 nXn 棋盘 的 m 个 皇后 ,m 至 少 为 多 大 ? 这 m 个 皇后 
为 实现 全 控 棋 盘 应 如 何 就 位 安放 ? 

本 节 具 体 探讨 皇后 全 控 棋 盘问 题 。 

1. 问题 提出 

在 8X8 的 国际 象棋 棋盘 上 ,如 何 放置 5 个 皇后 ,可 以 控制 
棋盘 的 每 一 个 方 格 而 皇后 之 间 不 能 相互 攻击 呢 ? 加 

图 10-10 是 5 皇后 控制 8X8 棋盘 的 一 个 解 。 | 

我 们 看 到 ,图 中 的 5 个 皇后 互 不 攻击 , 且 能 控制 棋盘 所 有 
64 格 中 的 每 一 个 格 ,是 符合 题 意 要 求 的 解 。 伴 

那么 ,5 皇后 控制 8X8 棋盘 共有 多 少 个 解 ? 4 皇后 能 全 控 
8X8 棋盘 吗 ? 图 10-10 5 皇后 控制 8X8 

一 般 地 ,如 何 求解 m 个 皇后 全 控 nxXn 广义 棋盘 ? 棋盘 的 一 个 解 


时 
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2. 控制 棋盘 解 的 表示 

首先 ,如 何 简单 地 表示 图 10-10 所 示 皇 后 控制 棋盘 解 ? 

试用 一 个 8 位 数字 串 表 示 5 皇后 控制 8X8 棋盘 的 一 个 解 : 

车 8 位 数字 串 的 第 k 个 数字 为 j0, 表 示 棋 盘 上 的 第 k 行 的 第 j 格 放置 一 个 皇后 。 

车 8 位 数字 串 的 第 k 个 数字 为 0, 表 示 棋 盘 上 的 第 k 行 没 放 皇 后 。 

显然 ,图 10-10 所 示 的 解 可 表示 为 00358016 。 

因而 m 个 皇后 全 控 nXn 棋盘 的 解 用 n 个 数字 组 成 的 数字 串 表 示 , 其 中 有 n 一 m 
个 零 


oo 


3. 回溯 设计 要 点 

皇后 控制 棋盘 问题 比 n 皇后 问题 求解 难度 更 大 些 。 

(1) 设置 数组 与 实施 回溯 。 

采用 回溯 法 探求 ,设置 数组 a(n) ,数组 元 素 a(i) 表 示 第 i 行 的 皇后 位 于 第 a(i) 列 , 当 
a(i) 一 0 时 表示 该 行 没有 皇后 。 

求 m 个 皇后 控制 nxXn 棋盘 的 一 个 解 , 即 寻 求 a 数组 的 一 组 取 值 ,该 组 取 值 中 n 一 m 
个 元 素 值 为 0,m 个 元 素 的 值 大 于 零 且 互 不 相同 ( 即 没 有 任 两 个 皇后 在 同一 列 ), 第 i 个 元 
素 与 第 k 个 元 素 相差 不 为 abs(i 一 k)( 即 任 两 个 皇后 不 在 同一 45° 的 斜 线 上 ), 且 这 m 个 元 
素 可 控制 整个 棋盘 。 

程序 的 回溯 进程 同 n 皇后 问题 设计 ,所 不 同 的 是 所 有 元 素 从 0 开始 取 值 , 且 n 个 元 素 
中 要 确保 n 一 m 个 取 0。 

(2) 皇后 控制 范围 。 

为 了 检验 是 否 控 制 整个 棋盘 ,设置 二 维 数组 b(n,n) 表 示 棋 盘 的 每 一 格 , 数 组 的 每 一 
个 元 素 置 0。 对 一 个 皇后 放置 a(c) ,其 控制 范围 内 的 每 一 个 格 置 1。 

所 有 m 个 皇后 控制 完成 后 ,检验 b 数组 是 否 全 为 1: 只 要 有 一 个 不 为 1, 即 不 是 全 控 ; 
若 所 有 元 素 都 为 1, 则 棋盘 全 控 , 打 印 输出 数字 解 ,并 用 变量 s 统计 解 的 个 数 。 


4 回溯 程序 设计 


// 探 讨 m 皇 后 全 控 nxXn 棋盘 问题 
# include < math. h> 
# include < stdio. h> 
voidmain0 
{ int i,g,h,k,c,d,e,f, j,m,n,t,s,x,a[20],b[20] [20]; 
printf(” m 个 皇后 全 控 nXn 棋 盘 , 请 输入 mn: "); scanf("%d,%d”, &m, &n); 


i=1;s=0;a[1]=0; 
while(1) 
{ for(g=1,k=i-1;k>=1;k--) 
{ x=a[i]-a[k]; 
if(alk]!=0 8&8 x==0 || a[i] * a[k]>0 &8 fabs (x)== i-k) g=0; 
} // 非 零 元 素 不 能 相同 ,不 同 对 角 线 


if(i==n 8&& g==1) 
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{ for(h=0,j=1;j<=n;j++) 
if (a[j]==0) ht+; 
if(h==n-m) 


{ for(c=1icC=nicr+) 

for (j=1;j<=n;j++) 
b[c] [j]=0; 

for (f=1;f<=n;f++) 

{ if(a[f]!=0) 
for (c=1;c<=nicr+) 
for (j=1;j<=n;j++) 
{ ifC==f) b[c][j]=1; 

if (j==a[f]) b[c][j]=1; 


// 判 别 是 否 有 n-m 个 零 


// 控 制 同 行 
// 控 制 同 列 


if (fabs(c-f)==fabs(j-a[f])) b[c][j]=1; 


} 

for (t=0,c=1;cC=nicr+) 

for (j=1;j<=n;j++) 
ifb[c] [j]==0) t=1; 

if (t==0) 

{ for(j=1;j<=n;j++) 

printf ("% d", a[j]); 

printf(” "); 
if(++s%5==0) printf("\n"); 


} 
if(i<n 8 g==1) 

{i++ ;a[i]=0;continue;} 
while(a[i]==n 8&& i>1) i--; 
if (a[i]==n 8&& i==1) break; 
else a[i]=a[i]+1; 

} 
if(s>0) 


// 控 制 四 方向 对 角 线 


// 棋 盘 中 有 一 格 不 能 控制 ,t=1 
// 棋 盘 所 有 格 都 能 控制 ,输出 数字 解 


// 控 制 每 一 行 输出 5 个 解 


// 向 前 回溯 


printf("\n %d 个 皇后 全 控 %dx%d 棋 盘 , 共 以 上 % 1d 个 解 。\n",m,n,n, s); 


else printf(" 
} 


5. 程序 运行 示例 与 说 明 


m 个 皇后 全 控 nXn 棋 盘 , 请 输入 m,n: 5,8 
00035241 00042531 00046857 00047586 00052413 


86001047 86001407 86010730 86020730 86107003 
86170002 86200730 86475000 
5 个 皇后 全 控 8X8 棋 盘 , 共 以 上 728 个 解 。 
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运行 程序 输入 m 一 4,n 一 8, 没 有 解 输出 ,说 明 4 皇后 不 可 能 全 控 8X8 棋盘 ,可 见 全 控 
8X8 棋盘 至 少 要 5 个 皇后 。 

输入 m 一 6,n 一 8, 输 出 6 个 皇后 全 控 8X8 棋盘 共 6912 个 解 。 

6. 列表 讨论 

输入 n 一 8,m 一 8, 用 8 皇后 控制 8X8 棋盘 (显然 是 全 控 ) ,实际 上 即 高 斯 8 皇后 问题 。 
可 见 ,m 个 皇后 控制 nXn 棋盘 实际 上 是 n 皇后 问题 的 推广 。 

综合 m 个 皇后 控制 nxXn 棋盘 (3 二 m 和 n 秋 10) 的 解 统计 如 表 10-1 所 示 。 


表 10-1 m 皇 后 控制 nXn 棋 盘 (3 一 mn<<10) 的 解 统计 


皇后 数 m 4X4 5X5 6X6 7X7 8X8 9X9 10X10 
3 16 16 0 0 
4 2 32 120 8 0 0 0 
5 10 224 1262 728 92 8 
6 4 552 6912 7744 844 
7 40 2456 38 732 83 544 
8 92 10 680 241 980 
9 352 49 592 
10 724 


从 表 各 列 上 端的 非 零 项 可 知 , 全 控 8X8,9X9 或 10X10 棋盘 至 少 要 5 个 皇后 ,全 控 
6X6 或 7X7 棋盘 至 少 要 4 个 皇后 。 

同时 , 表 10-1 中 8X8 列 的 下 端 即 说 明 高 斯 8 皇后 问题 有 92 个 解 。 

从 表 中 其 他 各 列 的 下 端 ( 数 据 粗 体 ) 知 6 皇后 问题 有 4 个 解 ,7 皇后 问题 有 40 个 解 ,10 
皇后 问题 有 724 个 解 ,等 等 。 

当 输 入 m=n 时 , 即 输 出 n 皇后 问题 的 解 。 这 就 是 说 ,以 上 求解 的 m 个 皇后 控制 nX 

n 棋盘 问题 引申 与 推广 了 mn 皇后 问题 。 

最 后 指出 , 若 n 宇 10, 为 避免 解 的 混淆 ,输出 解 时 须 在 两 个 a 数组 元 素 之 间 加 空格 。 


10.3 马 步 路 径 与 哈密 顿 圈 


马 步 遍 历 即 骑士 巡游 问题 ,从 18 世纪 初 开始 ,就 一 直 吸引 着 大 批 的 数学 家 和 数学 爱 
好 者 ,并 且 成 为 数学 史上 一 个 经 典 名 题 。 

马 步 遍 历 是 一 个 有 深度 也 有 难度 的 图 论 趣 题 ,与 马 步 遍 历 相关 的 最 长 马 步 路 径 则 是 
马 步 遍 历 的 一 个 拓展 ,或 者 说 最 长 马 步 路 径 包 含 了 作为 特例 的 马 步 遍历 。 而 马 步 型 哈密 
顿 圈 则 是 马 步 遍 历 首尾 相 接 的 一 个 特例 与 亮点 。 

10.3.1 最 长 马 步 路 径 


在 给 定 矩 阵 棋盘 中 , 马 从 棋盘 的 某 个 起 点 格 出 发 , 按 “ 马 走 日 ”的 行走 规则 ( 即 横向 
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相差 1 格 纵向 相差 2 格 ,或 横向 相差 2 格 纵向 相差 1 格 ) 经 过 棋盘 中 的 每 一 个 方 格 恰 一 
次 ,该 问题 称 为 马 步 人 遍历 问题 ,经 过 棋盘 的 每 一 个 方 格 恰 一 次 的 线路 称 为 马 步 遍 历 
路 径 。 

例如 ,下 表 所 示 即 为 4 行 5 列 棋盘 中 , 马 从 棋盘 左上 角 (1,1) 出 发 至 棋盘 右 下 角 点 (4， 
5) 止 步 的 马 步 遍 历 。 


对 于 指定 的 矩阵 棋盘 与 起 始 位 置 ,可 能 不 存在 马 步 遍历 ,但 存在 各 种 长 度 ( 步 数 ) 不 一 
的 马 步 路 径 ,其 中 步 数 最 大 的 马 步 路 径 称 为 最 长 马 步 路 径 。 

马 步 行走 作为 一 个 游戏 也 很 有 吸引 力 ,给 出 一 个 具体 的 棋盘 与 起 始 位 置 , 让 参与 游戏 
者 各 自在 棋盘 上 走马 , 谁 走 得 最 远 , 即 走出 的 马 步 路 径 最 长 , 谁 就 优胜 。 

【游戏 】 试 在 给 定 的 3 行 4 列 方 格 棋盘 上 , 马 从 棋盘 左上 角 (1,1) 出 发 , 尽 可 能 走出 
较 长 的 马 步 路 径 。 

【示例 】 以 下 列举 3 个 游戏 者 走马 路 径 。 

参与 游戏 的 走马 策略 不 同 , 走 出 的 马 步 路 径 的 长 度 也 就 存在 差异 。 

如 果 走 马 能 占领 整个 棋盘 , 则 就 是 马 步 遍历 。 即 使 不 能 占领 整个 棋盘 ,也 应 尽 可 能 走 
出 步 数 最 多 的 马 步 路 径 。 


3 | 于 | 理 | 有 一 医 到 区 -一 区 . | 
0| 加 | 受 | 和 | 8|111|2|5 
3 5 | 8 3|10|5|8 3|8|3| 取 


上 表 记 录 了 3 个 游戏 者 的 不 同 马 步 行走 : 前 者 走 到 10; 中 间 者 走 到 11; 后 者 走 到 12 。 
显然 ,后 者 长 度 最 长 ,棋盘 各 格 全 走 遍 ,为 优胜 者 。 

后 者 走出 12 步 即 为 马 步 遍历 。 其 走马 策略 为 尽 可 能 走出 3 步 一 组 的 嵌 套 与 对 称 : 
1,2,3 与 4,5,6 这 两 个 3 步 组 能 套 ;7,8,9 与 10,11,12 这 两 个 3 步 组 嵌 套 ;1,2,3 与 4,5， 
6 这 两 个 3 步 组 和 7,8,9 与 10,11,12 这 两 个 3 步 组 对 称 。 

顺便 指出 ,3X4 格 是 最 小 的 马 步 遍 历 。 

【问题 】 试探 求 3 行 12 列 棋盘 上 从 左上 角 (1,1) 出 发 的 马 步 遍历 。 

【思考 】 从 以 上 3X4 马 步 遍历 横向 类 推 完成 。 

从 以 上 后 者 走出 的 3X4 马 步 遍历 看 到 : 最 后 一 步 12 处 于 (3,4) 格 ,而 (3,4) 与 (1,5) 
成 为 马 步 相连 ,因而 12 的 下 一 步 13 可 走 到 (1,5) ,成 为 第 2 个 3X4 马 步 遍 历 的 起 步 。 以 
此 类 推 到 第 3 个 3X4 马 步 遍历 。 

这 样 ,形成 3X12 马 步 遍 历 如 下 所 示 。 
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1|4|7|10|13|16|19|22|25|28|31|34 


8|111|2|5|20|23|14|17|32|35|26|29 


3|16|9|12|15|18|21|24|27|30|33|36 


进一步 ,可 把 3 行 4k 列 棋盘 分 成 k 个 3X4 子 盘 , 每 两 个 相连 子 盘 的 首尾 相连 ,于 是 
形成 3X4k 马 步 遍历 。 这 里 的 k 为 任意 正 整数 ,意味 着 马 步 遍历 可 以 任意 延伸 。 

【拓展 】 探求 在 指定 广义 n 行 Xm 列 棋盘 上 ,指定 入 口 为 (u,v) 的 所 有 最 长 马 步 
路 径 。 

从 键盘 输入 指定 棋盘 参数 (n,m) 与 入 口 参 数 (u,v) ,探求 并 输出 所 有 不 同 的 最 长 马 步 
路 径 。 

显然 ,对 于 nXm 棋盘 ,其 最 长 马 步 路 径 的 长 度 max 和 mn。 

若 其 最 长 马 步 路 径 的 长 度 max 二 mn, 则 该 最 长 马 步 路 径 即 为 该 棋盘 起 始 位 置 为 (u， 
v) 的 马 步 遍历 。 

因此 ,可 以 说 最 长 马 步 路 径 包含 了 马 步 遍历 在 内 ,或 者 说 马 步 遍历 是 最 长 马 步 路 径 的 
长 度 max 二 mn 的 特例 。 

下 面 应 用 回溯 设计 探求 最 长 马 步 路 径 。 

1. 回溯 探求 最 长 马 步 路 径 要 点 

(1) 数据 结构 。 

设置 数组 x(i) ,y(i) 记 录 马 步行 走 中 第 i 步 的 行列 位 置 ; 设 置 二 维 数 组 dCu,v) 记 录 棋 
盘 中 位 置 (u,v) 即 第 u 行 第 v 列 所 在 格 的 整数 值 ,该 整数 值 即 为 马 步 行走 路 径 上 的 步 数 ; 
同时 设置 数组 a(k) ,b(k) 配 对 马 步 可 跳 的 8 个 位 置 ;设置 数组 t(i) 记 录 第 i 步 到 第 i 十 1 步 
原 已 选取 的 方向 数 , 便 于 回溯 。 

例如 ,上 表 所 示 遍 历 , 第 8 步 走 在 (3,2), 则 x(8)==3,y(8) 二 2;d(3,2) 二 8。 

若 d(i,j) 二 0, 表 示 (i,j) 位 置 为 空 ,可 供 走 位 。 

(2) 马 的 走 位 。 
注意 到 马 走 “日 ” 形 , 对 于 有 些 马 位 , 马 最 多 可 走 8 个 方向 。 图 10-11 所 示 为 当 马 位 于 
(Cx,y) 时 可 选 的 8 个 方向 。 


-cl = 


二 = 机 


(x%,y) 


+1,-2 4 过 


地 = 42,+] 


图 10-11 位 于 (x,y) 的 马 可 走 的 8 个 位 置 
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设置 控制 马 步 规则 的 数组 a(k)、b(k) ,车 马 当 前 位 置 为 (x,y), 马 步 可 跳 的 8 个 位 置 
分 别 为 (x 十 a(k),y 十 b(k)) ,其 中 

={ 1 

BD={ 3 和 1 

在 回溯 过 程 中 , 需 知 第 i 步 到 第 i 十 1 步 原 已 选取 到 了 哪 一 个 方向 ,设置 t(i) 记 录 第 i 
步 到 第 i 十 1 步 原 已 选取 的 方向 数 ,回溯 时 只 要 从 t(i) 十 1 一 8 选取 方向 即 可 。 

(3) 实施 回溯 。 

设 马 步行 走 起 点 为 (u,v) ,即位 置 Cu,v) 点 为 1。 显然 x(1) 二 u,v(1) 二 v,d(u,v) 二 1。 
回溯 从 i 王 1 开始 进入 条 件 循环 ,条 件 循 环 的 条 件 为 0。 即 当 i>0 时 还 未 回溯 完 
成 ,继续 试探 走马 。 

设置 k(t(GiD) 十 1 一 8) 循 环 依次 选取 方向 , 当 tGD 王 0 时 , 即 从 1 一 8 选取 方向 ,并 求 出 此 
方向 的 走马 位 置 : u=x(D 十 a(k)，v 一 yGD 十 b(k) 。 

判断 : 车 1 三 un, 1 二 v 过 m, dCu,v) 一 0, 即 所 选 位 置 在 棋盘 中 且 该 位 为 空 ,可 走马 
步 d(u,v) 二 i 十 1; 同 时 记录 下 此 时 的 方向 ti)=k,q=1 标志 此 步 走马 成 功 , 退 出 选 方向 
循环 。 

(4) 判断 马 步 遍历 与 最 长 马 步 路 径 。 

在 以 上 回溯 探求 马 步 行走 程序 中 , 若 条 件 i 二 mx* n 一 1 成 立 , 找 到 马 步 遍 历 , 即 行 输出 
马 步 遍历 ,并 统计 马 步 遍 历 个 数 。 

车 马 步 行走 程序 中 ,车 条 件 i 二 m * n 一 1 不 成 立 , 即 不 是 马 步 遍历 ,此 时 需求 出 马 步 路 
径 最 大 长 度 max, 探 索 并 输出 所 有 长 度 为 max 的 最 长 马 步 路 径 。 

在 实施 回溯 进程 中 ,对 所 有 q=1 限制 下 的 步 数 i 与 max 进行 比较 , 求 出 整个 回溯 过 
程 中 的 步 数 最 大 值 max。 

然后 重新 启动 回溯 , 凡 满 足 条 件 g 二 = 二 1 &&& i 二 二 max 即 打印 输出 长 度 为 最 大 值 
max 的 马 步 路 径 。 

可 见 , 在 不 存在 马 步 遍历 情形 下 求 出 所 有 最 长 马 步 路 径 , 需 重复 实施 回 淹 。 


2. 回溯 探求 最 长 马 步 路 径 程序 设计 


// 探 求 nXm 棋 盘 从 (u,v) 格 开始 的 最 长 马 步 路 径 
# include < stdio. h> 
void main0 
{ int i,j,k,m,n,q,u,v, uO, vO,z,max; 
int d[20] [20]= {0}, x[400]= {0}, y[400]= {0}, t[400]= {0}; 
ea 
int b[9]= {0,1,2,2,1,—1,-2,-2,-1}; // 按 可 能 8 位 给 a,b 赋 初 值 
printf(” 棋盘 为 n 行 m 列 ,请 输入 n,m: "); scanf("%d,%d",&n, &m); 
printf(” 起 点 为 u 行 v 列 ,请 输入 u,v: "); scanf("%d,%d",&u,&v); 
u0= u;vO=v; z=0; max= 0; 


i=1;x[i]=u;y[i]=v;d[u] [v]=1; // 起 始 位 置 赋 初 值 
while(i>0) 
{ qo0; // 尚 未 找到 第 i+1 步 方向 


for (k=t[i]+1;k<=8;k++) 
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} 


{ ux[il+afk];v=y[i]+b[k]; 


if(u>0 8&& uC=n 8&& v>0 && v<=m && d[u] [v]==0) 


{ x[i+1]= 
t[i]=k; 
} 
3 


usy[i+ 1]=v;d[u] [v]= i+ 1; 
q=1;break; 


if(q==1 && i> max) max= i; 


if(q==1 8&8 i= 

{ printf(" 
for (j=1;j< 
{ for(k=1 


=mxn-1) 


第 %d 个 马 步 遍历 : \n",++z); 
=n;j++) 


ik<=m;k++) 


printf("%4d", d[j] [k]); 
printf ("\n"); 


| 


直 = 
} 

else if(q==1) 
else {t[i]=d[x 


if (z> 0) 


{printf(" 


else 


{ 


i=1;z=0;x[i]= 
d[u0] [v0]=1; 
while(i> 0) 

{ q=0; 


t[i]=d[x[i]][y[i]]=d[x[Li+ 1]][y[i+ 1]]=0; 


it+; 


[iD]][y[D]=0; i--;} 


共有 以 上 %d 个 马 步 遍 历 。\n",z); returni] 


uO0;y[i]= v0; 


for (k=t[i]+1;k<=8;k++) 


{ ux[i]+ 


if(u> 0 8&& uC=n && v>0 88 v<=m &8& d[u][v]==0) 


‘村 


a[k];v=y[i]+b[k]; 


1]=u;y[i+ 1]=v;d[u] [v]= i+ 1; 


t[i]=k; q= 1;break; 


} 

} 

if(q==1 8&8 

{ printf(" 
for(j=1 
路 径 


i==max) 
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// 探 索 第 k 个 可 能 位 置 

// 所 选 位 走 第 i+1 步 
// 记 录 第 i+1 步 方向 

// 比 较 求 最 大 步 长 max 

// 存 在 马 步 遍历 则 统计 并 输出 


// 以 二 维 形式 输出 遍历 解 


// 清 零 后 实施 回溯 


// 继 续 探索 
// 实 施 回溯 


// 存 在 并 输出 马 步 遍 历 个 数 


// 起 始 位 置 赋 初 值 

// 尚 未 找到 第 i+1 步 方向 
// 探 索 第 k 个 可 能 位 置 
// 所 选 位 走 第 i+1 步 


// 记 录 第 i+1 步 方向 


// 统 计 与 输出 最 长 马 步 路 径 


第 %d 个 最 大 步 长 %d 的 马 步 路 径 : \n",++z,max+t 1); 


;j<=n;j++) 


{ for(k=1;k<=m;k++) 


if (d[j] [k]> 0) printf ("% 4d", d[j] [k]); 


else printf(” -一 ); 
printf("\n"); 


lL 


// 以 二 维 形式 输出 最 长 马 步 


t[i]=d[x[i]][y[i]]=d[x[i+1]][y[i+1]]=0; i--;// 实 施 回 溯 


: 


else if(q==1) it+; 


// 继 续 探 索 
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else {t[i]=d[x[i]][y[i]]=0; i-—;} // 实 施 回 漳 
} 
printf(” 共有 以 上 %d 个 最 长 马 步 路径 。\n",z); 


} 
3. 程序 运行 示例 与 说 明 


棋盘 为 n 行 m 列 ,请 输入 n,m: 4 4 棋盘 为 n 行 m 列 ,请 输入 n,m: 4.5 
起 点 为 u 行 v“ 列 ,请 输入 uv: 1,1 起 点 为 u 行 v 列 ,请 输入 u,v: 1,1 
第 1 个 最 大 步 长 15 的 马 步 路 径 : 第 1 个 马 步 遍历 : 


1 0 人 这 
Ek -机 了 1019 813 4 
(0 8 
3 为 6 本 0 入 


第 48 个 最 大 步 长 15 的 马 步 路 径 : 第 32 个 马 步 遍历 : 


1 ,7 0 
| 7 起 
11 14 9 6 .0 
93 12 个 2 0 


共有 以 上 48 个 最 长 马 步 路 径 。 共有 以 上 32 个 马 步 遍 历 。 


从 以 上 和 运行 示例 可 以 看 到 ,在 4X4 棋盘 中 不 存在 起 点 为 (1,1) 的 马 步 遍历 ,存在 48 
个 起 点 为 (1,1) 的 最 大 长 度 为 15 的 马 步 路 径 ; 而 在 4X5 棋盘 中 存在 起 点 为 (1,1) 的 32 个 
不 同 的 马 步 遍 历 。 

在 n 行 m 列 的 棋盘 中 ,如 果 最 长 马 步 路 径 的 长 为 mXn 即 为 马 步 遍历 ,因而 最 长 马 步 
路 径 包含 马 步 遍历 。 

也 就 是 说 ,以 上 程序 可 以 探求 指定 棋盘 与 起 点 的 所 有 马 步 人 遍历 ; 当 马 步 遍历 不 存在 
时 ,可 以 探求 指定 棋盘 与 起 点 的 所 有 最 长 的 马 步 路 径 。 


10.3.2 马 步 型 哈密 顿 圈 
马 步 遍历 中 若 终点 能 与 起 点 相 衔接 , 即 遍历 路 径 的 终点 与 起 点 也 形成 一 个 “日 ? 形 关 
系 , 则 该 遍历 路 径 为 一 马 步 型 封闭 圈 , 称 为 马 步 型 哈密 顿 圈 , 简 称 哈密 顿 圈 。 


如 下 所 示 即 为 6 行 5 列 哈密 顿 圈 , 首 先 它 是 一 个 马 步 遍历 ,其 中 起 点 1 与 终点 30 构 
成 “日 ”型 关系 。 


22 | 17 | 24|13 8 


25 6 15 | 18 | 27 
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16 | 23 | 26 | 7 | 14 
在 着 手 构建 哈密 顿 圈 前 ,有 必要 明确 以 下 命题 。 
【命题 1】 对 于 nXm 棋盘 , 若 m,n 都 为 奇数 , 则 nXm 棋盘 不 存在 哈密 顿 圈 。 
【证 明 】 把 棋盘 按 黑 白 相 间 着 色 。 注 意 到 哈密 顿 圈 的 奇数 步 与 偶数 步 为 不 同 颜色 ， 

如 果 存 在 哈密 顿 圈 , 则 黑白 两 色 格 数 应 当 相 等 ,从 而 总 方 格 数 nXm 应 为 偶数 , 即 m,n 中 

至 少 有 一 个 偶数 ,矛盾 。 

【命题 2】 在 4Xm 或 nX4 棋 盘 中 不 存在 哈密 顿 圈 。 

【证 明 】 按 图 10-12 将 棋盘 涂 灰 白 两 色 ,使 相 邻 方 格 颜色 不 同 。 若 存在 哈密 顿 圈 , 则 
在 圈 上 两 种 颜色 交错 出 现 , 即 马 的 每 一 步 从 一 种 颜色 跳 到 另 一 种 颜色 。 不 妨 设 奇数 步 全 
是 灰色 ,偶数 步 全 是 白色 。 

再 考虑 另 一 种 涂 色 方法 ,将 第 1,4 行 涂 白色 ,第 2,3 行 涂 黑色 ,如 图 10-13 所 示 。 这 
里 ,如 果 马 在 白色 格 , 下 一 步 必 跳 至 黑色 格 。 因 此 ,在 圈 上 每 一 白色 格 后 必 跟 一 黑色 格 。 
不 妨 设 奇 数 步 全 是 白色 ,偶数 步 全 是 黑色 。 


图 10-12 4 行 棋盘 的 相间 着 色 图 10-13 4 行 棋盘 中 间 2 行 着 色 


显然 ,前 图 的 白色 格 与 后 图 的 黑色 格 显然 是 不 同 的 集合 ,导致 媚 盾 。 因 而 可 在 4Xm 
或 nX4 棋盘 中 不 存在 哈密 顿 圈 。 

如 果 在 nxm 棋盘 中 ,m,n 都 不 是 4, 是 否 存 在 哈密 顿 圈 必须 通过 实践 来 检验 。 

如 何 求 nxm 棋盘 中 的 哈密 顿 图 ? 试 应 用 递归 结合 分 支 限界 法 设计 探求 。 


1. 递归 结合 分 支 限界 设计 要 点 

如 果 把 分 支 限界 与 递归 结合 起 来 使 用 ,可 望 实现 既 高 效 又 能 够 保证 每 一 个 有 解 的 棋 
盘 都 能 找到 相应 的 哈密 顿 圈 。 

为 了 加 快 搜索 速度 ,每 走 一 步 ,计算 下 一 步 的 所 有 子 位 的 出 口 数 作为 函数 值 (限界 )， 
并 根据 出 口 函 数值 从 当前 活 结 点 中 选择 一 个 最 小 的 结 点 作为 扩展 结 点 , 即 从 当前 活 结 点 
表 中 优先 选择 一 个 优先 级 最 高 ( 即 孙子 函数 最 小 ) 的 活 结 点 作为 扩展 结 点 ,使 搜索 朝 着 解 
空间 树 上 有 最 优 解 的 分 支 推进 ,以 便 尽快 找 出 一 个 哈密 顿 圈 。 

这 种 策略 就 是 启发 性 调整 应 用 ,就 是 为 了 加 速 搜索 速度 而 采用 启发 信息 剪 枝 的 “ 限 
界 "策略 。 

实践 证 明 探 求 最 长 马 步 路 径 时 在 运用 这 一 策略 之 后 搜索 速率 有 非常 明显 的 提高 ,以 
至 对 某 些 较 大 的 棋盘 不 用 回溯 就 可 以 得 到 一 个 哈密 顿 圈 解 。 

具体 来 说 , 当 从 第 g 一 1 步 走向 第 g 步 时 ,总 是 按照 数组 a 和 b 预先 设 定 的 固定 顺序 
进行 探测 ,这 样 很 容易 产生 大 量 的 出 口 少 的 结 点 。 如 果 在 此 能 够 结合 分 支 限界 ,不仅 能 够 
加 快 获得 解 的 速度 ,而 且 能 够 解决 有 解 的 棋盘 找 不 到 解 的 问题 。 
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(1) 对 于 马 步 g, 在 选择 走 步 方 向 之 初 , 即 在 所 递归 调用 的 子 函数 t 的 开始 处 ,用 数组 
s 统计 出 口 ,数组 f 记录 子 位 的 方向 下 标 。 按 照 方向 数组 a 和 bb 的 顺序 循环 ,t[j] 表 示 走 第 
g 步 的 8 个 子 位 中 第 j 个 子 位 的 出 口 数 ,同时 f[j] 表 示 走 第 g 步 的 8 个 子 位 中 第 j 个子 位 
所 选取 的 方向 ,初始 时 [让 的 方向 顺序 与 数组 a 和 bb 一 致 。 

(2) 当 走 第 g 步 的 8 个 子 位 的 出 口 统计 完成 后 ,以 数组 f 的 元 素 为 下 标 ,按照 出 口 大 
小 对 s 的 元 素 进行 升序 排序 ,排序 中 只 需 交 换 数组 f 的 相应 元 素 。 

排序 后 的 结果 : t[f[1]] 专 t[f[2]] 专 … 志 t[f[8]]。 

同时 设置 kC1 一 8) 循 环 , 直 到 tLfLk]] 之 0 止 ,此 时 f[k] 为 走 第 g 步 的 首选 方向 。 由 于 
f[kj] 为 出 口 最 少 的 可 行 子 位 , 则 fLk 一 8] 一 定 是 可 行 子 位 ,因此 无 须 进 行 检 测 。 

(3) 走 第 g 步 时 ,从 首选 方向 开始 ,按照 出 口 从 少 到 多 的 顺序 进行 走 步 探索 , 即 按照 
fkj,f[k 十 1],…,f[8j 的 顺序 进行 走 步 探索 。 

递归 回溯 过 程 与 前 面 采用 递归 方法 求解 的 程序 基本 相同 ,不 同 的 是 从 首 方 向 f[kj 开 
始 无 须 对 fLk 一 8] 进 行 可 行 性 检查 ,因为 它们 均 为 可 行 马 步 方 向 。 


2. 递归 结合 分 支 限界 程序 设计 


// 递 归结 合 分 支 限界 探索 哈密 顿 圈 

# include < stdio. h> 

int n,m, z, d[20] [20]= {0}, t[9]; 

int a[9]= {0,2,1,—1,—2,-2,—1,1,2}; // 按 可 能 8 位 给 a,b 赋 初 值 
int bl9l= 0 412214-1=2=2-0; 


voidmain0 


{ int gx,y; 
void plint g, int x, int y); 
printf(" 棋盘 为 n 行 m 列 ,请 输入 n,m:") ;scanf("%d,%d",&n, &m) ; 
if(n==4|| mc=41| (mxn)%2>0) 

{printf(” 不 可 能 存在 马 步 哈 密 顿 圈 ! \n") ;return;} 
x=1;y=1;g=2;z=0;d[x] [y]=1; // 起 始 位 置 赋 初 值 
plg,x,y); // 调 用 p(g,x,y) 
if(z==0) printf(” 未 找到 马 步 哈密 顿 圈 ! \n"); 
else printf(” 共有 %d 个 马 步 哈 密 顿 圈 . \n",z); 

} 

// 马 步 哈 密 顿 圈 递 归 函 数 

void plint g, int x, int y) 

{ int i,j,l,u,v,ul,vi,k,k1=0,f[9]; 
for (j=1;j<=8;j++) 


{ fF[j]=j; 
uxta[lj];v=y+b[j]; // 探 索 第 j 个 可 能 位 置 
if(u> 0 && uC=n && v> 0 88 v=m 8& d[u][v]==0) 
{ if(g==mxn) {k=j;break;} // 此 时 无 须 检测 孙 位 ,用 k 标 记 最 后 一 步 的 方向 
else if(!(u==2 && v==3)) 
{ t[j]=0; 


for (|=1;1<=8;1++) 
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{ uf=uta[l];v{=v+b[!]; 
if(u1>0 8&8 u1<=n &8 v1> 0 &8& v1<=m &8 d[u1] [v1]==0 && !(u1==x && v1==y)) 


t[j]++; 


if (t[j]==0) ki++; 


} 


else {t[j]=0:;ki++ ;continue;} 


} 


else {t[j]=0;k1++ ;continue;} 


} 

if (k1==8) return; 

if (gCm* n) 

{ for(j=1;j<=7;j++) 


for (l= j+1;1<=8;|l++) 


if (t [fF[j]]>t[F[1]]) 


{k1=F[j];f[j]=F[1];F[I]=k1; } 


for (k= 1;t[f[k]]<=0;k+ +); 


| 
while(k<=8) 


{ uxta[lf[k]];v=y+b[f[k]]; 


d[u] [v]=g; 
if (ge==mx n) 
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// 统 计 第 j 个 子 位 可 走 孙 位 个 数 


// 此 时 无 须 检 测 孙 位 
// 第 g 步 走 不 了 ,实施 回溯 
// 对 8 个 子 位 可 走 孙 位 个 数 进行 升序 排序 


// 操 作 后 ,k 记录 第 g 步 的 首选 方向 


// 选 取 第 k 个 可 能 位 置 走 第 g 步 


{ printf(” 第 %d 个 马 步 哈密 顿 较为:\n",++z); 
for(i=1;i<=n;i++) 
{ for(j=1;j<=m;j++) 

printf ("%4d", d[i] [j]); 


printf ("\n"); 
} 
if (z==2) return; 
d[u] [v]= 0;break; 
} 
else plgt1,u,v); 
d[u] [v]=0; k=k+ 1; 


] 


3. 程序 运行 示例 与 说 明 


棋盘 为 n 行 m 列 ,请 输入 n,m:10,9 


第 1 个 马 步 哈 密 顿 圈 为 : 
9 400 30544947 50 


48 
61 


17 
22 
19 
78 


16 
21 


// 以 二 维 形式 输出 马 步 哈密 顿 圈 


// 只 输出 2 个 解 
// 实 施 回 溯 , 寻 求 新 的 解 


// 递 归 进 行 下 一 步 探索 
// 清 零 为 后 面 的 马 步 探索 留 出 空位 
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8R RS 
8 SRSRa 
HEYRK 
ssag8Na 
aN8YSYN® 
B28HRg 
ggangs 
NASER 


运行 程序 所 得 10 行 9 列 的 哈密 顿 圈 数 量 相当 多 ,程序 限制 仅 显示 两 个 。 

中 国 象棋 盘 上 的 点 相当 于 10 行 9 列 的 矩形 ,以 上 结果 说 明 在 中 国 象棋 盘 上 马 从 棋盘 
上 的 任意 位 置 出 发 可 遍 行 棋 盘 上 的 每 一 个 点 而 不 重复 ,最 后 回 到 出 发 点 。 

参数 m,n 达到 或 超过 10 时 ,构造 的 哈密 顿 圈 的 规模 比较 大 , 若 按 单纯 的 回溯 或 递归 
设计 求解 ,时 间 可 能 会 相当 长 。 以 上 把 递归 算法 与 分 支 限界 有 机 地 结合 起 来 ,可 有 效 提 高 
这 些 较 大 规模 哈密 顿 圈 的 搜索 效率 。 

注意 : 若 输 入 参数 m,n 都 为 奇数 ,或 m,n 中 有 一 个 是 4 时 ,没有 哈密 顿 圈 输 出 。 


10.4 洛 书 与 幻 方 


幻 方 (Magic Square) 是 一 种 将 指定 数字 安排 在 方 阵 中 的 各 个 格子 中 ,使 每 行 、 每 列 和 
两 对 角 线 上 的 数 之 和 都 相等 的 精深 设计 ,是 深 受 中 外 数学 爱好 者 喜爱 的 一 个 古老 而 又 神 
奇 的 数学 奇 苑 。 

著名 数学 家 费 马 、 欧 拉 与 物理 学 家 富兰克林 等 都 对 幻 方 很 感 兴趣 ,如 今 幻 方 仍 然 是 组 
合 数学 的 研究 课题 之 一 。 

经 过 一 代 代 数学 家 与 数学 爱好 者 的 共同 努力 , 幻 方 与 它 的 变 体 所 蕴含 的 各 种 神奇 的 
科学 性 质 正 逐步 得 到 揭示 。 幻 方 已 在 组 合 分 析 、 实 验 设计 、 图 论 数论、 群 .对策 论 、 工 艺 美 
术 、 人 工 智 能 等 领域 得 到 广泛 应 用 。 

1977 年 ,4 阶 幻 方 (如 图 10-14 右 图 所 示 ) 还 作为 人 类 的 特殊 语言 被 美国 旅行 者 飞船 
携 入 太空 ,向 广 志 的 宇宙 中 可 能 存在 的 外 星人 传达 人 类 的 文明 信息 。 


| 图 4 15 6 全 


总 10 | 16 


11 8 13 2 


加 14 1 12 7 


图 10-14 太空 飞船 所 带 4 阶 幻 方 图 


不 管 外 星人 的 智力 如 何 ,对 阿拉 伯 数 字 也 不 一 定 了 解 , 但 数 点 数 应 该 会 ,简单 相 加 不 
成 问题 ,这 就 够 了 ,就 可 以 读 懂 上 述 的 4 阶 点 阵 幻 方 图 。 


10.4.1 千古 洛 书 
幻 方 在 我 国 古 代 被 宋代 数学 家 杨辉 称 为 “纵横 图 ”。 
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发 源 于 中 国 古代 的 洛 书 一 一 九宫 图 ,是 科学 的 结晶 与 吉祥 的 象征 ,也 是 幻 方 的 始祖 。 

相传 ,名 列 “ 三 皇 五 帝 " 之 首 的 伏 狠 曾 见 龙 马 负 图 出 河 , 称 之 为 河 图 ; 夏 鼻 治水 时 , 洛 河 
水 中 浮 出 了 神 龟 ,背负 文字 ,有 数 至 九 ,大 策 用 它 做 成 九 畴 , 称 之 为 洛 书 。 后来, 人们 就 以 
“ 河 出 图 ”“ 洛 出 书 ” 表 示 太 平时 代 的 祥瑞 。 

“ 洛 书 ”的 图 案 , 古 代 有 一 首 歌 来 叙述 它 :“ 戴 九 履 一 , 左 三 右 七 ,二 四 为 肩 , 六 八 为 
足 .” 头 上 是 九 , 下 面 是 一 ,左边 是 三 ,右边 是 七 ,这 些 都 是 阳 数 ,以 白 点 占据 四 方 ; 上 面 右 角 
两 点 左 角 四 点 ,如 同 肩 膀 , 下 面 右 角 六 点 , 左 角 八 点 , 像 两 只 足 ,为 阴 数 ,以 黑 点 镇 守 四 角 ; 
中 心 数 五 则 居 正 中 。 洛 书 图 及 其 数字 表示 如 图 10-15 所 示 。 


4 多 2 
3 5 & 
8 1 6 


10-15 洛 书 图 及 其 数字 表示 


上 述 洛 书 图 是 如 何 得 到 的 呢 ? 

【问题 】 着 手 具体 构建 洛 书 。 

试 把 1,2,3,4,5,6,7,8,9 这 9 个 数字 不 重复 填 人 3X3 方 阵 的 方 格 中 ,使 每 行 、 每 列 、 
每 对 角 线 上 的 3 数 之 和 相等 。 

【探求 】 设 方 阵 正中 数 为 d, 注 意 到 每 行 、 每 列 与 每 对 角 线 之 和 s 二 (1 十 2 十 … 十 9)/ 
3 一 15。 则 

(中 间 一 行 ) 十 (中 间 一 列 ) 十 (两 对 角 线 ) = 60 

即 ( 方 阵 所 有 9 个 数 之 和 ) 十 3d 一 60 

注意 到 方 阵 所 有 9 个 数 之 和 为 45, 则 有 

3d 一 15 一 4 一 5 

这 意味 着 方 阵 的 正中 方 格 为 5, 凡 含 5 的 行 、 列 或 对 角 线 的 3 个 数 中 , 除 正 中 数 5 之 外 的 另 
两 个 数 与 5 相差 等 距 , 即 为 以 下 4 组 与 5 等 距 的 数 对 : 1,9;2,8;3,7;4,6。 

把 这 4 组 数 对 按 “ 两 对 角 线 两 端 大 数 在 下 , 底 行 两 端 大 数 在 左 ” 的 约定 ,选择 两 组 填 入 
方 阵 的 4 角 , 另 两 组 按 等 和 要 求 填 人 其 余 空格 。 

经 调试 即 得 图 10-15 所 示 的 洛 书 , 即 3 阶 幻 方 。 

在 满足 "两 对 角 线 两 端 大 数 在 下 , 底 行 两 端 大 数 在 左 ” 的 约定 下 ,所 构建 的 3 阶 幻 方 是 
唯一 的 。 

【特性 】 洛 书 除 了 3 行 3 列 与 两 对 角 线 上 3 数 之 和 相等 ,还 有 以 下 特性 。 

(1) 洛 书 3 行 顺 读 的 3 位 数 与 3 行 逆 读 的 3 位 数 平方 和 相等 。 

由 图 10-15 可 知 ,3 行 顺 读 的 3 位 数 分 别 为 492,357,816;3 行 逆 读 的 3 位 数 分 别 为 
294,753,618。 这 两 组 3 位 数 的 平方 和 相等 , 即 有 

492? 十 357? 十 8162 一 2942 十 753? 十 618? 
(2) 洛 书 正 反 泛 对 角 线 和 相等 。 
由 图 10-15, 正 泛 对 角 线 ( 泛 对 角 线 由 与 两 对 角 线 平行 的 对 应 两 段 组 合 而 成 ) 两 个 3 位 
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数 为 312,879, 反 泛 对 角 线 两 个 3 位 数 为 978,213。 这 两 组 3 位 数 的 和 相等 , 即 有 
312 十 879 一 978 十 213 


10.4.2 构建 n 阶 幻 方 


n 阶 幻 方 是 由 数 1,2,…,n? 排列 而 成 的 nXn 方 阵 , 方 阵 的 每 一 横行 、 每 一 纵 列 与 两 
条 对 角 线 上 的 n 个 数 之 和 均 相 等 ,其 值 为 n(n 十 1)/2, 称 为 幻 和 (Magic Sum)。 
由 此 可 知 , 幻 方 实际 上 是 一 种 构造 优美 的 特殊 方 阵 。 


1. 设计 思路 与 要 点 

设计 构建 并 输出 n 阶 幻 方 ,设置 二 维 数组 aCn 十 1,n 十 1) 存 储 方 阵 的 元 素 。 

以 下 分 3 种 情形 实施 赋值 与 构造 。 

(1) 当 n%2>0(2m 十 1 型 ) 时 构造 。 

采用 连续 斜 行 赋值 法 ,分 以 下 4 步 。 

Q@ 把 数 1 定 在 正中 的 下 一 格 。 

@ 数 2 定 在 1 的 斜 行 右 下 格 ,以 此 类 推 , 即 一 般 数 i 定 在 数 i 一 1 的 斜 行 右 下 格 ( 行 数 
x 列 数 y 均 增 1)。 

@ 直至 当 数 i 一 1 为 n 的 倍数 时 , 数 i 定 在 i 一 1 格 正 下 方 的 第 2 格 ( 行 数 x 增 2, 列 数 
y 不 变 )。 

@ 按 上 述 赋值 , 格 的 位 置 (x,y) 车 超出 n 行 n 列 的 范围 , 按 模 n 定位 , 即 若 出 现 xn， 
则 定 在 第 x 一 n 行 ;出 现 y 二 n, 则 定 在 第 y 一 n 列 。 

(2) 当 n%4 二 0(4m 型 ) 时 构造 。 

试 采用 德国 数学 家 丢 勒 给 出 的 对 称 元 素 交 换 法 构建 n 为 4 的 倍数 时 的 幻 方 ,具体 分 
以 下 两 步 。 

Q@ 把 整数 1~n? 的 升序 排列 按照 行 从 上 至 下 , 列 从 左 至 右 的 顺序 分 别 填 人 nxXn 方 
阵 各 格 , 即 a(i,j) 一 (i 一 1)n 十 j。 

@ 把 方 阵 的 所 有 4X4 子 方 阵 中 的 两 对 角 线 位 置 上 的 数 关 于 方 阵 中 心 作对 称 交 换 ， 
其 他 非 对 角 线 上 的 数 固定 不 动 。 

方 阵 中 所 有 4X4 子 方 阵 中 的 两 对 角 线 位 置 (i,j) 满 足 条 件 

(i-D%401| (i+j-1D)%40 
注意 到 方 阵 中 位 置 (i,j) 与 位 置 (n 十 1 一 i,n 十 1 一 j) 关 于 方 阵 中 心 对 称 ,这 两 位 置 的 元 
素 交 换 : a(i,j))= 二 n(n 一 让 十 n 十 1 一 j( 当 (i 一 %4 0 || G+i—1D)%4 0 时 )。 

(3) 当 n%4 二 2( 即 4m 十 2 型 ) 时 构造 。 

Q@ 首先 把 大 方 阵 分 解 为 4 个 奇数 (2m 十 1 阶 ) 子 方 阵 。 仿 上 述 奇 数 阶 幻 方 给 分 解 的 4 
个 子 方 阵 对 应 赋值 ,上 左 子 方 最 小 (i) ,下 右 子 方 次 小 (i 十 v) ,下 左 子 方 最 大 (i 十 3v), 上 布 
子 方 次 大 (i 十 2v) , 即 4 个 子 方 阵 对 应 元 素 相差 v, 其 中 v 一 nx n/4。 

@ 作 相 应 的 元 素 交换 : a(i,j) 与 a(i 十 u,j) 在 同一 列 作对 应 交换 (j 二 t 或 jn 一 t 十 
2) ;a(t,1) 与 a(t 十 u,1),a(t,t) 与 a(t 十 u,t) 两 对 元 素 交换 。 其 中 u==n/2,t==(n 十 2)/4。 

上 述 交换 以 使 每 行 每 列 与 两 对 角 线 上 元 素 之 和 相等 。 
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(4) 检验 并 输出 。 

设置 i,j 二 重 循环 ,统计 并 检测 各 行 的 和 x 与 各 列 的 和 y 是 否 等 于 幻 和 s; 同 时 应 用 变 
量 z,t 统计 并 检测 两 对 角 线 上 的 和 是 否 等 于 幻 和 s。 

车 这 2n 十 2 个 和 中 的 某 一 个 和 不 等 于 s, 则 以 上 赋值 不 能 成 为 幻 方 ,退出 。 

车 这 2n 十 2 个 和 全 都 等 于 s, 则 以 二 维 方 阵 的 形式 输出 该 幻 方 。 


2. 构建 n 阶 幻 方程 序 设计 


// 构 建 一 个 mn 阶 幻 方 带 2n+2 个 和 相等 的 检验 ) 
# include < stdio.h> 


voidmain0 
{ int i,j,n,s,t,u,v,x,y,z,a[31] [31]; 
printf(” 请 输入 阶 数 n(2< nk 30) :"); scanf ("%d",&n) ; 
s=nx (nx nt1)/2; //s 为 幻 和 
if (n% 2!=0) //n 为 奇数 时 元 素 赋值 
{ y= (n+1)/2;x=y+1; 
for(i=1;i<=nxn;it++) 
{ alx][y]=i; 
if(i%n==0) x+=2; 
else {x+=1;y+=1;} 
if(x>n) x-=n; 
if(y>nm y-=n; 


i 
else if(n% 4==0) //n 为 4 的 倍数 时 元 素 赋 值 
{ for(i=1;i<=n;i++) 
for (j= 
{ a[li][j]=n* (1)+j; 
if((i-)%4=0 || (i+j-1)%4=0) 


a[i][j]=n* (n- i)+n+t 1-j; //4 售 子 阵 对 角 线 作 中 心 对 称 交 换 
} 
} 
else /Wn 为 非 4 倍 偶数 时 元 素 赋值 
{ um2iv=uxuiy= (ut 1)/2;x=y+ 1;t=y; 
for (i=1;i<=v;it+) //4 个 子 方 阵 赋值 


{ afx][y]=i;a[x] [y+u]= i+2xv; 
a[lxt+ u] [y]= i+ 3* v;a[x+ u] [y+ u]= i+v; 
if(i%u==0) x+=2; 
else {x+=1;y+=1;} 
if 0 U) x-=u; 
if(y>u y-=u; 
} 
for(i=1;i<=u;it+) /4 个 子 方 阵 部 分 元 素 交换 
{ for(=1;jK=n;j++) 
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if(j<=t-11| j>=n-t+3) 
{x=a[i] [j];a[i] [j]=ali+u] [j];a[i+u][j]=x;} 
} 
x=a[t] [1] ;a[t] [1]=a[t+ u] [1] ;a[t+ u] [1]=x; 
x=a[t] [t];a[t] [t]=a[t+ u] [t];a[t+ u] [t]= x; 
} 


z=0;t=0; // 检 验 :z,t 为 对 角 线 和 
for(i=1;i<=n;i++) 
{ for(x=0,y=0,j=1;j<=n;j++) //x 为 横行 和 ,y 为 纵 列 和 


{ x+=a[li][j];y+=a[j][i]; 
if(i==j) z+=a[i]D]; 
if(it j==n+1) t+=a[i][Dj]; 
} 
if(x!l=s || y!= s) return; 
} 
if(z==s 8&8 t==s) // 检 验 成 功 则 输出 幻 方 ,否则 不 输出 
{ printf(”%d 阶 幻 方 :\n",n); 
for(i=1;i<=n;i++) 
{ for(j=1;j<=n;j++) printf ("%5d",a[i] [j]); 
printf ("\n"); 
} 
printf(” 幻 和 sum=%d\n", s); 


} 
3. 程序 运行 示例 与 说 明 


输入 阶 数 n(2<n< 30): 6 


6 阶 幻 方 : 

19095020 22027 0 20 
< 7121 导 25 下 2 
35 1 62 1 24 
00 29 1918 
30 53 1214 1 
B28 33 17 f10 M8 
幻 和 sun= 111 


运行 程序 ,输入 n 王 3, 得 3 阶 幻 方 如 图 10-15 所 示 。 

以 上 程序 不 仅 可 构建 各 个 n 阶 幻 方 . 且 带 有 检验 功能 ,可 确保 输出 的 n 行 n 列 与 两 对 
角 线 上 n 个 数 之 和 均 为 幻 和 。 当 不 满足 要 求 时 ,不 作 打印 输出 。 

4. 于 勒 的 “忧郁 图 版 ” 

以 上 程序 输入 n= 二 4, 即 得 左边 4 阶 幻 方 。 

交换 左边 4 阶 幻 方 的 中 间 2 列 , 即 得 德国 数学 家 丢 勒 于 1514 年 构 作 的 “忧郁 版 图 ”。 
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4 阶 幻 方 : 忧郁 图 版 : 

6 2 31 141600300 213 
Sl S10 {0S 
co 06007 2 
41415 1 41514 1 

幻 和 sunF 34 ( 左 幻 方 交换 中 间 2 列 所 得 ) 


作为 4 阶 幻 方 的 “忧郁 版 图 ”, 之 所 以 交换 中 间 两 列 , 是 为 了 达到 幻 方 中 隐 含 其 构 作 年 
号 1514 的 目的 。 

以 上 4 阶 幻 方 及 “忧郁 版 图 ”, 具 有 以 下 诸多 有 趣 的 性 质 。 

(1) 第 1,2 行 与 第 3,4 行 ,各 数 的 平方 和 相等 (748) 。 

(2) 第 1,3 行 与 第 2,4 行 ,各 数 的 平方 和 相等 (748) 。 

(3) 对 角 线 上 各 数 之 和 等 于 不 在 对 角 线 的 各 数 之 和 (68) 。 

(4) 对 角 线 上 各 数 的 平方 和 等 于 不 在 对 角 线 的 各 数 的 平方 和 (748) 。 

(5) 对 角 线 上 各 数 的 立方 和 等 于 不 在 对 角 线 的 各 数 的 立方 和 (9248) 。 

至 于 “忧郁 版 图 ?的 来 历 ,据说 是 因为 丢 勤 为 构建 满足 以 上 性 质 (1) 一 (5) 的 44 幻 方 
时 , 因 不 能 很 快 得 到 解决 而 优 郁 ,这 一 说 法 多 少 有 些 牵强 。 


10.5 对 角 正 交 拉 丁 方 


拉丁 方 与 正 交 拉丁 方 是 常用 的 数 阵 , 其 应 用 相当 广泛 。 

本 节 论 述 的 对 角 正 交 拉 丁 方 是 正 交 拉丁 方 中 对 两 对 角 线 有 特殊 要 求 的 一 个 子 集 , 实 
际 上 一 种 特殊 的 幻 方 ,或 者 说 是 一 类 幻 方 的 特殊 表现 形式 。 

由 对 角 正 交 拉丁 方 通过 一 定 的 规则 可 转换 为 一 般 幻 方 。 同 时 ,对 角 正 交 拉丁 方 还 是 
构建 积 幻 方 与 素数 幻 方 的 重要 依据 。 

1. 关于 36 个 军官 问题 

1782 年 , 欧 拉 提出 一 个 非常 有 趣 的 排列 问题 从 6 支部 队 各 选 出 6 个 不 同 级 别 的 军 
官 ,把 这 36 个 军官 排列 成 6 行 6 列 的 方 阵 , 使 得 每 一 行 和 每 一 列 都 有 来 自 不 同 部 队 且 级 
别 不 同 的 军官 。 

欧 拉 经 反复 的 研究 ,猜想 这 是 不 可 能 做 到 的 事 。 他 想 证 明 这 个 猜想 ,可 是 久久 找 不 到 
证 明 的 方法 。 真 想不到 ,这 区 区 36 军官 的 排队 问题 , 竞 会 使 赫赫 有 名 的 大 数学 家 束 手 
无 策 ! 

不 妨 看 看 比较 小 的 情形 ,例如 9 军官 问题 。 

从 3 支部 队 各 选 出 3 个 不 同 级 别 的 军官 ,把 这 9 个 军官 排列 成 3 行 3 列 的 方 阵 , 使 得 
每 一 行 和 每 一 列 都 有 来 自 不 同 部 队 且 级 别 不 同 的 军官 。 

图 10-16 所 示 为 9 个 军官 排列 的 解 : A 为 部 队 编 号 ,B 为 军官 级 别 编号 ,AB 则 为 3Xx 
3 三 9 个 军官 排列 结果 ,其 中 前 一 个 数字 为 部 队 编 号 ,后 一 个 数字 为 军官 级 别 编号 。 

不 妨 再 看 16 军官 问题 。 

从 4 支部 队 各 选 出 4 个 不 同 级 别 的 军官 ,把 这 16 个 军官 排列 成 4 行 4 列 的 方 阵 ,使 


395 


| 起 二 如 学 及 编程 撩 关 


A B AB 
1 2 I 2 入 11 22 E23 
2 3 1 3 1 2 23 31 Lp 
3 1 2 2 3 1 32 13 21 


图 10-16 9 军官 问题 的 排列 


得 每 一 行 和 每 一 列 都 有 来 自 不 同 部 队 且 级 别 不 同 的 军官 。 
图 10-17 所 示 为 4X4 一 16 个 军官 排列 的 解 : C 为 部 队 编 号 ,D 为 军官 级 别 编号 ,CD 
则 为 16 个 军官 排列 结果 ,其 中 前 一 个 数字 为 部 队 编号 ,后 一 个 数字 为 军官 级 别 编号 。 


C D CD 
2 4 入 1 2 入 4 1 22 43 34 11 
Ed 1 2 4 1 4 3 2 EE 14 23 42 
1 3 4 2 3 2 | 4 13 32 41 24 
4 2 1 3 4 1 2 3 44 21 12 3 


10-17 16 军官 问题 的 排列 


还 可 举例 出 5X5==25 以 及 7X7=49,8X8=64 等 军官 问题 的 有 效 排 列 解 ,为 什么 
6X6 二 36 军官 问题 就 排列 不 出 来 呢 ? 

这 一 问题 直到 1900 年 , 才 由 数学 家 塔 里 (Tarry) 用 系统 枚 举 法 证 明 欧 拉 猜 想 是 正 
确 的 。 

36 个 军官 问题 的 实质 涉及 正 交 拉丁 方 , 欧 拉 猜 想 就 是 不 存在 6 阶 正 交 拉丁 方 。 


2. 对 角 正 交 拉 丁 方 定义 

首先 明确 拉丁 方 、 正 交 拉丁 方 与 对 角 正 交 拉丁 方 的 定义 及 其 区 别 。 

拉丁 方 : 在 nXn 方 阵 中 , 若 方 阵 的 每 行 ,每 列 都 恰 为 (1,2,…,n) 的 一 个 置换 , 则 称 该 
方 阵 是 一 个 n 阶 拉丁 方 。 

正 交 拉丁 方 : 设 N= 二 {1,2,…,n)}。 若 A 二 (a_{i,j}) ,B= 二 (b_{i,j)) 都 是 n 阶 拉丁 方 ， 
且 满 足 

{Ca_ {isj}sb_ {i,j}): i= 1,2,%n3j = 1 on} 一 和 

则 称 A,B 是 正 交 拉丁 方 。 

即 两 个 n 阶 拉丁 方 在 同一 位 置 上 的 数 依次 配置 成 对 时 ,如 果 这 两 个 有 序数 对 恰好 各 
不 相同 , 则 称 这 两 个 拉丁 方 为 正 交 拉丁 方 。 

对 角 正 交 拉 丁 方 : 两 个 正 交 拉丁 方 在 两 对 角 线 上 的 数 依次 配置 成 对 时 ,如 果 这 两 个 
有 序数 对 恰好 各 不 相同 , 则 称 这 两 个 拉丁 方 为 对 角 正 交 拉丁 方 。 

以 图 10-5 中 的 表 A,B 为 两 个 3 阶 拉 丁 方 ,其 关系 是 正 交 的 ,由 组 合 为 AB 后 可 以 看 
出 ,AB 每 行 每 列 的 两 位 数 中 ,前 数字 有 1,2,3; 后 数字 也 都 有 1,2,3。 但 A,B 不 是 对 角 正 
交 拉丁 方 ,由 AB 可 知 一 条 对 角 线 上 个 位 数字 都 是 1, 另 一 条 对 角 线 上 十 位 数字 都 是 3。 
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事实 上 ,不 存在 3 阶 对 角 正 交 拉丁 方 。 

以 图 10-17 中 的 表 C,D 为 两 个 对 角 正 交 拉 丁 方 ,组 合 为 CD 后 ,每 行 每 列 的 两 位 数 
中 ,前 数字 都 有 1,2,3,4; 后 数字 也 都 有 1,2,3,4; 且 CD 两 对 角 线 上 前 数字 都 有 1,2,3,4; 
后 数字 也 都 有 1,2,3,4。 即 C,D 为 对 角 正 交 拉丁 方 。 

既然 不 存在 6 阶 正 交 拉丁 方 ,当然 更 谈 不 上 存在 6 阶 对 角 正 交 拉丁 方 。 


3. 对 角 正 交 拉丁 方 的 特性 

对 于 对 角 正 交 拉丁 方 ,可 以 归纳 以 下 特性 。 

(1) 对 角 正 交 拉 丁 方 是 一 种 特殊 的 幻 方 。 

n 阶 对 角 正 交 拉 丁 方 每 一 格 的 元 素 由 前 后 两 部 分 (简称 前 数 与 后 数 ) 构 成 ,前 数 与 后 
数 都 由 1,2,…,n 这 n 个 数字 构成 。 当 n 三 10 时 ,前 数 与 后 数 都 是 一 个 数字 ,前 数 为 十 位 
数字 ,后 数 为 个 位 数字 ; 当 n 宇 10 时 ,前 数 与 后 数 都 是 两 个 数字 组 成 。 

整个 方 阵 的 nXn 个 元 素 互 异 , 即 没有 任何 两 格 元 素 重复 。 

因而 ,对 角 正 交 拉 丁 方 的 n 行 、n 列 与 两 对 角 线 上 元 素 之 和 均 相 等 ,满足 和 幻 方 的 
2n 十 2 个 和 相等 的 要 求 。 

(2) n 阶 对 角 正 交 拉丁 方 可 转化 为 n 阶 幻 方 。 

QO@ 把 对 角 正 交 拉丁 方 每 一 格 的 前 数 、 后 数 均 减 去 1, 即 从 1 开始 变 为 从 0 开始 。 

@ 把 表 中 的 数 按 n 进 制 转化 为 十 进 制 数 ( 如 按 n==4 进 制 把 12 转化 为 6 等 )。 

@ 把 表 中 各 数 全 部 加 1 。 

通过 以 上 3 个 步骤 即 把 一 个 n 阶 对 角 正 交 拉 丁 方 转化 为 n 阶 幻 方 。 

图 10-18 所 示 的 4 阶 对 角 正 交 拉 丁 方 转化 为 4 阶 幻 方 的 转化 过 程 如 图 10-18 所 示 。 


11 32 23 00 5 14 11 0 6 15 12 1 
20 03 12 31 8 3 6 13 4 中 14 
02 21 30 13 2 9 12 7 有 10 地 8 
33 10 ol 22 15 4 1 10 16 5 区 11 


图 10-18 4 阶 对 角 正 交 拉丁 方 转化 为 4 阶 幻 方 


注意 : 反 过 来 转化 并 不 可 行 。 例 如 ,不 可 以 把 一 个 6 阶 幻 方 转 化 为 一 个 6 阶 对 角 正 
交 拉 丁 方 ,因为 6 阶 正 交 拉 丁 方 并 不 存在 。 

4. 构建 一 组 对 角 正 交 拉丁 方 设计 要 点 

试 构建 一 组 n( 非 3 倍数 的 奇数 ) 阶 对 角 正 交 拉 丁 方 .并 转换 为 幻 方 。 

(1) n 阶 对 角 正 交 拉丁 方 构造 规律 。 

设置 二 维 数组 存储 n 阶 对 角 正 交 拉丁 方 ,b[ij[j] 为 方 阵 第 i 行 第 j 列 元 素 。 

为 区 分 前 数 后 数 方便 ,根据 n 的 大 小 设置 参量 t: 当 n<10 时 ,t 二 10; 当 n 宇 10 时 ， 
t= 100。 

归纳 mn 阶 对 角 正 交 拉丁 方 的 构造 规律 ,组 建 分 以 下 几 个 步骤 。 

@ 方 阵 第 1 列 : 前 数 与 后 数 均 为 行 号 , 即 分 别 为 iXt+iCi=1,2,…,n), 这 是 其 他 列 
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递 推 的 基础 。 

@ 从 第 j=2 列 开始 ,前 数 不 变 , 即 为 iXt; 后 数 v 增 j 一 1。 

@ 行 号 hh 在原 i 的 基础 上 增 (n 十 1)/2X 0 一 上 ), 即 h=i 十 (n 十 1)/2X (一 1)。 

@ 行 号 h 求 余 处 理 : hn 时,h 二 h%n; 取 余 后 车 h=0, 则 取 h==n。 

@@ 后 数 v 求 余 处 理 : vy 二 n 时 ,v= 二 v%n; 取 余 后 车 v= 二 0, 则 取 v 一 n。 

例如 , 当 n==5 时 , 方 阵 第 1 列 分 别 为 11,22,… ,55。 

当 i1,j 一 2 时 ,前 数 为 1; 后 数 v 在 i 基础 上 增 1, 即 为 2; 行 号 h 在 i 基础 上 增 3, 即 为 
4; 因 而 数 12 在 方 阵 的 第 h==4 行 第 j==2 列 。 

当 i 二 3,j 二 4 时 ,前 数 为 3; 后 数 v 在 i 基础 上 增 3, 即 为 6; 行 号 bh 在 i 基础 上 增 9, 即 为 
12; 通 过 求 余 处 理 后 得 : 数 31 在 方 阵 的 第 h=2 行 第 j=4 列 。 

(2) 对 角 正 交 拉 丁 方 转换 为 幻 方 。 

按 以 上 步骤 把 构建 的 n( 非 3 信 数 的 奇数 ) 阶 对 角 正 交 拉丁 方 转换 为 幻 方 。 

事实 上 , 设 n 阶 对 角 正 交 拉 丁 方 的 元 素 为 b[ 让 Dj], 则 对 应 幻 方 第 i 行 第 j 列 元 素 为 


(b[i] [j]/t-1) x nt+b[i] Cj]%t 
这 里 的 参数 t= 二 10( 当 nn 二 10 时 ) ,或 t=100( 当 n 二 10 时 )。 
5. 构建 一 组 n 阶 对 角 正 交 拉丁 方程 序 设 计 


// 构 建 n(n% 3> 0 的 奇数 ) 阶 对 角 正 交 拉丁 方 
# include < stdio.h> 
voidmain0 
{ int i,j,h,n, r,t,v,b[50] [50]; 
printf(” 请 输入 阶 数 n:"); scanf("%d",&n); 
if(n%2==0 || n% 3==0) return; 
t=10; r=0; 
if (n> 10) t= 100; 


for (i=1;i<=n;i++) 


b[i] [1]= i * t+i; // 第 1 列 元 素 赋值 , i * t 为 前 数 ,i 为 后 数 
for(i=1;iK=nii++) 
for (j=2;j<=n;j++) // 根 据 第 1 列 元 素 按 规律 赋值 第 2 n 列 


{ h=i+ (nt1)/2x* (0D); vitj-1; 
if(h>n) h=h%n; 
if(h==0) h=n; 
if(v>n) v= wn; 
if(v==0) v=n; 
b[h] [j]=i * ttv; 
} 


printf(" A: B:\n"); 
for (i=1;i<=n;i++) // 输 出 A,B 两 个 对 角 正 交 拉丁 方 


{ for(j=1;j<=n;jt+) printf(%2d",b[i][j]/t); 
printf(" "); 
for (j=1;j<=n;j++) printf (%2d",b[i] [j]%t); 
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printf ("\n"); 
| 
printf(” AB: \n"); // 输 出 对 角 正 交 拉 丁 方 AB 
for(i=1;iK=nii++) 
{ for(j=1;j<=n;j++) printf("%4d",b[i[j]); 

printf ("\n"); 
} 
printf(” 转换 为 %d 阶 幻 方 : \n",m; 
for(i=1;i<=n;i++) // 转 换 为 n 阶 幻 方 输出 
{ for(j=1;j<=n;j++) 

printf ("% 4d", (b[i] [j]/t-1) * n+ b[i] [j]% t); 
printf ("\n"); 


| 


6. 程序 运行 示例 与 说 明 


请 输入 阶 数 n:5 

A: B: 

yk be Wy | 

7 0 2 0 9 

“A | :2 

a i SH | 

0 0 2 [J Wl le 
AB: 转换 为 5 阶 幻 方 : 

11 34 52 25 43 4 22 0 

245 13 3 5% TO 24 

3 51 244 15 要 29 

4 12 35 53 2 i 20 .J 2 

55 23 4 14 32 8 地 4 他 


其 中 ,A 为 前 数 拉丁 方 ,B 为 后 数 拉丁 方 ,A 与 B 互 为 正 交 拉丁 方 ;由 AB 可 以 看 出 5 
行 5 列 及 两 对 角 线 上 前 数 与 后 数 都 为 1 至 5 不 重复 , 即 为 对 角 正 交 拉丁 方 。 

不 仅 如 此 ,A,B 与 AB 的 所 有 * 泛 对 角 线 ”上 的 数 都 为 1 一 5 不 重复 , 即 所 构建 的 n( 非 
3 倍数 的 奇数 ) 阶 对 角 正 交 拉丁 方 为 泛 对 角 线 幻 方 ,自然 所 转换 的 幻 方 也 是 比 一 般 幻 方 要 
求 更 严格 的 泛 对 角 线 幻 方 。 

例如 ,容易 验证 ,以 上 程序 运行 所 得 AB 转换 为 5 阶 幻 方 也 为 泛 对 角 线 幻 方 : 方 阵 中 
的 5 行 ,5 列 ,2 条 对 角 线 与 8 条 泛 对 角 线 ( 例 如 ,13 十 2 十 16 十 24 十 10;22 十 20 十 13 十 4 十 6 
等 ) 上 的 5 个 数 之 和 均 为 幻 和 65。 


10.6 素数 幻 方 


通常 的 n 阶 幻 方 由 整数 1,2,…,n? 填 人 nXn 方 格 ,构成 n 行 .n 列 、 两 对 角 线 之 和 
( 称 为 幻 和 ) 均 相等 的 方 阵 。 


399 


| 起 二 妨 学 及 编程 撩 和 关 


如 果 要 求 方 阵 中 的 mY 个 整数 全 是 素数 ,是 否 也 存在 方 阵 中 的 n 行 ,an 列 .两 对 角 线 之 
和 均 相 等 ? 尝试 这 一 构想 是 有 趣 的 。 

定义 素数 幻 方 : 全 是 由 素数 构成 的 各 行 .各 列 、 两 对 角 线 各 数 之 和 均 相 等 的 方 阵 。 

为 避免 重复 ,仿照 经 典 3 阶 幻 方 ,约定 素数 幻 方 的 两 对 角 线 两 端 大 数 在 下 ,小 数 在 上 ; 
幻 方 底 边 两 端 ,大 数 在 左 ,小数 在 右 。 


10.6.1 3 阶 素数 幻 方 


如 何 构建 一 个 3 阶 素数 幻 方 ? 
最 简单 的 方法 是 寻找 9 个 素数 组 成 的 等 差 数 列 , 按 大 小 对 应 填 入 “ 洛 书 ” 即 可 。 
例如 ,前 面 求 素数 等 差 数 列 时 知道 最 小 的 9 个 素数 组 成 的 等 差 数 列 为 
199 409 619 829 1039 1249 1459 1669 1879 
把 这 9 个 素数 按 顺序 填 入 图 10-19 所 示 洛 书 即 得 3 阶 素数 幻 方 。 


4 全 2 829 | 1879 | 409 
3 Ei P 619 | 1039 | 1459 
8 1 6 1669 | 199 | 1249 


图 10-19 等 差 素 数列 按 顺 序 填 人 洛 书 的 素数 幻 方 


这 一 素数 幻 方 的 幻 和 为 3117 ,感觉 比 较 大 。 能 否 构 建 一 个 幻 和 比较 小 的 3 阶 素数 
幻 方 ? 
【问题 】 3 阶 素数 幻 方 的 幻 和 最 小 值 为 多 大 ? 
试 构建 幻 和 为 最 小 的 3 阶 素数 幻 方 。 
【思考 】 设 方 阵 正中 数 为 d, 幻 和 为 s, 则 
(中 间 一 行 ) 十 (中 间 一 列 ) 十 (两 对 角 线 ) = 4s 


即 ( 方 阵 所 有 9 个 数 之 和 ) 十 3d 一 4s 
注意 到 方 阵 所 有 9 个 数 之 和 为 3s, 则 有 
3d 一 s 一 4 一 s/3 (1) 


这 意味 着 3 阶 方 阵 中 凡 含 d 的 行 、 列 或 对 角 线 的 3 个 数 中 , 除 正中 数 d 之 外 的 另 两 个 数 与 
d 相差 等 距 , 这 一 性 质 称 为 “等 距 特 性 ”。 

为 此 ,根据 等 距 特 性 设 方 阵 为 

d—x Fw ds 

如 一 忆 d d 十 z 

dF 过 一 入 过 十 六 
其 中 ,x,y,z,w 为 小 于 d 且 互 不 相同 的 正 整 数 。 

为 避免 解 的 重复 ,仿照 经 典 3 阶 幻 方 约定 ,两 对 角 线 两 端 大 数 在 下 , 即 x,y 二 0, 下 底 
行 两 端 大 数 在 左 , 即 yx。 

显 见 , 上述 3X3 方 阵 的 中 间 一 行 、 中 间 一 列 与 两 对 角 线 上 3 数 之 和 均 为 3d。 要 使 左 
右 两 列 、 上 下 两 行 的 3 数 之 和 也 为 d, 当 且 仅 当 
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yy 一 X 十 zw 一 X 十 y (2) 
为 了 建 幻 和 为 最 小 的 3 阶 素数 幻 方 , 需 从 小 到 大 寻找 素数 d, 同 时 找 以 d 为 中 心 的 4 个 


素数 对 : d 一 w,d 十 w;d 一 y,d 十 y;d 一 z,d 十 z;d 一 x,d 十 x。 其 中 x,y,z,w 必须 满足 式 (2) 。 


素数 幻 方 。 


3 列 之 和 与 两 对 角 线 之 和 均 为 177。 


3 阶 素数 幻 方 是 最 小 ( 即 幻 和 最 小 ) 的 3 阶 素数 幻 方 。 0 | 这 Wa 


为 寻找 方便 ,不 妨 把 前 30 个 奇 素数 从 小 到 大 排列 如 下 : 
3 

59 61 67 71 73 79 83 89 9%7 101 103 107 109 113 127 

(1) 选 d==13,17,19,23,29,31, 以 d 为 中 心 的 配对 素数 不 足 4 对 。 

(2) 选 d==37,41,43,47, 以 d 为 中 心 的 配对 素数 有 4 对 ,但 不 满足 式 (2) 要 求 。 

(3) 选 4 一 53, 以 d 为 中 心 的 配对 素数 有 5 对 ,但 没有 4 对 满足 式 (2) 要 求 。 

(4) 选 4 一 59, 以 d 为 中 心 的 配对 素数 有 5 对 ,其 中 满足 式 (2) 要 求 的 4 对 为 
(47,71),(29,89),(17,101),(5,113) 

把 满足 式 (2) 即 能 构成 幻 方 的 这 4 对 依次 填 入 方 阵 , 即 得 如 图 10-20 所 示 的 最 小 3 阶 


不 难 验证 ,图 10-20 的 方 阵 的 9 个 数 都 是 素数 , 且 3 行 之 和 、| 47 | 03 | 1 


29 | 59 | 89 
因为 在 构建 过 程 中 选择 d 是 从 小 往 大 逐个 试验 ,因而 所 得 的 


【编程 拓展 】 


试 在 指定 区 间 [m,n] 寻 找 9 个 素数 ,构建 3 阶 素数 幻 方 : 该 ”图 10-20 最 小 的 3 阶 


素数 幻 方 


方 阵 中 3 行 、3 列 、 两 对 角 线 上 的 各 数 之 和 均 相 等 。 


输入 区 间 m,n, 输 出 基于 该 区 间 素 数 构 建 的 所 有 3 阶 素数 幻 方 。 

1. 设计 要 点 

按 以 上 建 模 与 思路 设计 程序 求解 指定 区 间 [m,nj] 内 素数 构建 的 所 有 3 阶 素数 幻 方 。 
(1) 应 用 试 商法 检测 素数 。 

为 方便 检测 ,设置 a 数组 存储 区 间 [m,n] 中 的 整数 ,二 维 b 数组 存储 3 阶 方 阵 元 素 。 
首先 枚 举 区 间 [m,nj 中 的 奇数 ,判别 一 个 大 于 1 的 奇数 k 是 否 为 素数 。 

若 应 用 试 商法 找 出 素数 k, 则 赋值 a[kj==1。 

(2) 设置 d 枚 举 循 环 。 

建立 方 阵 正 中 数 d 循环 , 枚 举 Lm,n] 中 的 奇数 . 若 d 非 素数 (aLd]=0) , 则 返回 。 

(3) 设置 x,y 枚 举 循环 。 

对 于 每 一 个 素数 d, 枚 举 x,y, 并 按 上 述 两 式 计算 得 z,w。 

若 出 现 y 一 2x, 将 导致 z= 二 y 一 x 二 x;, 方 阵 中 出 现 两 对 相同 的 数 , 显 然 应 予 排除 。 
显然 4 一 w 是 9 个 数 中 最 小 的 ,d 十 w 是 9 个 数 中 最 大 的 。 若 d 一 w 二 m 或 d 十 wn， 


已 超出 所 指定 区 间 [m,nj] 界 限 ,应 予以 排除 。 


(4) 素数 检测 。 
检测 方 阵 中 其 他 8 个 数 d 一 x.d 十 w,d 一 y,d 十 z,d 一 zd 十 y,d 一 w,d 十 x 是 否 同时 为 


素数 ,引用 变量 tl ,t2,tL x* t2 为 8 个 数 的 a 标记 之 积 。 若 tx*t2 二 1, 即 8 个 数 全 部 为 素 
数 ,说明 已 找到 一 个 3 阶 素数 幻 方 解 , 按 方 阵 格 式 赋值 给 二 维 b 数组 后 ,输出 该 3 阶 素数 
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幻 方 并 用 变量 c 统计 和 解 的 个 数 。 
这 样 处 理 , 能 较 快 地 找 出 所 有 解 , 既 无 重复 ,也 无 遗漏 。 
2. 构建 3 阶 素数 幻 方程 序 设计 


// 指 定 区 间 素 数 构建 3 阶 素数 幻 方 
# include < stdio.h> 
# include < math. h> 


void main0 
{ int c,d, j,k,m,n,t,t1,t2,w,x,y,z; 
int a[3000], b[4] [4] ; 
c=0; 
printf(” 请 确定 区 间 m,n: "); scanf("%d,%d”, &m, &n) ; 
if (m% 2==0) mt+; 
if (mC 3) m= 3; 
for (k=m;k<=n;k++) a[k]=0; 
for (k=m;k<=n;k+=2) 
{ for(t=0,j=3;j<=sqrt(k);j+=2) 
if(k% j==0) {t=1;break;} 
if (t==0) a[k]=1; // 车 k 为 素数 ,标注 afk]=1 
} 
for(d=m;d<=n- 8;d=d+2) 
{ ifa[dj==0) continue; // 排 除 正中 数 d 为 非 素数 
for (x=2;x<=d- 3;x+=2) 
for (y=x+ 2;yC=d-1;y+=2) 
{ z=y-xw x+ty; 
if(y==2xx || dwem || d+w> n) continue; // 控 制 幻 方 的 素数 范围 
b[1] [1]=d- x;b[1] [2]= d+ w;b[1] [3]= d-y; 
b[2] [1]= d- z;b[2] [2]= d;b[2] [3]= d+ z; 
b[3] [1]= d+ y;b[3] [2]= d- w;b[3] [3]= d+ x; 
t1=a[ld-w] * a[ld+ w] * a[ld- z] * a[d+ z]; 
t2=ald- x] * ald+ x] * a[d- y] * a[d+ y]; 


if(t1x t2==1) // 检 测 其 余 8 个 均 为 素数 
{ printf(” NO%d:\n",++o); // 统 计 并 输出 3 阶 素数 幻 方 
RR i 
for (k=1;kKK=3;kr+) // 控 制 输出 幻 方 3 行 
{ for(j=1;j<=3;j++) // 和 输出 每 一 行 的 3 个 元 素 
printf(" | %3d ",b[k][j]); 
printf(" | \n"):; 


if(k<=2) printf(" 上 一 一 十 一 一 十 一 一 | \n"); 
} 
sd 
if(m=5 && c==1) printf(” 素数 幻 方 幻 和 最 小 为 :%d\n",3* qd); 
else printf(” 素数 幻 方 幻 和 :%d\n",3* d); 


402 


第 10 齐 煞 阵 天 地 关 观 | 


} 
} 
printf(” 共 可 建 %d 个 素数 幻 方 。\n",c) ; 
} 


3. 程序 运行 示例 与 说 明 


请 确定 区 间 m,n: 3,120 NO 2: 
NO 1: 
59 113 41 
47 113 17 
53 71 89 
29 59 89 
101 29 83 
101 5 71 
素数 幻 方 幻 和 :213 


素数 幻 方 幻 和 最 小 为 :177 共 可 建 2 个 素数 幻 方 。 


运行 程序 ,可 得 指定 区 间 内 素数 所 能 构建 的 所 有 素数 幻 方 解 。 以 上 示例 的 第 一 个 幻 
方 的 幻 和 为 177, 是 幻 和 最 小 的 3 阶 素数 幻 方 。 

运行 程序 ,输入 100,1000, 可 用 区 间 [100,1000] 中 的 素数 快捷 构建 58 个 3 阶 素数 
约 衣 5 

以 上 程序 应 用 表格 线 输出 了 幻 方 的 方 格 ,使 得 幻 方 更 为 清晰 。 为 简便 考虑 ,以 下 构建 
幻 方 时 将 省 略 输出 方 格 。 

指定 区 间 的 上 限 为 n, 程 序 设置 关于 nm 的 三 重 循环 ,算法 的 时 间 复 杂 度 为 OCnz ) 。 

对 于 n 志 3000 ,程序 运行 还 是 快捷 的 。 

变通 : 请 修改 程序 ,构建 指定 幻 和 的 3 阶 素数 幻 方 。 

【连续 素数 幻 方 】 

能 否 用 9 个 连续 素数 ( 即 这 9 个 素数 中 没有 其 他 素数 ) 构 建 幻 方 ? 这 是 一 个 有 难度 也 
极 具 挑战 性 的 课题 。 

世界 数学 科普 大 师 马 丁 。 伽 德 纳 曾 悬 赏 第 一 个 用 连续 素数 构造 3 阶 幻 方 的 作者 。 

一 个 叫 哈里 。 纳尔逊 的 通过 程序 设计 一 举 解 决 了 这 一 难题 ,他 提供 的 22 个 解答 中 ， 
其 中 一 个 如 下 所 示 。 


1480028201 1480028129 1480028183 
1480028153 1480028171 1480028189 
1480028159 1480028213 1480028141 


可 以 验证 ,这 9 个 素数 之 间 确 实 没 有 其 他 素数 。 同 时 ,容易 验证 该 方 阵 中 的 3 行 3 列 
与 两 对 角 线 之 和 (只 需 用 这 9 个 数 的 后 3 位 运算 即 可 ) 都 等 于 4440084513。 有 兴趣 的 读者 
不 妨 自己 设计 程序 一 试 。 
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10.6.2 4 阶 素数 幻 方 


试 在 指定 区 间 [m,n] 中 寻找 16 个 素数 ,构建 一 个 4 阶 素数 幻 方 : 该 方 阵 中 4 行 、4 
列 、 两 对 角 线 上 的 4 个 数 之 和 ( 幻 和 ) 均 相等 。 
输入 区 间 m,n, 构 建 基 于 该 区 间 素 数 构建 的 4 阶 素数 幻 方 。 


1. 构建 设计 要 点 

构建 4 阶 素数 幻 方 , 建 模 不 可 能 如 3 阶 那样 简单 ,因为 4 阶 没 有 3 阶 所 特有 的 “等 距 
特性 ”, 必 须 另辟蹊径 。 

下 面 依据 4 阶 对 角 正 交 拉 丁 方 同时 应 用 素 4 段 构建 4 阶 素数 幻 方 。 

设置 p 数组 存储 区 间 [m,n] 中 的 奇数 ,a 数组 存储 素 4 段 的 首 数 , 二 维 b 数组 存储 4 
阶 方 阵 元 素 。 

(1) 选择 一 个 4 阶 对 角 正 交 拉 丁 方 (如 图 10-2(a) 所 示 ), 作 为 构建 4 阶 素数 幻 方 的 
依据 。 

(2) 设置 素数 检测 数组 。 

为 方便 素数 检测 ,设置 数组 p[ 门 ,对 [m,n] 中 的 奇数 i 应 用 试 商法 给 p[ 避 赋值 : 若 i 为 
素数 ,p[ 记 =1; 否 则 p[ 记 ==0。 

(3) 素 4 段 。 

定义 : 如 果 在 指定 区 间 [m,n] 存 在 成 等 差 数 列 的 4 个 素数 , 则 把 这 4 个 素数 称 为 该 区 
间 的 一 个 等 差 素 数 4 项 ,简称 素 4 段 。 

例如 ,5,11.17,23 是 公差 为 6 的 等 差 素 数 ,就 是 区 间 [3 .30] 中 的 一 个 素 4 段 。 素 4 段 
中 首先 可 以 排除 唯一 偶 素 数 2, 只 需 考 察 [m,m] 中 的 所 有 奇 素数 。 

(4) 枚 举 循环 设计 要 点 。 

设 i 为 素 4 段 的 首 项 ,d 为 素 4 段 的 公差 ,注意 到 4 三 d(n 一 m)/3,m 考 in 一 12, 则 
设置 d,i 双重 枚 举 循 环 , 确 保 [m,nj 中 每 不 同 的 4 个 奇数 一 组 选择 , 既 无 遗漏 ,也 无 重复 。 
这 一 点 很 重要 ,如 果 枚 举 循环 设置 不 精准 ,出 现 遗 漏 或 重复 ,将 直接 导致 结果 错误 。 

在 双重 枚 举 循环 中 对 首 项 为 i 公差 为 d 的 4 个 奇数 进行 素数 检测 ,车 

pLij *p[i+ dj]jx*p[i+2x*d]x*xp[i+3*d]=1andi+3*d<=n 
说 明 在 区 间 内 4 个 奇数 i,i 十 d,i 十 2d,i 十 3d 均 为 素数 , 即 为 一 个 素 4 段 ,并 把 该 素 4 段 的 
首 项 i 赋值 给 a 数组 元 素 a(c) ,这 里 ,ce 为 素 4 段 的 序号 。 

(5) 控制 素 4 段 不 能 重复 。 

要 特别 注意 构建 4 阶 素数 幻 方 的 4 个 素 4 段 中 不 能 出 现 重复 项 。 

例如 ,(5,11,17,23) 与 (11,17,23,29) 都 是 公差 为 6 的 素 4 段 ,但 在 这 两 个 素 4 段 中 
出 现 了 重复 项 ,如 果 填 人 方 阵 则 会 导致 方 阵 中 有 相同 素数 ,这 是 不 允许 的 。 

为 了 避免 产生 的 素 4 段 出 现 重复 项 ,每 得 到 一 个 公差 为 d 首 项 为 i 的 4 个 素数 时 ,要 
与 前 面 所 得 到 的 所 有 k 个 素 4 段 的 各 项 逐个 进行 比较 , 若 出 现 有 重复 项 则 而 放弃 ; 若 没 有 
重复 项 ,说 明 首 项 为 i 公差 为 d 的 4 个 素数 是 一 个 新 的 素 4 段 ,i 赋值 给 a 数组 。 

(6) 把 4 个 素 4 段 填 人 选择 的 对 角 正 交 拉 丁 方 。 

构建 4 阶 素数 幻 方 需要 同 为 公差 d 且 互 相 之 间 没 有 任何 相同 项 的 4 个 不 同 的 素 4 
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段 : a(1),a(2),a(3),a(4)。 
设 选 择 的 4 阶 对 角 正 交 拉丁 方 的 十 位 数字 为 1, 个 位 数字 为 j, 在 该 单元 格 填 入 4 个 不 
同 的 素 4 段 项 a 中 十 (一 Dd(1<i,j 二 4) ,得 4 阶 方 阵 ,如 表 10-2(b) 所 示 。 
表 10-2 4 阶 对 角 正 交 拉 丁 方 及 素 4 段 填 入 表 


(a) (b) 
22 | 43 | 34 | 11 a(2) 十 d a(4) 十 2d a(3) 十 3d a(1) 
31 | 14 | 23 | 42 a(3) a(1) 十 3d a(2) 十 2d a(4) 十 d 
13 | 32 | 41 | 24 a(1) 十 2d a(3) 十 d a(4) a(2) 十 3d 
44 | 21 | 12 | 33 a(4) 十 3d a(2) a(1) 十 d a(3) 十 2d 


易 知 方 阵 中 每 行 、 每 列 、 每 对 角 线 之 和 均 为 a(1) 十 a(2) 十 a(3) 十 a(4) 十 6d, 满 足 4 行 、 
4 列 、 两 对 角 线 上 的 4 个 数 之 和 均 相 等 的 要 求 。 

为 避免 重复 ,约定 a(1) 一 a(2) 一 a(3) 一 a(4) ,满足 幻 方 的 两 对 角 线 大 数 在 下 、 小 数 在 
上 ,下 底 边 大 数 在 左 、 小 数 在 右 的 约定 。 

(7) 控制 同 公差 的 数量 。 

当 区 间 [m,no] 太 小 时 ,公差 同 为 d 的 素 4 段 可 能 没有 4 个 , 则 无 法 构建 。 

当 区 间 [m,nj 很 大 时 ,公差 同 为 d 的 素 4 段 的 个 数 c 可 能 多 于 4 个 , 则 在 c 个 中 任 取 4 
个 都 可 以 构建 ,因而 导致 产生 的 4 阶 素数 幻 方 数量 比较 多 。 

为 简单 计 , 当 公差 同 为 d 的 素 4 段 的 个 数 c 达到 4 个 时 , 即 构建 并 和 输出 一 个 4 阶 素数 
幻 方 ,然后 进入 下 一 个 公差 d 的 素 4 段 搜索 。 

(8) 比较 幻 和 的 最 小 值 。 

每 一 个 公差 d 最 多 输出 一 个 幻 方 , 比 较 幻 方 的 幻 和 ,可 得 所 构建 的 素数 幻 方 的 幻 和 的 
最 小 值 。 


2. 构建 4 阶 素数 幻 方程 序 设计 


// 应 用 区 间 [m,n] 上 的 素数 构建 4 阶 素数 幻 方 

# include < stdio. h> 

# include < math. h> 

voidmain0 

{ int i,j,c,d,k,m,n,s,t,z,min,a[5],b[5] [5],p[10000]; 
printf(” 请 输入 区 间 m,n: "); scanf ("%d,%d”, &m, &n) ; 
if (m% 2==0) mt +; 
for (i=m;i<=n;i= i+2) 
{ t=1;z= (int)sqrt(i); 


for (j=3;j<=z;j=j+2) // 试 商 判 别 法 检测 素数 
if(i% j==0) {t=0;break;} 
if(t==1) p[i]=1; // 车 [m,n] 中 奇数 i 为 素数 时 标记 p[i]=1 
| 
min= 10000; 
for (d= 4;d<= (n-m) /3;d= d+ 2) // 双 重 di 枚 举 
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{ t=1;c=0; 


for (i=m;i<=n- 12;i= i+ 2) 
ifp[i*p[i+dl*p[i+2x*dj*p[i+3*dlj==1) ”// 找 到 公差 为 d 的 4 个 素数 
{ for(t=1,k=1;k<=e;k++) 


for (j=0;j<=3;j++) 


if(i- (alk]+ j* d)==0) t=0; // 有 重复 项 的 素 4 段 不 考虑 
if(t==1) {c++ ;a[c]=1i;} // 出 现 新 素 4 段 ,给 a 数组 赋值 
if(c==4) // 达 到 4 个 素 4 段 即 构建 


{ s=a[1]+a[2]+a[3]+a[4]+6x* di; 
b[1] [1]= a[2]+ d;b[1] [2]= a[4]+ 2* d;b[1] [3]= a[3]+ 3*x d;b[1] [4]= a[1]; 
b[2] [1]= a[3] ;b[2] [2]= a[1]+ 3* d;b[2] [3]= a[2]+2* d;b[2] [4]=a[4]+d; 
b[3] [1]=a[1]+2* d;b[3] [2]= a[3]+ d;b[3] [3]= a[4];b[3] [4]= a[2]+ 3* d; 
b[4] [1]= a[4]+ 3* d;b[4] [2]= a[2];b[4] [3]=a[1]+ d;b[4] [4]= a[3]+ 2* d; 


for (i=1;i<=4;i++) // 控 制 输 出 幻 方 4 行 
{ for(j=1;j<=4;j++) // 输 出 每 一 行 的 4 元 素 
printf(” %3d",b[i][j]); 


printf("\n"); 


} 


printf(" 


i=n;break; 


| 


幻 和 为 :%d (d=%d): \n"s,d); 


if(sCmin) min=s; 


// 输 出 一 个 解 后 跳出 , 试 下 一 个 d 


printf(” ”以 上 幻 方 幻 和 最 小 为 :%d\n", min) ; 


| 


3. 程序 运行 示例 与 说 明 


请 输入 区 间 m,n: 3, 200 


19 151 83 5 
47 41 31 139 
29 59 127 43 

e307 

幻 和 为 :258 (d= 12) : 


a 83109 7 
149 107 5 (3 0771 33 
59 79 131 67 4 23 101 
270 1 1970 
43 23 89 ” 幻 和 为 :234 (d=30): 


幻 和 为 :322 (d=18): ”以 上 幻 方 幻 和 最 小 为 :234 


前 面 构建 3 阶 素数 幻 方 的 9 个 素数 中 ,最 大 素数 为 113。 以 上 运行 输出 的 第 3 个 4 阶 
素数 幻 方 可 知 ,用 113 以 内 的 素数 也 可 以 构建 4 阶 素数 幻 方 ,出 乎 意料 。 该 幻 方 的 幻 和 为 
234, 很 可 能 是 幻 和 最 小 的 4 阶 素数 幻 方 。 

程序 应 用 [3,200] 区 间 上 的 素数 构建 了 3 个 4 阶 素数 幻 方 ,但 不 能 确定 这 就 是 该 区 间 
上 的 素数 所 能 构建 的 所 有 4 阶 素数 幻 方 。 也 就 是 说 ,应 用 [3,200] 区 间 上 的 素数 还 可 能 构 


建 以 上 3 个 之 外 其 他 不 同 的 4 阶 素数 幻 方 。 


应 用 以 上 类 似 方法 , 即 根据 5 阶 对 角 正 交 拉 丁 方 及 素 5 段 ,也 可 构建 5 阶 素数 幻 方 。 
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10.7 积 幻 方 


通常 所 说 的 n 阶 幻 方 是 由 1 一 nm? 这 些 连续 自然 数 构成 的 和 幻 方 。 本 节 探 讨 的 积 幻 方 
不 可 能 由 连续 自然 数 构造 , 均 属 广义 幻 方 。 

积 幻 方 定义 : 如 果 nXn 方 阵 的 各 行 . 各 列 、 两 对 角 线 上 各 数 的 积 都 相等 ,该 方 阵 称 为 
n 阶 积 幻 方 ,相等 的 乘积 称 为 该 积 幻 方 的 幻 积 。 

事实 上 ,把 任意 等 比 数列 的 连续 n? 项 按 n 阶 幻 方 各 元 素 的 大 小 顺序 填 入 即 可 得 到 一 
个 n 阶 积 幻 方 。 

例如 ,把 首 项 为 1 公 比 为 2 的 等 比 数列 前 9 项 1,2,4,…,256 对 应 填 人 3 阶 幻 方 即 可 
得 到 一 个 3 阶 积 幻 方 。 


4|19|2 8 |256| 2 


3|5|7| .|4|16|64 


&|l1|ls 128| 1 | 32 


该 3 阶 积 幻 方 的 幻 积 为 22 一 4096。 如 果 用 公 比 为 3 的 等 比 数列 构建 积 幻 方 ,其 幻 积 
会 更 大 。 

构建 较 小 幻 积 的 积 幻 方 ,必须 创新 构建 算法 。 
10.7.1 3-4 阶 积 幻 方 


如 何 依 据 正 交 拉 丁 方 构建 幻 积 比较 小 的 积 幻 方 ? 

【问题 1】 构建 幻 积 较 小 的 3 阶 积 幻 方 。 

在 3X3 方 阵 的 9 个 方 格 中 填 入 9 个 互 不 相等 的 整数 ,要 求 方 阵 的 3 行 、3 列 及 两 对 角 
线 上 3 数 之 积 相 等 , 且 其 幻 积 小 于 22 一 4096 。 

【思考 】 借助 3 阶 正 交 拉丁 方 。 

依据 3 阶 正 交 拉丁 方 ,选择 等 比 数列 构建 ,这 是 构建 3 阶 积 幻 方 的 基本 思路 。 

选择 以 下 3 阶 正 交 拉丁 方 , 取 十 位 数字 (1,2,3) 对 应 一 个 奇数 a 的 宕 (1,a'a); 取 个 
位 数字 (1,2,3) 对 应 一 个 偶数 b 的 宕 (1.b,b?) ,得 


21 | 33 | 12 aX1 |axb’ 1xb 


13|122|31| 5 | 1Xb | ax | wx1 


32 | 11 | 23 axb | 1X1l | axb: 


可 知 该 方 阵 的 9 个 元 素 互 不 相等 , 且 每 行 、 每 列 、 两 对 角 线 上 的 3 


个 数 之 积 均 等 于 a Xb , 即 为 一 个 3 阶 积 幻 方 。 | 36 这 
为 了 使 幻 积 尽 可 能 小 ,应 选择 ab 尽 可 能 小 。 例 如 ,选择 a= 4|6|9 


3,b 二 2, 可 得 3 阶 积 幻 方 如 图 10-21 所 示 。 可 知 该 积 幻 方 的 每 行 、 


每 列 、 两 对 角 线 上 的 3 个 数 之 积 均等 于 2 X 3 二 216, 显 然 幻 积 
216 二 4096。 图 10-21 3 阶 积 幻 方 


18 1 12 
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以 上 所 得 幻 积 为 216 的 3 阶 积 幻 方 很 可 能 是 幻 积 最 小 的 积 幻 方 。 

若 输入 的 a,b 为 5,2 或 3,4 等 级 ,构建 的 积 幻 方 的 幻 积 会 大 一 些 。 

【问题 2】 构建 4 阶 积 幻 方 。 

在 4X4 方 阵 的 16 个 方 格 中 填 入 16 个 互 不 相等 的 整数 ,要 求 方 阵 的 4 行 .4 列 及 两 对 
角 线 上 4 数 之 积 相等 。 

【思考 】 试 依据 4 阶 对 角 正 交 拉 丁 方 选择 适当 数据 构建 。 

选择 表 10-2 左边 所 示 对 角 正 交 拉丁 方 为 构建 依据 ,同时 确定 p 数组 (1,2,3,4) 对 应 
十 位 数字 , 即 前 数 1,2,3,4; 确 定 q 数组 (1,5,6,7) 对 应 个 位 数字 , 即 后 数 1,2,3,4。 

得 乘积 方 阵 如 表 10-3 所 示 。 


表 10-3 乘积 方 阵 表 


22 | 43 | 34 | 11 2X5 4X6 3X7 1x1 
31 | 14 | 23 | 42 3X1 1X7 2X6 4X5 
13|32|141|24| 一 1X6 3X5 4X1 2X7 
44 | 21 | 12 | 33 4X7 2X1 1X5 3X6 


完成 乘积 即 得 幻 积 为 7! 二 5040 的 4 阶 积 幻 方 如 图 10-22 所 示 。 可 知 方 阵 的 16 个 元 
素 互 不 相等 ,上 且 每 行 、 每 列 与 两 对 角 线 上 的 4 个 数 之 积 均 等 


于 71. 10 | 24|2|1 
以 上 确定 的 p 数 组 为 1,2,3,4;q 数组 为 1,5,6,7, 这 样 既 | 3 | 7 | 2 | 20 
可 确保 积 幻 方 中 无 重复 数 ,也 使 得 幻 积 比较 小 。 6 | 邓 | 当中 这 
这 里 的 幻 积 为 7! 二 5040 是 不 是 4 阶 积 幻 方 中 最 小 的 幻 Be | | | 
职 , 尚 无 法 确认 。 很 有 可 能 存在 幻 积 小 于 5040 的 4 阶 积 幻 方 。 上 


图 10-22 幻 积 为 7! 的 
10.7.2 一 类 奇数 阶 积 幻 方 4 阶 积 幻 方 
在 构建 3,4 阶 积 幻 方 基础 上 ,本 节 应 用 对 角 正 交 拉 丁 方 构建 非 3 倍数 的 奇数 阶 积 
幻 方 。 


1. 设计 要 点 

首先 依据 上 节 构 建 的 n(n%3 二 0 的 奇数 ) 阶 对 角 正 交 拉 丁 方 。 然 后 确立 对 应 * 积 ”的 
两 个 数组 p: 1,2,…,n;q: 1.n 十 1,…,2n 一 1 提供 的 数据 .构建 n 阶 积 幻 方 。b,c 两 数组 
的 数据 选择 直接 关系 到 幻 积 的 大 小 ,要 注意 避免 重复 。 

显然 ,所 构建 n 阶 积 幻 方 的 幻 积 为 (2n 一 1)1。 


2. 程序 设计 


// 构 建 n(n% 3>0 的 奇数 ) 阶 积 幻 方 

# include < stdio. h> 

void main0 

{ int ij,nh,vt,b[50][50],p[50],q[50] ; 
printf(" 请 输入 阶 数 n:"); scanf("%d",&n); 


408 


if(n%2==0 || n% 3==0) return; 


p[1]=q[1]=1; 
for(i=2;iK=nii++) 
{p[i]=i;q[i]= i+n-1;} //p,q 数 组 赋值 
t= 10; 
if (n> 10) t= 100; // 构 建 n 阶 对 角 正 交 拉丁 方 


for(i=1;i<=n;i++) b[i] [1]=ix t+i; 
for(i=1;i<=n;it++) 
for(j=2;j<=n;j++) 
{ hit nt))/2x (OD; vitj-1; 
if (h> n) h=h%n; 
if(h==0) h=n; 
if (Wn) v=v%ni 
if(v==0) v=n; 
b[h] [j]=i x t+v; 
} 
printf(” %d 阶 积 幻 方 : \n",n); 


for (i=1;i<=n;i++) // 输 出 n 阶 积 幻 方 


{ for(j=1;j<=n;j++) 
printf ("% 5d", p[b[i] [j]/t] * qfb[i] [j]% +]); 
printf ("\n"); 
} 
printf(” 幻 积 为 :%d! \n",2* rm); 
} 


3. 程序 运行 示例 与 说 明 


请 输入 阶 数 n:5 
5 阶 积 幻 方 : 
12430 18 2 

2 98 7 “3. M0 
7 0 
"0 
45 14 4 8 18 

幻 积 为 :9! 


第 /0 章 笋 险 天 地 六 观 | 


当 输 入 n 一 5 时 , 即 生 成 并 输出 一 个 5 阶 积 幻 方 。 以 上 5 阶 积 幻 方 很 可 能 是 幻 积 最 小 


的 5 阶 积 幻 方 。 
当 输 入 n= 二 7 或 11 时 , 即 生成 并 输出 一 个 7 阶 或 11 阶 积 幻 方 。 


10.8 反 幻 方 


本 节 介 绍 的 反 幻 方 ,是 幻 方 天 地 中 的 一 个 有 趣 的 点 组 。 


3 阶 幻 方 是 最 简单 的 幻 方 ,如 果 把 经 过 旋转 和 反射 以 后 产生 的 幻 方 看 作 相 同 的 幻 方 ， 
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那么 ,3 阶 幻 方 只 有 一 种 展现 方法 。 

美国 著名 幻 方 大 师 马丁 。 加 德 纳 发 现 : 将 1,2,3,…,9 这 9 个 数 随意 填 进 3 阶 方 阵 中 
的 9 个 格子 里 ,一般 都 会 出 现 一 些 行 或 列 或 对 角 线 上 数字 之 和 相等 ,于 是 他 提出 疑问 : 是 
否 存在 一 个 方 阵 , 它 的 任 一 行 , 任 一 列 或 对 角 线 上 的 数字 之 和 都 互 不 相等 呢 ? 

这 就 是 反 幻 方 问题 ,经 过 研究 他 终于 找到 了 这 种 反 幻 方 ,有 趣 的 是 该 反 幻 方 中 的 9 个 
数 竞 形成 了 按 顺 序 咬 接 的 “一 条 龙 ”。 


定义 n 阶 反 幻 方 : 把 1,2,…,n? 填 和 人 nXn 方 阵 , 使 得 n 行 之 和 、n 列 之 和 与 两 对 角 线 
之 和 共 2n 十 2 个 和 互 不 相等 。 


10. 8.1 3 阶 反 幻 方 


所 谓 3 阶 反 幻 方 ,就 是 把 1,2,…,9 填 和 人 3X3 方 阵 ,使 得 3 行 之 和 、3 列 之 和 与 两 对 角 
线 之 和 共 8 个 和 互 不 相等 。 

为 了 方便 统计 不 同 3 阶 反 幻 方 的 个 数 , 同 3 阶 幻 方 的 约定 : 方 阵 两 对 角 线 两 端 ,大 数 
在 下 ; 底 行 两 端 ,大 数 在 左 。 

试探 求 并 统计 不 同 的 3 阶 反 幻 方 共 有 多 少 个 。 统 计 并 输出 其 中 方 阵 正中 数 为 指定 数 
字 的 3 阶 反 幻 方 。 

1. 设计 要 点 

设置 3 个 一 维 数组 : f{[xj 为 统计 数字 x 的 个 数 ;g[k]j 为 9 位 数 的 第 k 位 的 数字 ;hLk] 
为 方 阵 中 8 个 和 中 的 第 k 个 和 。 

注意 到 整数 1,2,…,9 在 3X3 方 阵 中 各 出 现 一 次 ,其 和 必 为 9 的 倍数 ,因而 应 用 枚 举 
设计 ,循环 变量 a 从 最 小 的 123456789 至 最 大 的 987654321 取 值 , 步 长 可 取 为 9。 

对 每 一 个 9 位 数 a 应 用 逐步 整除 与 取 余 分 离 其 9 个 数字 x, 并 用 人 [xj 十 十 ;统计 数字 
x 的 个 数 ,用 g[kj 二 x; 标 注 a 的 从 高 位 开始 的 第 k 位 数字 为 x。 

整数 a 的 高 3 位 gL1] 一 g[L3] 填 人 方 阵 的 上 行 , 中 3 位 g[L4] 一 g[6] 填 人 方 阵 的 中 行 ， 
低 3 位 gL7] 一 gL9] 填 和 人 方 阵 的 下 行 。 

然后 实施 3 重 检测 。 

(1) 若 拒 襄 !=1(Gi 王 1,2,…,9) ,说 明 数 字 i 重复 或 没有 , 则 返回 。 

(2) 若 gL1]>gL9] || gL3] 之 g[L7] || gL9]>gL7] ,不 满足 约定 , 则 返回 。 

(3) 计算 3 行 、3 列 与 两 对 角 线 之 和 h[1]~h[8] ,比较 这 8 个 和 , 若 出 现 相等 , 则 与 反 
幻 方 的 定义 不 符 , 返 回 。 

通过 以 上 3 重 检测 ,所 得 反 幻 方 用 m 统计 其 个 数 。 

同时 ,用 mn 统计 并 输出 方 阵 正中 为 指定 数字 d 的 3 阶 反 幻 方 。 
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2. 构建 3 阶 反 幻 方程 序 设 计 


// 构 建 正中 格 为 指定 数字 的 3 阶 反 幻 方 
# include < stdio.h> 
# include < math. h> 
voidmain0 
{ inta,d,i, j,k,m,n,t,x,y,f[10],g[10],h[10]; 
mn=0; 
printf(” 请 指定 反 幻 方正 中 数字 :") ;scanf (%%d",&d) ; 
for (a= 123456789;a< = 987654321;a= at 9) // 步 长 为 9 枚 举 9 位 数 
{ y=a; 
for(i=1;i<=9;i++) f[i]=0; 
for (k=9;k>=1;k-—) 
{ x=y%10;f[x]++; 
g[k]=x;y=y/10; // 分 离 a 各 个 数字 并 用 f,g 数 组 统计 


} 
for (t=0, i=1;i<=9;i++) 
if(f[i]!=1) {t=1;break;} // 数 字 位 9 出现 不 为 1 次 ,返回 
if(t==1 || g[1]>g[9] || g[3]>g[7] || g[9]>g[7]) continue; 
h[1]=g[1]+ g[2]+ g[3] ;h[2]= g[4]+g[5]+g[6];h[3]= g[7]+ g[8]+ g[9]; 
h[4]=g[1]+ g[4]+ g[7] ;h[5]= g[2]+ g[5]+ g[8];h[6]= g[3]+ g[6]+ g[9]; 
h[7]=g[1]+ g[5]+ g[9] ;h[8]= g[3]+ g[5]+ g[7] ;t=0; 
for (k= 1;k<=7;k++) 
for(j=k+1;j<=8;j++) 


if (h[j]==h[k]) {t=1;k=7;break;} //8 个 和 中 出 现 相 同 ,返回 
if (t==0) 
ms // 统 计 3 阶 反 幻 方 个 数 
if (g[5]==d) 
{ printf(” %d",a); // 统 计 并 输出 中 央 为 指定 数 的 反 幻 方 


if(++n%5==0) printf ("\n"); 
} 
} 
} 
printf("\n 3 阶 反 幻 方 共有 %d 个 解 。\n",m ; 
printf(” 其 中 方 阵 正中 为 %d 的 共有 以 上 %d 个 。\n",d,n); 
} 


3. 程序 运行 结果 与 变通 


请 指定 反 幻 方正 中 数字 :5 

123657984 123658947 123658974 123856947 123856974 
674152938 714653928 721653948 732654918 734651928 
742351968 743251968 763251948 

3 阶 反 幻 方 共 有 3120 个 解 。 

其 中 方 阵 正中 为 5 的 共有 以 上 328 个 。 
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上 述 程序 输出 了 所 有 方 阵 正中 格 为 指定 数字 5 的 328 个 反 幻 方 ,还 统计 了 所 有 不 同 
的 3 阶 反 幻 方 共有 3120 个 。 

其 中 解 123894765 即 为 幻 方 大 师 马丁 。 加 德 纳 发 现 的 咬 接 成 “一 条 龙 ” 的 3 阶 反 
弥 方 ， 

变通 : 试 求 3 阶 反 幻 方 的 8 个 和 之 和 的 最 大 值 与 最 小 值 。 

在 所 有 的 3 阶 反 幻 方 中 ,与 3 阶 幻 方 比较 ,最 多 有 多 少 个 数字 所 在 位 置 相同 ? 


10. 8.2 n 阶 反 幻 方 


对 于 指定 的 正 整 数 n, 构 建 一 个 n 阶 反 幻 方 。 为 了 方便 比较 各 个 和 ,要 求 在 方 阵 右 端 
标明 每 一 行 的 和 ,在 方 阵 下 端 标 明 每 一 列 的 和 ,在 方 阵 下 端 左右 处 标明 两 对 角 线 之 和 。 

构建 n 阶 反 幻 方 ,关键 要 分 析 归 纳 出 反 幻 方 的 构造 特点 。 

前 面 按 顺 序 咬 接 的 “一 条 龙 ” 的 规律 并 不 可 推广 到 一 般 的 mn 阶 。 例 如 , 按 顺 序 顺 时 针 
旋转 规律 构建 的 4 阶 方 阵 就 出 现 多 个 和 相等 的 行 或 列 ,并 不 构成 反 幻 方 。 

1. 设计 要 点 

设置 二 维 a 数组 存储 方 阵 元 素 ;一 维 x,y 数组 分 别 存储 方 阵 的 横行 和 与 纵 列 和 。 

按 n 分 为 奇数 与 偶数 两 类 , 按 不 同 规律 分 别 构建 。 

(1) 当 mn 为 奇数 时 。 

第 1 行 依次 为 前 n 个 奇数 ;第 2 行 依次 为 前 n 个 偶数 ;第 3 行 依次 为 第 2 组 n 个 奇 
数 ;第 4 行 依次 为 第 2 组 n 个 偶数 ;以 此 类 推 至 第 n 一 1 行 。 最 后 一 行 依次 为 最 后 n 个 
整数 。 

这 样 配置 ,可 在 确保 n 行 与 n 列 的 和 互 不 相等 的 同时 ,成 功 实现 两 对 角 线 的 和 与 这 
2n 个 行列 和 互 不 相等 。 

(2) 当 n 为 偶数 时 。 

前 n 一 1 行 按 行 的 顺序 从 小 到 大 配置 , 剩 下 的 第 n 行为 最 后 n 个 整数 。 显 然 ,n 行 的 
和 互 不 相等 。 

最 后 调整 最 后 一 行 中 的 n 个 整数 的 顺序 : 把 n/2 个 奇数 按 逆序 依次 安排 在 前 n/2 
列 ; 然 后 把 n/2 个 偶数 按 逆序 依次 安排 在 后 n/2 列 。 这 样 调整 ,可 实现 n 列 与 两 对 角 线 之 
和 互 不 相等 ,以 构成 反 幻 方 。 

(3) 验证 2n 十 2 个 和 是 否 存在 相等 。 

为 了 实现 反 幻 方 的 要 求 ,程序 应 用 x 数组 统计 各 行 的 和 ,y 数组 统计 各 列 的 和 , 另 应 
用 t,z 统 计 方 阵 的 两 对 角 线 之 和 。 

为 方便 比较 ,把 这 2n 十 2 个 和 中 y 数 组 之 外 的 n 十 2 个 和 赋值 至 y 数 组 。 若 未 出 现 相 
等 ,说 明 这 2n 十 2 个 和 互 不 相等 ,满足 反 幻 方 的 要 求 , 则 输出 该 反 幻 方 。 

(4) 为 更 明了 ,在 n 阶 反 幻 方 的 右 端 增加 一 列 , 打 印 相 应 行 的 和 。 

在 n 阶 反 幻 方 的 下 端 增加 一 行 ,打印 相应 列 的 和 。 该 行 的 首尾 两 数 为 方 阵 两 对 角 线 
之 和 。 
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2. 构建 mn 阶 反 幻 方程 序 设计 


// 构 建 指定 的 n 阶 反 幻 方 
# include < stdio.h> 
void main0 
{ int ij,mt,x[100],y[100],z,b[31][31] ; 
printf(” 请 输入 阶 数 n(2< n< 30) :"); scanf("%d",&n); 
if (n% 2==0) // 构 造 偶 数 阶 反 幻 方 


b[i] [j]= (i-1) * n+tj; 
=n/2;j++) b[n] [j]=nxn-2x j+1; 
=n/2;j++) b[n][j+m/2]=nxnr2x (j-1):; 


else // 构 造 奇数 阶 反 幻 方 
{ for(i=1;i<=n-1;i++) 
for (j=1;j<=n;j++) 
if (i%2>0) b[i][j]= (i-1) x* nt2x j-1; 
else b[i][j]= (i-2)*nt2x ji; 
for (j=1;j<=n;j++) b[n] [j]= -TD*nrj; 


} 

for(i=1;iK=nii++) {x[i]=y[i]=0;} 

for (z=0, t=0, i=1;i<=n;i++) // 检 验 是 否 为 反 幻 方 

for (j=1;j<=n;j++) 

{ x[i+=b[i][j];y[i]+=b[j][i]; //x 为 横行 和 ,y 为 纵 列 和 
if(i==j) z+=b[i][j]; 
if(it j==n+1) t+=b[i] [j]; //z,t 为 对 角 线 和 

} 

y[0]=t;y[n+ 们 =z; // 对 角 和 分 别 置 于 纵 列 和 两 端 

for(i=n+2;i<=2# nt1;i++) y[i]=x[i-n-1]; 

for (t=0, i=0;i<=2x n;it+) // 比 较 2n+2 个 和 是 否 存 在 等 和 


for (j=i+1;j<=2xnt1;jt+) 
if (y[i]==y[j]) {t=1;break;} 
if (t==0) // 无 任何 等 和 , 则 输出 反 幻 方 
{ printf(” %d 阶 反 幻 方 :\n",n); 
for(i=1;iK=nii++) 
{ printf(" 思 
for (j=1;j<=n;j++) printf("%4d",b[i] [j]); 


printf(" |%4d\n", x[i]); // 每 行 右 端 数 为 行 和 
} 
for(j=0;j<=n+2;j++) printf("-—-——"); 
printf ("\n"); 
for (j=0;j<=n;j++) printf ("% 4d", y[j]); // 末 行 数 为 列 和 及 对 角 线 和 
printf(” %4d\n",y[n+ 们 ); 
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3. 程序 运行 示例 与 说 明 


请 输入 阶 数 n(2< n< 30) :6 


6 阶 反 幻 方 : 请 输入 阶 数 n(2< n< 30) :5 
7 0 0 (| 5 阶 反 幻 方 : 
9 0 A 2. 0 0 
次 包 生息 多 0 
0 有 
站 2027223 3 1 15 4 6 1920 9 
3 33 36 34 2 | 20 2 .222413324 六 II 人 
115 100 103 106 116 119 122 107 67 47 56 65 74 83 63 


对 于 指定 的 n, 存 在 很 多 的 n 阶 反 幻 方 ,以 上 程序 仅 构建 其 中 的 一 个 。 
程序 带 有 验证 功能 ,各 行 各 列 与 两 对 角 线 共 2n 十 2 个 和 不 存在 相等 ,才能 输出 。 


10.9 偶遇 天 然 准 幻 方 


以 上 构建 了 n 阶 幻 方 、 积 幻 方 与 素数 幻 方 等 。 事 实 上 , 幻 方 也 存在 天 然 生 成 的 ,只 是 
平时 不 容易 被 发 现 。 
本 节 介 绍 天 然 准 幻 方 ,作为 幻 方 天 地 中 的 偶遇 趣 点 。 


1. 探索 思路 

在 第 1 章 探求 “六 六 大 顺 数 ”中 ,我 们 看 到 一 个 有 趣 的 意外 : 1/7 一 6/7 的 第 一 个 循环 
车 刚好 对 应 六 六 大 顺 数 及 其 2 一 6 倍 的 变 序数 。 

顺 着 这 一 思路 ,对 于 正 整 数 n(3 一 199) ,计算 分 数 1/Cn 十 1) 一 n/Cn 十 1) 的 小 数 部 分 的 
前 n 位 ,形成 一 个 n 阶 方 阵 。 

检验 这 一 天 然 形 成 的 方 阵 , 若 其 n 行 ,n 列 与 两 对 角 线 上 的 n 个 数字 之 和 相等 ,该 方 
阵 岂 不 就 是 一 个 天 然 幻 方 ! 


2. 程序 设计 


// 搜 索 n 阶 天 然 幻 方 
# include < stdio. h> 
void main0 
{ int a,c, ij,m,n,r,s,s1,s2, s3, s4, d[200] [200] ; 
printf(" 请 输入 m(3<=mK=199): "); scanf(%d"&m); 
for (n=3;nC=m;nt+) 
{ for(i=1;i<=n;i++) 
for(a=ix 10, j=1;j<=n;j++) // 计 算 位 m + 人 1 产生 方 阵 
{d[i] [j]=a/ (nt 1);c=a% (n+ 1);a=c* 10;} 
for(s=0, j=1;j<=n;j++) 
s+=d[1] [Dj]; 
r= 0;s1=0;s2= 0; // 检 验 :s1, s2 为 方 阵 对 角 线 和 
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for(i=1;iK=nii++) 
{ s3=0;s4=0; //s3 为 横行 和 , s4 为 纵 列 和 
for (j=1;j<=n;j++) 
{ s3+=d[i][j];s4+=d[j][i]; 
if(i==j) s1+=d[i][j]; 
if(it ==n+1) s2+=d[i][j]; 
Y 
if(s3!=s || s4!= s) {r=1;break;} 


} 
if(s1!l=s || s2!=s) r=1; // 检 验 n 行 n 列 与 2 对 角 线 和 是 否 相 等 
if(r==0) 
{ printf(” 搜寻 得 %2d 阶 天 然 幻 方 :\n",n); 
for (i=1;iC=n;it+) // 输 出 n 阶 天 然 形成 幻 方 


{ printf("%5d/%2d=0. |",i,nt1); 
for (j=1;j<=n;j++) 
printf ("%2d", d[i] [j]); 
printf(" |\n"); 
| 
printf(” 幻 和 为 :%d\n", s); 


] 


3. 程序 运行 示例 与 说 明 
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在 更 大 的 范围 内 探索 ,暂时 只 发 现 这 一 个 天 然 幻 方 。 

但 这 足以 让 我 们 心满意足 : 居然 存在 18 阶 天 然 幻 方 。 

也 让 我 们 由 衷 感叹: 自然 界 还 有 哪些 秘密 还 没有 被 发 掘 呢 ? 

当然 ,这 不 是 严格 意义 上 的 幻 方 ,因为 存在 重复 数字 ,只 能 称 之 为 准 幻 方 。 之 所 以 称 
为 准 幻 方 ,是 在 忽略 数字 重复 的 约束 ,实现 了 方 阵 的 18 行 、18 列 与 两 对 角 线 上 的 18 个 数 
字 之 和 相等 (程序 中 带 有 验证 功能 ) 的 幻 方 特征 。 
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